求大神给以或指点VBS 局域网互相通信的例子UDP或TCP 都可以
'这是接收端
set sock=WScript.CreateObject("MSWinsock.Winsock","sockp1_")
sock.Protocol = "1"
sock.Bind "1234"
MsgBox "监听中..."
Sub sockp1_DataArrival(ByVal bytesTotal)
sock.GetData da,VbString
sock.senddata "数据到达"
MsgBox "我是服务器端口:" & vbCrLf & da
End Sub
这是发送的
set sock=WScript.CreateObject("MSWinsock.Winsock","sockpk_")
sock.Protocol = "1"
sock.RemoteHost = "192.168.1.16"
sock.RemotePort = "1234"
sock.sendData sock.LocalHostName
budengdai=1
Wscript.Sleep 1000
do
if budengdai<>0 then
exit do
end if
Wscript.Sleep 200
loop
Sock.Close
Sub sockpk_DataArrival(ByVal bytesTotal)
sock.GetData da,VbString
MsgBox "我是服务器端口2222:" & vbCrLf & da
budengdai=1
End Sub
求大神修改指点..
服务器端 运行后第一次收到客户端的信息后返回"数据到达给客户端" 客户端收到信息退出程序
当第二次客户端在运行发送信息的时候,服务器的 sock.GetData da,VbString 就会弹窗报错
和sock.senddata "数据到达" 无法再返回信息给客户端了,.
求大神指点 是哪里错了呢,
我想实现的是 服务器端一直开启.每次接受到有客户端发送信息的话在接收到信息后在返回一条信息给客户端表示服务器已经成功接收了....
求好心的大神指点