VB服务器长连接实现

使用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