temp.txt

来自「VB的文本资料,需要时有帮助」· 文本 代码 · 共 41 行

Option Explicit
Private intCount As Integer

Private Sub Form_Load()
    Winsock(0).Bind 2000
    Winsock(0).Listen
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Winsock.UBound > 0 Then
        For intCount = 1 To Winsock.UBound Step 1
            Unload Winsock(intCount)
        Next
    End If
End Sub

Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    If Winsock.UBound > 0 Then
        For intCount = 1 To Winsock.UBound Step 1
            If Winsock(intCount).RemoteHost = Winsock(0).RemoteHost Then
                If Winsock(intCount).State <> 7 Then
                    Winsock(intCount).Close
                End If
                Winsock(intCount).Accept requestID
                Exit Sub
            End If
        Next
        Load Winsock(intCount)
        Winsock(intCount).Accept requestID
        Exit Sub
    Else
        Load Winsock(1)
        Winsock(1).Accept requestID
        Exit Sub
    End If
End Sub

Private Sub Winsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Debug.Print ""
End Sub