注册 登录
编程论坛 VB6论坛

UDP的服务器端与客户端为什么会出错???在单机上运行

ufopsdc 发布于 2014-01-14 22:03, 609 次点击
UDP的服务器端与客户端为什么会出错???在单机上运行(一台机上运行)
主机
Private Sub Command1_Click()
Me.Winsock1.SendData Text1.Text

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Me.Winsock1.GetData str, vbString
 Text2 = str + Chr(10) + Chr(13)
 
End Sub
只有本站会员才能查看附件,请 登录


次机
Private Sub Command1_Click()
Me.Winsock1.SendData Text1.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim temp As String
Me.Winsock1.GetData temp, vbString
Text2 = temp + Chr(10) + Chr(13)


End Sub
只有本站会员才能查看附件,请 登录


只有本站会员才能查看附件,请 登录


本机IP
只有本站会员才能查看附件,请 登录

4 回复
#2
风吹过b2014-01-15 08:25
1、端口号如非特殊情况,使用 大于 1024 的端口号。
2、UDP程序,建议每次收发后都重置一下 WINSOCK 控件。关闭再打开。
#3
ufopsdc2014-01-15 21:25
谢板主,
主要是不知是不是我的端口号,有无设错,老是出现10054错误,
我是单机上运行的!
#4
lowxiong2014-01-16 16:06
主机端代码修改如下(粘贴过去即可):
'其实只需要指定主机端口即可,知道主机ip和端口号就可进行网络通讯了
Private Sub Command1_Click()
Me.Winsock1.SendData Text1.Text

End Sub

Private Sub Form_Load()
Winsock1.Bind      '绑定udp端口
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Me.Winsock1.GetData str, vbString
Text2 = str + Chr(10) + Chr(13)

End Sub
#5
ufopsdc2014-01-16 18:09
感谢上楼
1