[求助]VB编聊天程序的问题！[附源码]

[pchoerly]

Private Sub Command1_Click()
Command1.Enabled = False
Err.Clear '清除错误
If Len(Text1.Text) = 0 Then
MsgBox "请输入要连接的主机IP！", vbOKOnly, "输入IP"
Command1.Enabled = True
Exit Sub
Else

On Error GoTo errhao
Winsock1.RemoteHost = Text1.Text '获得远程主机的IP
Winsock1.Connect
Command1.Enabled = True
Exit Sub

End If
errhao:
MsgBox "errrrrrr"
Text1.Text = ""
Command1.Enabled = True
Exit Sub
End Sub
------------------------------------------------
[求助]VB编聊天程序的问题！[附源码]
为什么只要有一次Text1.text里的IP有错误，以后不管Text1.text里的IP是对还是错，都会按照错误来

处理呢（即执行errhao:）？？？？而不会再执行
Winsock1.RemoteHost = Text1.Text '获得远程主机的IP
Winsock1.Connect
这2句了（IP正确也不执行！）？？？？？？？

[danielinbiti]

应该是你端口设置不对，没有释放端口
最后你把什么错误写出来。

[yyuyes]

你的客户winsock端口可以设置为0，由系统自动分配空闲端口

[zgw2000]

你没有设置 远程客户端口啊,加一句
winsock1.remoteport=12345