VB 一个服务端对应多个客户端并获得各客户端ip，如何实现服务端和已经连接的指定ip的客户端通信

一个WINSOCK控件只连一个客户端，如果需要连接多个客户端，可以用WINSOCK控件数组，程序中动态增加数组个数。
与特定客户端发消息，只需要通过对应的那个WINSOCK控件进行发送消息即可。

接收到客户端数据，处理完毕
//返回信息给客户端
string sendStr = "ok!Client send message successful!";
byte[] bs = EncodingASCIIGetBytes(sendStr);
clientSend(bs, bsLength, 0);
//关闭套接字
clientClose();
客户端发送完数据等待服务端返回处理结果
//
///接受从服务器返回的信息
string recvStr = "";
byte[] recvBytes = new byte[1024];
int bytes;
bytes = clientReceive(recvBytes, recvBytesLength, 0);//从服务器端接受返回信息
recvStr += EncodingASCIIGetString(recvBytes, 0, bytes);
label15Text = DateTimeNowToString() + ":" + recvStr;//显示服务器返回信息
///一定记着用完socket后要关闭
//关闭套接字
clientClose();

---