中科新闻网揭开神秘的面纱小说:怎么样可以让客户端知道服务器端自动分配的端口?
来源：百度文库 编辑：中科新闻网 时间：2024/04/30 05:27:06
我这有一个用VB编写的聊天程序,可以让多个用户同时连接,但是多个用户不能同时都接收到服务器端显示的信息,而且客户端也只能用服务器最初的端口才能连接到服务器,我想这可能就是客户端没有得到服务器自动分配的端口吧,下面有点程序是服务器端的,如果是这方面的问题,请帮我改改.如果不是,请告诉您的Email,我帮所有程序都发过去,您帮我看看,好吗?
Private Sub tcpserver_ConnectionRequest(Index As Integer, ByVal requestID As Long)
'For i = 1 To Num
'If tcpServer.State <> sckClosed Then tcpServer.Close
'tcpServer(Num - 1).Accept requestID
'Next i
If Index = 0 Then
Num = Num + 1
NumOnline = NumOnline + 1
Load tcpserver(Num)
StatusBar1.Panels(1).Text = "There are " & NumOnline & "Client connected"
'member(Num) = 1
tcpserver(Num).LocalPort = 0
tcpserver(Num).Accept requestID
End If
End Sub
Private Sub tcpserver_ConnectionRequest(Index As Integer, ByVal requestID As Long)
'For i = 1 To Num
'If tcpServer.State <> sckClosed Then tcpServer.Close
'tcpServer(Num - 1).Accept requestID
'Next i
If Index = 0 Then
Num = Num + 1
NumOnline = NumOnline + 1
Load tcpserver(Num)
StatusBar1.Panels(1).Text = "There are " & NumOnline & "Client connected"
'member(Num) = 1
tcpserver(Num).LocalPort = 0
tcpserver(Num).Accept requestID
End If
End Sub
有可能是你的与服务器的某个连接端口（就是各自的一扇门）未打开，还有可能使你为启用SSL加密连接。
由于这里你没说明是在什么程序中出现的这种情况，所以我无法详细的回答。
就拿IE的SSL为例：“工具”->“Internet选项”->“高级”->“安全”，在其中的SSL2.0、SSL3.0、TLS 3.0前打上钩。
有时在找我吧，发信息！