Question

关于VB的实时错误40006，望高手指点！我用的是TCP协议。

这是我的部分代码
客户端：
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Or Len(Text1.Text) < 4 Then
MsgBox "请正确填写您的ID和密码！", 16, "错误"
else
Winsock1.SendData "yanz" & Text1.Text & Text2.Text
End If
End Sub
Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.1.99"
Winsock1.RemotePort = 2001
Winsock1.LocalPort = 2020
Winsock1.Connect
With Winsock2
.LocalPort = 2000
.Listen
End With
End Sub
服务端：
Private Sub Form_Load()
With Winsock2
.LocalPort = 2001
.Listen
End With
End Sub

Answer 1

服务端错误. 需要重新安装