有段代码我怎么都看不明白，高手来帮帮我

已经执行了 
Winsock1.LocalPort = 5187
Winsock1.ListenPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)On Error GoTo ErrorCode
    
    If Winsock1.State <> sckClosed Then
       Winsock1.Close              ' close Connection
    End If
    Winsock1.Accept requestID      'Make the connection
    Exit Sub
     
ErrorCode:
     MsgBox Trim(Str(Err.number)) + " " + Err.Description, vbCritical
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Sql As String
    Dim strData As String
    Dim i As Long
    Dim status As RSI_STATUS
    Dim Result As Long
    Dim strBox As String
    Dim ID As RSI_ID
    Dim bTempHand(100) As Boolean
    Dim strTimeZone(100) As String
    Dim strUserLevel(100) As String
    Dim ur As RSI_USER_RECORD
    Dim J As Long
    Dim li As Long
    Dim lj As Long
    Dim UserRec As RSI_USER_RECORD
    Dim tz As RSI_TIME_ZONE_TABLE
    Dim strDays As String
    Dim strTemp As String
    Dim lHowManyDays As Long
    
    Winsock1.GetData strData, vbString
    If Mid(strData, 1, 1) = "@" And Mid(strData, Len(strData) - 3, 4) = "@END" Then
        SendOk (strData)
    Else
        SendRepeat (strData)
        Exit Sub
    End If
    
    Select Case Mid(strData, 2, 6)
        Case "AddUse"
            GetReceiveData (strData)
       '以下代码省略Public Sub SendAddUser(ByVal ID As String, ByVal name As String, ByVal Parment As String, ByVal strDate As String, ByVal LeverZone As String, ByVal Reject As String, ByVal Handbmp As String, ByVal HandID As String)
    Dim strSendString As String
    
    strSendString = "@AddUse@" + ID + "@" + name + "@" + Parment + "@" + strDate + "@" + LeverZone + "@" + Reject + "@" + Handbmp + "@" + HandID + "@END"
    If FRealTime.Winsock1.State = 7 Then
        FRealTime.Winsock1.SendData strSendString
    End If
End Sub这段代码是别人写的，看上去好象是2个机器间的交互操作。但是实际上只有一台机器，所以我就感到很不理解了。请问有没有可能Winsock自己连接自己，自己发消息给自己呢？