Public Function Connect(User As String, Password As String) As Integer
    Dim Response As String
    Dim SessionID As String = RandomChar(10)
    Response = GetResponse(SessionID, "http://exemple.com/action.php?" &
                           "action=connect" &
                           "&sessionID=" & SessionID &
                           "&user=" & User &
                           "&password=" & Password)
    If Response = Nothing Then Return 0
    If CheckError(Response) = True Then Return 0
    If Not Response.StartsWith("OK") Then
        ErrorMsg("Erreur")
        Return 0
    End If
    Return If(Response.EndsWith("1"), 2, 1)
End Function