Question

如何利用Winsock控件实现两个局域网之间机器的连接与通讯

Answer 1

服务端：
在form_load 事件设置好服务端端口
winsock.localport="331" '设置服务端的端口
winsock.listen '监听模式
接收数据
在winsock 的 connectionRequest 事件中输入
if winsock.state <> 7 then
winsock.accept requestID
end if '如果winsock的状态不是已连接（7），则，接收请求
发送消息：
可以在按钮单机事件里面写
dim a as string '定义一个string类型的变量，
a= "服务端：" & srk.text '给a赋值
winsock.senddata a '将a发送出去
接收数据：
一般都在winsock的DataArrival事件中写入
dim b as sting '定义一个变量，用于接收数据
winsock.getdata b '接收数据
ltk.text=b '将b内容放入文本框内
客服端
接收和发送与服务端一致
在窗体load事件内写入
winsock.RemoteHost="127.0.0.1" '服务器地址，一般为运行服务端窗体的那台电脑的IP4地址
winsock.Remoteport = "331" '服务端的端口
winsock.Connect '发送连接请求
然后再配上发送消息和接收信息，就可以了