vb的Winsock TCP连接的问题
我用WINSOCK分别写了一个服务器和客户端程序，实现多用户连接。
在本机上测试客户端能够登录到服务端，但是在两台电脑上就不行了，客户端总是等待在那儿，为什么？
哪位高手能指导下？很急很急！
[最优解释]
改
WinsockServer(i).LocalPort = 2245 '0
为
WinsockServer(i).LocalPort = 0

[其他解释]
贴代码 最好这种采用tcp协议 udp协议 丢包 你受不鸟的
[其他解释]
改成tcp协议 你这种肯定是udp协议造成的
[其他解释]
如果是udp协议不需要动态生成socket控件的因为 系统只支持一个端口的绑定

tcp中
WinsockServer(i).LocalPort = 0'0
WinsockServer(i).Accept requestID
[其他解释]
换一个端口 可能端口冲突 注意是不是防火墙拦截
[其他解释]
大虾你的程序实现了没？我也在做这个。一对多连接是没问题的 可是我想实现显示在线客户列表 你能实现这个功能不？求指教~
[其他解释]
先试试能ping通吗？
[其他解释]
客户端是采用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
点击登录后，服务端接收不到连接请求
这东西我实在找不到哪里出问题了，求指教！
[其他解释]
后面标着个0，表示已经试过了，都不行呢
[其他解释]
我确定是设置的TCP协议啊，客户端连接时，会触发WinsockClient_Error事件
[其他解释]
出现“尝试连接暂停的错误”
[其他解释]
与局域网有关系吗？
[其他解释]
改了端口号，关闭防火墙，一样的错误，
是不是程序中其它的设置有问题呢
[其他解释]

引用:

大虾你的程序实现了没？我也在做这个。一对多连接是没问题的 可是我想实现显示在线客户列表 你能实现这个功能不？求指教~

都实现了
今天把之前的问题都解决了
[其他解释]
大侠 求指教啊 能不能把源码给我看下 或者给我指点下 怎样实现客户列表哇？万分感激 在做毕业设计 可是卡到这里了
[其他解释]

引用:

大侠 求指教啊 能不能把源码给我看下 或者给我指点下 怎样实现客户列表哇？万分感激 在做毕业设计 可是卡到这里了

你是在服务端显示还是在客户端显示？
[其他解释]
^^结贴了，虽然问题是自己解决的，谢谢大家的热心了！！！