VB6.0下使用 UDP问题

[karlchen309]

准备在VB下做个通讯的小程序 ，Debug的时候总是在 SendData的地方过不去，报错183，程序如下

Private Sub Form_Load()
'控件的名字为udpPeerA

With udpPeerA '重点:必须将 RemoteHost 的值修改为对方计算机的名字。

.RemoteHost = "172.16.3.50"

.RemotePort = 2000 '′连接的端口号。
.LocalPort = 2001

.Bind 2001 '绑定到本地的端口。
End With


End Sub

Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Dim temp As Integer

udpPeerA.GetData strData
Text1.Text = strData
temp = Val(strData)
temp = temp + 1
strData = Str(temp)
udpPeerA.SendData strData

End Sub

[zhh0086]

如果没有连接上硬件 的话应该是发布出去的

[karlchen309]

实际上服务器端 倒是 接收到了 ，但仍然是报 SendData错误

[karlchen309]

顶起

[karlchen309]

继续顶

[VirtualDesktop]

你试试每次接收后重新设定一次远程主机的ip和端口再发送