使用VB的Winsock控件,完成公司一个小Demo。
期间遇到很多问题,此处整理如下
一. winsock控件的用法
添加控件: 工程-部件- Microsoft Winsock Control 6.0
拖一个控件出来命名为winsock1
做客户端时:
winsock1.RemoteHost = "127.0.0.1"'目标服务器的IP地址,(此处测试用本地IP)
winsock1.RemotePort = 15555'目标服务器的指定端口号
winsock1.Connect '连接
在winsock1_Connect事件中发送数据
winsock1.SendData (strdata)‘发送字符串数据
做服务器端时:(主要用来监听客户端通过端口发过来的数据)
流程:设定监听--接收请求连接并发送连接ID--接收数据--继续监听
winsock1.LocalPort = 15555 '设定监听端口
winsock1.Listen '开启监听
在winsock1_ConnectionRequest(ByVal requestID As Long) 事件中做如下处理
winsock1.Accept requestID'对客户端的连接请求做回应
在winsock1_DataArrival(ByVal bytesTo