winsock控件连接故障求教

Question

谢谢你啊,明哥
就是说我第一个winsock用TCP/IP协议已经把服务器和客户端连接成功了.这时候我还有另一个winsock,用的是UDP,初始化时用的如下代码(ccSocket是第一个已经成功的winsock,chatSocket是第二个) 
    chatSocket.LocalPort = 11024
    chatSocket.RemoteHost = ccSocket.RemoteHostIP
    chatSocket.RemotePort = 11024
然后连接就有毛病,我不知道上面这样设置是否可以,哎,烦死了,一会通一会不通的

Answer 1

我用tcp做过一个聊天带游戏的程序，需要的话我发原代码给你

Answer 2

服务器端的Winsock接受连接时是这样写的吗？
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    DoEvents
    Winsock1.Accept requestID
End Sub

Answer 3

必须是两个socket。因为，你不能断开tcp协议socket的连接。建议你全部采用udp协议，这样，只要一个socket，客户端只是按命令重绘窗体。其他的事交给服务器去做。

Answer 4

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then
tcpServer.Close                 '检查控件的State属性是否为关闭的。
End If                          '如果不是，在接受新的连接之前先关闭此连接。
tcpServer.Accept requestID
End Sub