关于winsock问题
客户端跟服务器端已成功建好了链接,但现在出现了问题,就是当我把客户端关闭后再启动(服务器继续运行中),就无法建立链接,只有把客户端跟服务器端都关闭后再重新启动才可以,此问题如何解决!
2016-09-30 11:34
2016-09-30 16:21
程序代码:
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
2016-10-06 01:03
2016-10-08 09:54
2016-10-09 22:33