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

Question

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 SubEnd 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正确也不执行！）？？？？？？？

Answer 1

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

Answer 2

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