关于winsock问题 - 编程论坛

#2

风吹过b2016-09-30 16:21

要看你服务器端的连接代码。
侦听的端口，接受连接是怎么写的。

#3

Panda20162016-10-06 01:03

回复楼主孙文

一旦接受连接申请，便不会继续侦听接口了，所以再连接就失败了。

简单的做法是使用用控件数组。

程序代码：

Private Sub Form_Load()
    Winsock1(0).LocalPort = 1001    '//第一个控件一直处于侦听状态
    Winsock1(0).Listen
    Dim i As Long
    For i = 1 To 255
        Load Winsock1(i)
    Next
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    Static cnt As Long
    cnt = cnt + 1
    Winsock1(cnt).Accept requestID   '//其他可用控件进行连接
End Sub

#4

孙文2016-10-08 09:54

回复 3楼 Panda2016

兄弟，方便留个QQ咨询下吗？

#5

Panda20162016-10-09 22:33

2390369200