在两台电脑上测试的情况是：
客户端永远连接不上服务端
一台电脑上的情况是：
客户端偶尔连接上服务端，测试共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错误：本地电脑上的地址不可用。这是怎么回事？

你连接远程服务器时，本地端口不要指定，让系统自己生成。感觉你这个就是指定端口造成的。

你没有指定远程的端口号。

很早以前写一个练手，虽然是一个工程，二个窗体，但可以拆成二个程序运行的。有兴趣就慢慢看一下吧。包含简单的指令系统在内。