我的意思是：所有的sock都是程序自动分配的，我现在从A用户发来的信息中找到了B用户的IP，要找到和B用户连接的Sock，怎么办？

另外问一下,winsock.localIP是不是本地的IP？

请各位看看我这个思路可行么？
服务端在接受连接请求时，将连接的IP存入Tag中。
当客户端要传输信息给另外的用户时，客户端程序在信息前面加上前缀，以告诉服务端该信息的类型和发送目标
服务端分析类型和目标后，用以下代码进行搜索。

Sock(Index).GetData Dx, vbDouble
If Mid(Dx, 1, 3) = "For" Then
MsgTmp = Replace(Dx, "For", "")
UsersWant = InStr(2, MsgTmp, "#")
UsersWant2 = Mid(MsgTmp, 2, UsersWant - 1)
MsgTmp2 = Replace(MsgTmp, "#", "")
On Error Resume Next
back:
If Sock(a).Tag = UsersWant2 Then
Sock(a).SendData MsgTmp2
Else
a = a + 1: GoTo back
End If

各位看看这段代码有漏洞么？

我刚才进行了一次模拟测试，测试结果是：
客户端的remotehost用服务端得到的localhostname，但是却无法连接上。
出现的结果是：客户端发送的连接请求，服务端收不到。
请教一下：客户端.RemoteHost用服务端的LocalHostName连接的上么？
或者客户端的RemoteHost用服务端的LocalHostIP，这样可行么？

在两台电脑上测试的情况是：
客户端永远连接不上服务端
一台电脑上的情况是：
客户端偶尔连接上服务端，测试共6次，成功连接2次，但是服务端上显示的IP却是2036和4098。
这是什么情况？

刚才测试了一下连接状况
测试 1 次，成功 1 次，但是服务器IP显示是2760
另外，Getdata得到的数据类型是什么？Byte为什么不可以

连接问题已解决，getdata问题已解决，暂时没有问题了。。。

有一个新问题：运行时错误，下标越界
 Text2.Text = Replace(Text2.Text, Tg(Index), "")
以上代码出错：下标越界
当中有个Tg()数组，我是这样定义的：
Dim Tg() As String
这样定义是不是有错？

问题已解决，现在有个新问题：
我的sock的localIP都是本地的192.168开头的局域网IP，如何将其改变为外网IP让外网用户也能连进来？

现在有个新问题了。。。
If tcpClient.State <> sckClosed Then
tcpClient.Close
End If
SignUp.RemoteHost = "192.168.1.103"
SignUp.localport = "1011"
SignUp.Connect
到最后一段代码出现：10049错误：本地电脑上的地址不可用。这是怎么回事？