Dim $Username = "YOUR_USERNAME"
Dim $Password = "YOUR_PASSWORD"

Dim $HttpWebRequest = ObjCreate("winhttp.winhttprequest.5.1")


If _Login($Username, $Password) == 1 Then
    _Basic3()
    MsgBox(0 + 64, "NOTIFY", "Most likely completed." & @CRLF & "Check challenge_log.html for additional information.")
Else
    MsgBox(0 + 16, "ERROR", "Wrong username or password.")
EndIf
Exit

Func _Basic3()
    $HttpWebRequest.Open("http://www.hellboundhackers.org/challenges/basic3/index.php", False)
    $HttpWebRequest.SetRequestHeader("User-Agent", "bwh3_user_agent")
    $HttpWebRequest.Send()

    FileWrite("challenge_log.html", $HttpWebRequest.ResponseText())
EndFunc


Func _Login($Username, $Password)
    $HttpWebRequest.Open("POST", "http://www.hellboundhackers.org/index.php", False)
    $HttpWebRequest.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    $HttpWebRequest.Send("user_name=" & $Username & "&user_pass=" & $Password & "&login=Login")

    $HttpWebRequest.Open("GET", "http://www.hellboundhackers.org/index.php", False)
    $HttpWebRequest.Send()

    If StringInStr($HttpWebRequest.ResponseText(), "Logout") Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc