Winsock问题,客户端收到数据未来得及GetData,服务端就Close导致客户端出错。
Option ExplicitPrivate Sub Form_Load()Winsock1.LocalPort = 8888Winsock1.ListenWinsock2.Connect "127.0.0.1", 8888End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)Winsock1.CloseWinsock1.Accept requestIDEnd SubPrivate Sub Winsock2_Connect() Winsock2.SendData "123"End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim a As String Winsock2.Close DoEvents Debug.Print Winsock1.BytesReceived '连接被对方断开后,缓冲区还有三个字节 Winsock1.GetData a 'GetDdata方法会出错' Winsock1.PeekData a 'PeekData也会出错 Debug.Print aEnd Sub