ConnectionRequest 事件
当远程计算机请求连接时出现。 仅适用于 TCP 服务器应用程序。在请求一个新连接时激活该事件。激活事件之后,RemoteHostIP 和 RemotePort 属性存储有关客户的信息。 下面是代码示例Server是一个Winsock控件,假设已经有了Winsock2控件,并且Index为0
Private Sub Server_ConnectionRequest(ByVal requestID As Long)
'如果客户传来请求,先判断是不是有空闲的Winsock2如果有使用它,无则新建一个
On Error Resume Next
For Each tWinsock In Winsock2'查看所有的Winsock2中是不是有空闲的
If tWinsock.State <> 7 Then
tWinsock.Close
i = tWinsock.Index
GoTo lls
End If
Next
i = Winsock2.Count
Load Winsock2(i)
lls:
Winsock2(i).Accept requestID'用Winsock2来接授联接
End Sub
当远程计算机请求连接时出现。 仅适用于 TCP 服务器应用程序。在请求一个新连接时激活该事件。激活事件之后,RemoteHostIP 和 RemotePort 属性存储有关客户的信息。 下面是代码示例Server是一个Winsock控件,假设已经有了Winsock2控件,并且Index为0
Private Sub Server_ConnectionRequest(ByVal requestID As Long)
'如果客户传来请求,先判断是不是有空闲的Winsock2如果有使用它,无则新建一个
On Error Resume Next
For Each tWinsock In Winsock2'查看所有的Winsock2中是不是有空闲的
If tWinsock.State <> 7 Then
tWinsock.Close
i = tWinsock.Index
GoTo lls
End If
Next
i = Winsock2.Count
Load Winsock2(i)
lls:
Winsock2(i).Accept requestID'用Winsock2来接授联接
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货