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

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

感谢上楼