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

pchoerly 2003-12-12 10:07:52
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正确也不执行!)???????
...全文
10 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zgw2000 2003-12-18
你没有设置 远程客户端口啊,加一句
winsock1.remoteport=12345
  • 打赏
  • 举报
回复
yyuyes 2003-12-13
你的客户winsock端口可以设置为0,由系统自动分配空闲端口
  • 打赏
  • 举报
回复
danielinbiti 2003-12-13
应该是你端口设置不对,没有释放端口
最后你把什么错误写出来。
  • 打赏
  • 举报
回复
相关推荐
发帖
网络编程
加入

1492

社区成员

VB 网络编程
申请成为版主
帖子事件
创建了帖子
2003-12-12 10:07
社区公告
暂无公告