'server private sub form_load() winsock1.protocol=sckudpprotocol winsock1.remotehost="192.255.255.255" winsock1.remoteport=8888 winsock1.bind end subPrivate Sub Command3_Click() Winsock1.SendData "HELLO" End Sub'client private sub form_load() winsock1.protocol=sckudpprotocol winsock1.localport=8888 winsock1.bind end subPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim s as string Winsock1.GetData s MsgBox s End Sub 客户端没有收到任何数据
把发送程序修改如下 Private Sub Command3_Click() ON ERROR goto er Winsock1.SendData "HELLO" exit sub er: msgbox "error:" & err.Description resume next End Sub第一次发送总会捕获到一个错误,错误信息为空,而且可以成功发送
其中***是所你在子网的ip的第一个字段
我的email:[email protected]
private sub form_load()
winsock1.protocol=sckudpprotocol
winsock1.remotehost="192.255.255.255"
winsock1.remoteport=8888
winsock1.bind
end subPrivate Sub Command3_Click()
Winsock1.SendData "HELLO"
End Sub'client
private sub form_load()
winsock1.protocol=sckudpprotocol
winsock1.localport=8888
winsock1.bind
end subPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s as string
Winsock1.GetData s
MsgBox s
End Sub
客户端没有收到任何数据
你确定你的网络的广播地址是192.255.255.255???
你本机的IP地址是什么?
而且在server端的remotehost设成客户端的地址也可以发送成功
remotehost设为
192.168.168.255 成功
192.168.255.255 不成功
192.255.255.255 不成功
255.255.255.255 成功
我这没有2000,具体情况记不清了,那你再运行一下ipconfig,看仔细了,里面是不是有两个ip呢
要是有的话,另一个就是真的.
问题肯定出在这里,要么你在看一下你网关的地址是多少,换成那个试试
Private Sub Command3_Click()
ON ERROR goto er
Winsock1.SendData "HELLO"
exit sub
er:
msgbox "error:" & err.Description
resume next
End Sub第一次发送总会捕获到一个错误,错误信息为空,而且可以成功发送
我把ip改为192.168.168.253问题依旧
我没有设任何的网关,dns,wins
我单位电脑上安装有一套软件,该软件采用服务器端的加密方式(在服务器端以服务方式运行一个程序),客户端和该程序建立连接,得到软件的授权信息。
我启动服务器上的程序后,用netstat -a发现该程序监听两个端口(一个tcp,一个udp),我估计该程序使用udp协议接收客户机寻找服务器的广播,然后发送该程序所在机器的地址,客户端接收该数据后便和服务器端建立一个tcp连接进行以后的操作。
我想用我的程序替换该服务器程序,接收客户机的广播分组,但没收到任何东西:-(