第1个回答 2014-06-05
'基本代码如下,请自己修改成要用的地方:
dim revdata
dim sendata
'''创建Winsock对像
set sock=createobject("MSWinsock.Winsock")
'''使用UDP协议
'''建立连接
sock.Protocol=1
sock.Connect "127.0.0.1",1234
'''定义要发送的数据
sendata="Hello !!! " & chr(13)
'''发送我们要发的数据
sock.senddata sendata
do
'''如果有数据回应就显示它
if sock.BytesReceived>0 then
'''定义接收数据类型(数据类型有vbByte、vbInteger、vbLong、vbSingle
'''vbDouble、vbCurrency、vbDate、vbBoolean、vbError、vbString、vbArray+vbByte)
'''也只有定义好要接收的数据类型才能收到数据,不然会收到的是一堆乱码;
sock.getdata revdata,vbString
sendata=inputbox (revdata,"RecviedData","请输入你要发的信息")
sock.senddata senddata & chr(13)
'''当收到含有"exit"字串时结束VBS进程
if instr(revdata,"exit") then exit do
else
end if
loop