Login2Aol Use

Dim objAuth As New AuthRequest("screenname", "password")
With objAuth
    .Secret = "secret answer"
    .UserAgent = "Custom UA"
    .Proxy = New WebProxy("127.0.0.1", 8080)
    .Cookies = oldCookies
    .LoginUrl = "https://www.aim.com/"
    .LoginSuccessTrigger = "startSession('"
End With

Using objResponse As AuthResponse = objAuth.Login
    Select Case objResponse.State
        Case AuthResponse.State.ConnectionError
            'handle accordingly
        Case AuthResponse.State.EmptyBody
            'handle accordingly
        Case AuthResponse.State.Unknown
            'handle accordingly
        Case AuthResponse.State.Invalid
            'handle accordingly
        Case AuthResponse.State.Suspended
            'handle accordingly
        Case AuthResponse.State.Valid
            'handle accordingly
    End Select

    Debug.Print(objResponse.Headers)
    Debug.Print("")
    Debug.Print(objResponse.Body)
End Using