TDN - HANDLES - MMR

Private Sub HandleSend_Search(ByVal UserIndex As Integer)

    On Error GoTo Errhandler

    With UserList(UserIndex)

        Dim buffer As New clsByteQueue
        Call buffer.CopyBuffer(.incomingData)

        'Remove packet ID
        Call buffer.ReadByte

        Dim n_Reto As Byte

        n_Reto = buffer.ReadByte()

        Dim ID(1 To n_Reto) As Integer
        ID(1) = UserIndex
        If n_Reto > 1 Then
            For LoopC = 2 To n_Reto
                ID(LoopC) = NameIndex(buffer.ReadASCIIString())
            Next LoopC
        End If
        Call Searching_Reto.Send_Search(ID(), n_Reto)
    End With
    Exit Sub

Errhandler:
    Dim error As Long
    error = Err.Number
On Error GoTo 0

    'Destroy auxiliar buffer
    Set buffer = Nothing

    If error <> 0 Then _
        Err.Raise error
End Sub

Private Sub HandleAccept_Search(ByVal UserIndex As Integer)

    On Error GoTo Errhandler

    With UserList(UserIndex)

        Dim buffer As New clsByteQueue
        Call buffer.CopyBuffer(.incomingData)

        'Remove packet ID
        Call buffer.ReadByte

        Dim OtherIndex As Integer

        OtherIndex = buffer.ReadASCIIString()

        Call Searching_Reto.Accept_Search(UserIndex, OtherIndex)

    End With
    Exit Sub

Errhandler:
    Dim error As Long
    error = Err.Number
On Error GoTo 0

    'Destroy auxiliar buffer
    Set buffer = Nothing

    If error <> 0 Then _
        Err.Raise error
End Sub

Private Sub HandleAccept_Matching(ByVal UserIndex As Integer)

    With UserList(UserIndex)
        'Remove packet ID
        Call .incomingData.ReadByte

        Call Searching_Reto.Accept_Matching(UserIndex)

    End With
End Sub

Private Sub HandleRefuse_Matching(ByVal UserIndex As Integer)

    With UserList(UserIndex)
        'Remove packet ID
        Call .incomingData.ReadByte
        Call Searching_Reto.Refuse_Matching(UserIndex)

    End With
End Sub