救救我，救救我winsock实时实时错误40006

服务器Private Sub Command1_Click()
Call Winsock1.SendData(Text2.Text)
Text2.SelStart = Len(Text2.Text)
Text1.Text = Text1.Text & vbCrLf & "我：" & Text1.Text & Text2.Text
Text1.Text = ""
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 1000
Winsock1.Listen
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
Call Winsock1.Accept(requestID)
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim message As String
Call Winsock1.GetData(message)
Text2.Text = Text2.Text & vbCrLf & "对方：" & message
Text2.SelStart = Len(Text2.Text)
End Sub
客户端
Private Sub Command1_Click()
Call Winsock1.SendData(Text2.Text)
Text2.SelStart = Len(Text2.Text)
Text1.Text = Text1.Text & vbCrLf & "我：" & Text1.Text & Text2.Text
Text1.Text = ""
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 1000
Winsock1.Listen
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
Call Winsock1.Accept(requestID)
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim message As String
Call Winsock1.GetData(message)
Text2.Text = Text2.Text & vbCrLf & "对方：" & message
Text2.SelStart = Len(Text2.Text)
End Sub
运行截图