无窗体 vb winsock编写一个客户端
我现在需要一个这样的无窗体的vb winsock的客户端程序，写成一个类模块，其他程序需要的时候来调用这个方法。我试着写再调用的窗体里面，可以连接正常，但是在连接后马上发送，服务端就没反应，网上查了下，连接和发送不能同时使用，我该怎样写才能实现连接后就马上可以发送。
'以下是socket实现方法------------------------------------------------------
Public Sub Winsockclient_Close()
Winsockclient.Close
End
End Sub
Public Sub winsockclient_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr As String
Winsockclient.GetData tmpstr
' Textget.Text = tmpstr
End Sub
Public Sub coskc(ByVal coskcTotal As String)
Dim ip As String
Dim send As String
ip = "127.0.0.1"
send = Trim(coskcTotal)
Winsockclient.RemoteHost = ip
Winsockclient.RemotePort = 1001
Winsockclient.Connect
Do Until Winsockclient.State = 7
DoEvents
Loop
Winsockclient.SendData send + vbCr （就这个发送，服务端接不到值，但是变量 send 是有值的。）
End Sub
请教我该怎么些才能正常让服务端接收的我发送的值呢！
'以上是socket实现方法------------------------------------------------------ --------------------编程问答-------------------- Winsockclient.Connect之后,会产生connect事件.
在那个事件里,再Winsockclient.SendData send + vbCr --------------------编程问答--------------------
--------------------编程问答--------------------
是在connect 里面啊
Do Until Winsockclient.State = 7
DoEvents
Loop
这 个只是判断是否连接成功，如果成功加发值过去******** --------------------编程问答-------------------- 如果连接不成功,是不会触发connect事件的.
你用这种循环方式等待容易出问题,最好还是事件驱动.
另外,没有看到你在哪里使用了connect事件,只看到你调用了connect方法. --------------------编程问答-------------------- 顶楼上 --------------------编程问答-------------------- myjian 你能帮我写个吗？或者帮我改下，我没接触过winkows 所以不知道怎么写，麻烦你！先谢谢…… --------------------编程问答-------------------- 我qq 362668207 很急 兄弟帮个忙，还有这个怎么注册不了 ，我用的是我朋友的号码！ --------------------编程问答-------------------- Private Sub Winsock_Connect()
Dim s As String
If Winsock.State = sckConnected Then
'连接
s = "sdfserewrwerererewerw" + vbCrLf
Winsock.SendData s
End If
'MsgBox "test"
End Sub
加了事件，但是服务端还是接收不到值 --------------------编程问答-------------------- 兄弟，区分同步和异步 --------------------编程问答-------------------- 谢谢各位 --------------------编程问答-------------------- 向各位高手学习了！！
补充：VB , 控件
