Question

vb winsock 实时错误“40006” 所需事物请求的错误协议连接或连接状态。我检查了好几遍不知道怎么错了。

Private Sub Command1_Click()
Winsock2.Connect
End Sub

Private Sub Command2_Click()
Winsock1.SendData "ok"

End Sub

Private Sub Form_Load()

Winsock1.LocalPort = 12345
Winsock1.Listen

Winsock2.RemoteHost = "127.0.0.1"
Winsock2.RemotePort = 12345

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
MsgBox " clent connect "

End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
MsgBox " receive data"
End Sub

Private Sub Winsock2_Connect()
MsgBox "ok"

End Sub

Answer 1

winsock1充当服务器的角色，你不在winsock1的ConnectionRequestion事件中调用accept方法，当然会出错，只有调用accept方法，winsock1(服务器）才会接受winsock2(客户端）的连接请求。

Answer 2

Private Sub Command1_Click()
Winsock2.Connect
End Sub

Private Sub Command2_Click()
Winsock2.SendData "ok"
End Sub

Private Sub Form_Load()
Winsock1.LocalPort = 12345
Winsock1.Listen

Winsock2.RemoteHost = "127.0.0.1"
Winsock2.RemotePort = 12345
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Winsock1.GetData a
msgbox a
End Sub

Private Sub Winsock2_Connect()
MsgBox "ok"
End Sub