使用winsock
可以发送byte数组 或字符串
dim binArray() as byte
redim binarray(100)
winsock1.senddata binarray
或者
dim strOut as sring
strout="abc"
winsock1.senddata strout
回答补充:
按照你说的,text1是评委号码 text2是打分数
可以这样发送winsock1.senddata text1.text & ":" text2.text
这样如果评委号码是1分数是5.67则实际发送的数据是"1:5.67"
也就是用冒号把两者隔开了
然后在接收的时候再把它们根据冒号分开
比如在winsock的dataArrival事件中这样
dim StrIn as string
winsock1.getdata StrIn
msgbox "评委号为" & mid(strin,1,instr(1,strin,":")-1)
msgbox "评委打分为" & mid(strin,instr(1,strin,":")+1)
我只是给你写了个简单的示例
具体你自己再变通
温馨提示:答案为网友推荐,仅供参考