udp服务器无法发送

Question

(udp协议)
客户端:Private Sub Form_Load()
Winsock1.Bind "1234"
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
msgbox ""
End Sub服务器端:
Private Sub Command1_Click()
Winsock1.RemoteHost = "XXXXXXXXXXX"
Winsock1.RemotePort = "1234"
Winsock1.SendData "connect"
End Sub在服务器上使用服务器端程序无法把信息发送到客户端(没有任何反映)
在别人的机器上用客户端仍无法接收
但服务器接收正常(服务器接收部分代码未贴)好象不是防火墙的问题
急!!!!!!

Answer 1

把ON ERROR RESUME NEXT去掉看有没提示什么错误

Answer 2

俺看啊，这情况一般ip地址错误楼主可改127.0.0.1，开2个vb一个做服务一个做客户，测试这代码是没问题的