Question

跪求VB大神帮忙，利用WINSOCK实现远程控制，求代码！！

是天线自动测量需要用到，利用winsock，编写代码，能让主控计算机发出“开始”测量的指令后，副控计算机计算机收到指令后执行，只需要客户端和服务器端的编程代码，不需要包装软件。。。谢谢各位大哥大姐

Answer 1

'基本代码如下,请自己修改成要用的地方:
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