vb的Winsock TCP连接的问题

Question

我用WINSOCK分别写了一个服务器和客户端程序，实现多用户连接。
在本机上测试客户端能够登录到服务端，但是在两台电脑上就不行了，客户端总是等待在那儿，为什么？
哪位高手能指导下？很急很急！

Answer 1

贴代码 最好这种采用tcp协议 udp协议 丢包 你受不鸟的

Answer 2

客户端是采用TCP协议连接到服务器的
服务端（监听端口为2244）
Private Sub WinsockServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    Dim i As Integer
    i = SockQueue.CreateIndex   
    If SockQueue.Findindexexist(i) = -1 Then
        SockQueue.PushHead 0, i, 0
    End If
    Load WinsockServer(i)
    WinsockServer(i).LocalPort = 2245 '0
    WinsockServer(i).Accept requestID
End Sub
客户端
Private Sub Cmd_login_Click()
WinsockClient.RemoteHost = Text_ip.Text（由用户输入）
WinsockClient.RemotePort = 2244
WinsockClient.Connect
End Sub
点击登录后，服务端接收不到连接请求
这东西我实在找不到哪里出问题了，求指教！

Answer 3

改 
WinsockServer(i).LocalPort = 2245 '0
为
WinsockServer(i).LocalPort = 0

Answer 4

改成tcp协议  你这种肯定是udp协议造成的

Answer 5

如果是udp协议不需要动态生成socket控件的因为 系统只支持一个端口的绑定tcp中
  WinsockServer(i).LocalPort = 0'0
  WinsockServer(i).Accept requestID

Answer 6

我确定是设置的TCP协议啊，客户端连接时，会触发WinsockClient_Error事件