#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance force

wb := ComObjCreate("InternetExplorer.Application") ;create a IE instance
wb.Visible := True

wb.Navigate( "http://tf2toolbox.com/bptext" ), Wait( wb )


wb.document.getElementByID( "signin_input" ).InnerText := "http://steamcommunity.com/id/jeka1112222"
wb.document.getElementsByTagName( "form" )[ 0 ].submit()


wb.document.getElementByID( "output_type_plaintext" ).Click()
wb.document.getElementByID( "display_credit" ).Click()
wb.document.getElementByID( "display_sc_url" ).Click()
exitapp


return


return
IELoad(wb)    ;You need to send the IE handle to the function unless you define it as global.
{
    If !wb    ;If wb is not a valid pointer then quit
        Return False
    Loop    ;Otherwise sleep for .1 seconds untill the page starts loading
        Sleep,100
    Until (wb.busy)
    Loop    ;Once it starts loading wait until completes
        Sleep,100
    Until (!wb.busy)
    Loop    ;optional check to wait for the page to completely load
        Sleep,100
    Until (wb.Document.Readystate = "Complete")
Return True
}
return

Wait( obj, int = 500 )
{
    While ( !(rs~="4{" int "}\b") || !(st~="(Done){" (int-(SubStr(int,1,1)-1 SubStr(int,2))) "}\b" ) )
    {
        rs .= obj.ReadyState, st .= obj.StatusText
    }
}

return



URLDownloadToVar(url){
hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
hObject.Open("GET",url)
hObject.Send()
return hObject.ResponseText
}
return




return
f11::ExitApp