Question

vb用Winsock控件出现问题，请大来帮忙看一下，实在找不出错误在哪啊？ 实时错误40020（当前状态的操作无效

'远程计算机请求连接
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal RequestID As Long)
'Winsock1(Index).Close '-----------------------------------

intWinSockCounts = intWinSockCounts + 1
intClientNums = intClientNums + 1
If Winsock1.UBound < 10 Then
Load Winsock1(intWinSockCounts)
End If
Winsock1(intWinSockCounts).LocalPort = 0 '设置本地端口‘（调试时就是这里附近出错误）
Winsock1(intWinSockCounts).Accept RequestID '接收新连接
StatusBar1.Panels(2).Text = "接受客户机请求,连接建立成功"
Shape1.FillColor = vbGreen
Text6.Text = intWinSockCounts
If Val(Text6.Text) >= 10 Then ''100
intWinSockCounts = 1
End If
End Sub
急啊。。。求高人指导。。谢谢

Answer 1

intWinSockCounts = intWinSockCounts + 1
intClientNums = intClientNums + 1
If Winsock1.UBound < 10 Then
Load Winsock1(intWinSockCounts)
End If

改为：
If Winsock1.UBound < 10 Then
intWinSockCounts = intWinSockCounts + 1
intClientNums = intClientNums + 1
Load Winsock1(intWinSockCounts)
End If

试试呢。

追问

因为我是用两个客户端的啊，只要他们间两个一起连接，到时再断开，再连接就又会出这个“实时错误40020（当前状态的操作无效”这个问题呀？？

追答

你是用的winsock控件数组，并且还存在重复使用问题，所以在关闭连接时要释放资源，再次连接时，要先检测哪一个是可用的才行。

追问

你第一次说的更改方式好像还是不可以啊。。。要是只开一个客户端时，还可以正常接收。要是两个客户端同时连接时，有的断开有的还在连接时，多次断开连接就还是会出现当前状态操作无效这个问题啊？？？

追答

你目前的方案是根据用户需求，动态增加Winsock数组的成员量，直至10个为止。当用户断开连接时，你是怎么处理的？有没有释放空闲资源？
我觉得你这种方法表面上是节约资源，但实际操作比较麻烦，不如直接就一次性加载10个控件。用户连接时则逐个检测每个是否空闲，如是就利用，如否就看下一个。断开时则不用太多处理。

Answer 2

你试把端口号改为其他的，看看行不

追问

Winsock1(intWinSockCounts).LocalPort = 0 '设置本地端口‘（调试时就是这里附近出错误）
？？是这里的端口改其它吗？那改多少呀

追答

3094试试