Winsock建立socket连接注意点

     建立连接后不能立刻发送或获取数据，因为在Winsock1.Connect会触发Winsock1.Connect事件，在没有正确返回之前不能进行数据操作。建议单独将建立连接的操作放到一个单独的方法中

Vb6代码  

1. Function Winsock1_init(ip As String, port As Long)  
2.     Winsock1.RemoteHost = ip  
3.     Winsock1.RemotePort = port  
4.     Winsock1.Connect  
5. End Function  

建立完连接后需关闭连接才能进行数据操作

Vb6代码  

1. If Winsock1.State <> sckClosed Then Winsock1.Close  

以上两段代码可以放到Initialize方法中。

在有数据到达时使用Winsock1_DataArrival事件自动抓取数据。

Vb6代码  

1. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  
2.     Dim Data() As Byte  
3.     Winsock1.GetData Data  
4.     '解析DATA()数据---  
5. End Sub