Pasted

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