Question

vb winsock端口释放

Dim i As Long, aa
aa = tcpServer.Count
If tcpServer.Count = 1 Then
Load tcpServer(tcpServer.Count)
tcpServer(tcpServer.Count - 1).Close
tcpServer(tcpServer.Count - 1).Accept requestID
Exit Sub
End If
For i = 1 To tcpServer.Count - 1
DoEvents
If tcpServer(i).State = 0 Then
tcpServer(i).Accept requestID
Exit Sub
End If
Next
Load tcpServer(tcpServer.Count)
tcpServer(tcpServer.Count - 1).Accept requestID
实现了多用户连线,当客户端退出或关闭后,端口还在系统中,有人说以后系统会自动释放,可是我看了两天,还是这样子,在代码中加载端口释放功能,麻烦会的指点一下,谢谢,
上面的端口没有被正常释放, 控件的状态总是tcpserver.state=8(同级人员正在关闭连接).而不是0关闭.

Answer 1

当STATE=8时就表明已经终止了连接，主动终止连接的客户端会显示关闭，被动终止的客户端会显示同级人员正在关闭连接，也就是对等远程计算机已关闭连接，此时端口就会被释放，不需要考虑端口的释放问题，端口资源系统有专门的分配机制。

Answer 2

winsock在使用断开以后，过一段时间，系统会自动释放的！

Answer 3

close以后就会自动施放端口
如果还想继续接受连接的话就再Listen