mail := "mailmailmailmail@gmail.com"
pass := "passpasspasspasspasspass"


HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("POST", "https://archive.org/account/login", true)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.66 Safari/537.36")
HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTP.SetRequestHeader("content-type", "application/x-www-form-urlencoded")
HTTP.SetRequestHeader("accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9")
HTTP.SetRequestHeader("origin", "https://archive.org")
HTTP.SetRequestHeader("referer", "https://archive.org/account/login")
HTTP.SetRequestHeader("sec-fetch-dest", "document")
HTTP.SetRequestHeader("sec-fetch-mode", "navigate")
HTTP.SetRequestHeader("sec-fetch-site", "same-origin")
HTTP.SetRequestHeader("sec-fetch-user", "?1")
HTTP.SetRequestHeader("upgrade-insecure-requests", "1")
HTTP.SetRequestHeader("cookie", "test-cookie=1")
HTTP.Send("login=true&username=" URIEncode(email) "&password=" URIEncode(password) "&referer=https%3A%2F%2Farchive.org%2F&submit-to-login=Log+in")
HTTP.WaitForResponse()
msgbox % clipboard := HTTP.ResponseText



URIEncode(str, encoding := "UTF-8")
{
   VarSetCapacity(var, StrPut(str, encoding))
   StrPut(str, &var, encoding)
   While code := NumGet(Var, A_Index - 1, "UChar")
   {
      bool := (code > 0x7F || code < 0x30 || code = 0x3D)
      UrlStr .= bool ? "%" . Format("{:02X}", code) : Chr(code)
   }
   Return UrlStr
}

mail := "mailmailmailmail@gmail.com"
pass := "passpasspasspasspasspass"

   GoSub, Boundary
   GoSub, login

Boundary:


Boundary := RandomBoundary()
data =
(
-----------------------------%Boundary%
Content-Disposition: form-data; name="username"

%mail%
-----------------------------%Boundary%
Content-Disposition: form-data; name="password"

%pass%
-----------------------------%Boundary%
Content-Disposition: form-data; name="remember"

true
-----------------------------%Boundary%
Content-Disposition: form-data; name="referer"

https://archive.org/details/%page_code%
-----------------------------%Boundary%
Content-Disposition: form-data; name="login"

true
-----------------------------%Boundary%
Content-Disposition: form-data; name="submit_by_js"

true
-----------------------------%Boundary%--

)
return

login:
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("POST", "https://archive.org/account/login", true)
HTTP.SetRequestHeader("User-Agent", User_Agent)
HTTP.SetRequestHeader("Cookie", "test-cookie=1")
HTTP.SetRequestHeader("Accept", "*/*")
HTTP.SetRequestHeader("Connection", "Keep-Alive")
HTTP.SetRequestHeader("DNT", "1")
HTTP.SetRequestHeader("Host", "archive.org")
HTTP.SetRequestHeader("Accept-Language", "ru-RU")
HTTP.SetRequestHeader("Referer", "https://archive.org/account/login")
HTTP.SetRequestHeader("Accept-Encoding", "gzip, deflate")
HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary=---------------------------" Boundary)
HTTP.Send(data)
HTTP.WaitForResponse()
Return

RandomBoundary()
{
   str := "0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z"
   Sort, str, D| Random
   str := StrReplace(str, "|")
   Return SubStr(str, 1, 14)
}

   HTTP := ComObjCreate("Msxml2.XMLHTTP.6.0")
   HTTP.Open("GET", URL, 0)
   HTTP.SetRequestHeader("User-Agent", User_Agent)
   HTTP.SetRequestHeader("Pragma", "no-cache")
   HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
   HTTP.Send()
   ;HTTP.WaitForResponse()
   Body := HTTP.ResponseBody
   pData := NumGet(ComObjValue(Body), A_PtrSize = 8? 16:12, "ptr")
   File := FileOpen(A_ScriptDir "\" a_now ".jpg", "w")
   File.RawWrite(pData + 0, Body.MaxIndex() + 1)