Scraper.exe

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance off


;scraper.exe


/*
start:
InputBox, urlinput , Input the url! ,&page= at the end,,500,100
if !urlinput
{
	msgbox,no input! fuk u press f11 to exit
	goto,start
}
*/







firstpage = %1%

lastpage = %2%

urlinput = %3%

;msgbox,the main url is:`n%urlinput%`n`nthe starting page is:%1%`n`nthe ending page is:%2%`noutput path is: %4%


Run, cmd.exe,,, PID
WinWait,ahk_pid %PID%
WinMove,ahk_pid %PID%,,,,250, 200
loop
{

    IfWinNotExist,Ex0rscraper%A_Index%
    {
    currentwin = Ex0rscraper%A_Index%

    break
    }
}

WinSetTitle,ahk_pid %PID%,,%currentwin%
;WinSet,region,w200 h300,ahk_pid %PID%
Sleep, 1000
DllCall("AttachConsole", "UPtr", PID)
SetTimer, checkcmd, 500
loopall := lastpage - firstpage
loopall++
loop,%loopall%
{
url = %urlinput%%firstpage%

try  ; Attempts to execute code.
    {

loop
{
    html:= URLDownloadToVar(url)

if (!html)
{
    FileAppend, `nRetrying %firstpage%/%2%, CONOUT$
sleep,%4%
}
if (html)
    break
}

   ;msgbox,%html%`n`n%currentwin%`n`n%url%
    }

    catch e  ; Handles the first error/exception raised by the block above.
    {
;shut up >:d
    }




FileAppend, `nScraped %firstpage%/%2%, CONOUT$
infotext = %infotext%`nScraped %firstpage%/%2%


allusers = %allusers%`n%html%

firstpage++
}
/*
select:
FileSelectFile,selection,S11,,Select the txt file the usernames should be extracted too (%currentwin%),*.txt
if (Errorlevel = 1)
{
	msgbox,4,Do you want to close without saving?`n(all usernames scraped in this thread will be lost)
IfMsgBox No
    goto,select

IfMsgBox Yes
    exitapp

}
*/
sort,allusers,U
FileAppend,%allusers%,scraped.txt
TrayTip,%currentwin%, Completed Scraping!`nclosing now, 3, 1

sleep,3000
winclose,%currentwin%
exitapp
GuiClose:
exitapp
f11::exitapp


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


return

checkcmd:

IfWinNotExist,%currentwin%
{
    exitapp
}