求大神给以或指点VBS 局域网互相通信的例子UDP或TCP 都可以

jeepjeep01 2015-03-13 10:17:28
'这是接收端
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 "数据到达" 无法再返回信息给客户端了,.
求大神指点 是哪里错了呢,
我想实现的是 服务器端一直开启.每次接受到有客户端发送信息的话在接收到信息后在返回一条信息给客户端表示服务器已经成功接收了....
求好心的大神指点
...全文
2479 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

4,008

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧