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

1、端口号如非特殊情况，使用 大于 1024 的端口号。
2、UDP程序，建议每次收发后都重置一下 WINSOCK 控件。关闭再打开。

谢板主,
主要是不知是不是我的端口号,有无设错,老是出现10054错误,
我是单机上运行的!

主机端代码修改如下（粘贴过去即可）：
'其实只需要指定主机端口即可，知道主机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

感谢上楼