AHK: WinHTTPRequest

ServerName := "nebdeti.ru"
ObjectName := "/viewer/item.php?id=67093957-673b-4871-9aff-41b237f8732a"
noredirect := true


hModule := DllCall("LoadLibrary", "str", "winhttp.dll", "ptr")
if !hModule
   msgbox hmodule failed`n%A_LastError%
hSession := DllCall("winhttp\WinHttpOpen", "str", "autohotkey", "uint", WINHTTP_ACCESS_TYPE_DEFAULT_PROXY := 0, "ptr", WINHTTP_NO_PROXY_NAME := 0, "ptr", WINHTTP_NO_PROXY_BYPASS := 0, "uint", 0, "ptr")
if !hSession
   msgbox WinHttpOpen failed`n%A_LastError%
hConnect := DllCall("winhttp\WinHttpConnect", "ptr", hSession, "str", ServerName, "uint", INTERNET_DEFAULT_HTTPS_PORT := 443, "uint", 0, "ptr")
if !hConnect
   msgbox WinHttpConnect failed`n%A_LastError%
hRequest := DllCall("winhttp\WinHttpOpenRequest", "ptr", hConnect, "str", "get", "str", ObjectName, "ptr", 0, "ptr", WINHTTP_NO_REFERER := 0, "ptr", WINHTTP_DEFAULT_ACCEPT_TYPES := 0, "uint", 0x00800000|0x00000100, "ptr")   ; WINHTTP_FLAG_SECURE|WINHTTP_FLAG_REFRESH
if !hRequest
   msgbox WinHttpOpenRequest failed`n%A_LastError%
if noredirect
{
   option := 2   ; WINHTTP_DISABLE_REDIRECTS
   bResults := DllCall("Winhttp.dll\WinHttpSetOption", "ptr", hRequest, "uint", WINHTTP_OPTION_DISABLE_FEATURE := 63, "ptr", &option, "uint", 1)
   if !bResults
      msgbox WinHttpSetOption failed`n%A_LastError%
}
bResults := DllCall("winhttp\WinHttpSendRequest", "ptr", hRequest, "ptr", WINHTTP_NO_ADDITIONAL_HEADERS := 0, "uint", 0, "ptr", 0, "uint", 0, "uint", 0, "ptr", 0)
if !bResults
   msgbox WinHttpSendRequest failed`n%A_LastError%
bResults := DllCall("winhttp\WinHttpReceiveResponse", "ptr", hRequest, "ptr", 0)
if !bResults
   msgbox WinHttpReceiveResponse failed`n%A_LastError%
else
{
   bResults := DllCall("winhttp\WinHttpQueryHeaders", "ptr", hRequest, "uint", WINHTTP_QUERY_RAW_HEADERS_CRLF := 22, "ptr", WINHTTP_HEADER_NAME_BY_INDEX := 0, "ptr", WINHTTP_NO_OUTPUT_BUFFER := 0, "uint*", dwSize, "ptr", WINHTTP_NO_HEADER_INDEX := 0)
   {
      if !bResults and (A_LastError = 0x7A) ; ERROR_INSUFFICIENT_BUFFER
      {
         VarSetCapacity(outBuffer, dwSize + 2)
         DllCall("winhttp\WinHttpQueryHeaders", "ptr", hRequest, "uint", WINHTTP_QUERY_RAW_HEADERS_CRLF := 22, "ptr", WINHTTP_HEADER_NAME_BY_INDEX := 0, "ptr", &outBuffer, "uint*", dwSize, "ptr", WINHTTP_NO_HEADER_INDEX := 0)
         msgbox % StrGet(&outBuffer, "UTF-16")
      }
      else
         msgbox WinHttpQueryHeaders failed`n%A_LastError%
   }
}
if hRequest
   DllCall("winhttp\WinHttpCloseHandle", "ptr", hRequest)
if hConnect
   DllCall("winhttp\WinHttpCloseHandle", "ptr", hConnect)
if hSession
   DllCall("winhttp\WinHttpCloseHandle", "ptr", hSession)
DllCall("FreeLibrary", "ptr", hModule)

;WebRequest.SetRequestHeader("referer", vUrl)

vUrl := "https://nebdeti.ru/viewer/item.php?id=b3ffbe51-d1e5-44c3-8b3a-d1d77ad4f04c"

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SetBatchLines -1
ListLines Off

WINHTTP_NO_PROXY_NAME     := 0
WINHTTP_NO_PROXY_BYPASS   := 0

WINHTTP_ACCESS_TYPE_DEFAULT_PROXY   := 0
WINHTTP_ACCESS_TYPE_NO_PROXY   := 1
WINHTTP_ACCESS_TYPE_NAMED_PROXY     := 3
WINHTTP_ACCESS_TYPE_AUTOMATIC_PROXY := 4

INTERNET_DEFAULT_PORT := 0
INTERNET_DEFAULT_HTTP_PORT := 80
INTERNET_DEFAULT_HTTPS_PORT := 443

WINHTTP_NO_REFERER := 0
WINHTTP_DEFAULT_ACCEPT_TYPES := 0

WINHTTP_NO_ADDITIONAL_HEADERS := 0
WINHTTP_NO_REQUEST_DATA  := 0

hModule := DllCall("LoadLibrary", "Str", "winhttp.dll", "Ptr")

if (hModule)
  hSession := DllCall("winhttp\WinHttpOpen", "WStr", "WinHTTP Example/1.0"
          ,"UInt", WINHTTP_ACCESS_TYPE_NO_PROXY ; Probably want WINHTTP_ACCESS_TYPE_DEFAULT_PROXY here
          ,"Ptr", WINHTTP_NO_PROXY_NAME
          ,"Ptr", WINHTTP_NO_PROXY_BYPASS
          ,"UInt", 0
          ,"Ptr")

if (hSession)
  hConnect := DllCall("winhttp\WinHttpConnect", "Ptr", hSession
           ,"WStr", "nebdeti.ru" ; hostname of site to download from
           ,"UInt", INTERNET_DEFAULT_HTTP_PORT
           ,"UInt", 0
           ,"Ptr")

if (hConnect)
  hRequest := DllCall("winhttp\WinHttpOpenRequest", "Ptr", hConnect
        ,"WStr", "GET"
        ,"WStr", "/viewer/item.php?id=b3ffbe51-d1e5-44c3-8b3a-d1d77ad4f04c" ; path to access on host - you can use the WinHttpCrackUrl() function to break a URL down into its parts, look at Bruttosozialprodukt's posts for the DllCall
        ,"Ptr", 0
        ,"Ptr", WINHTTP_NO_REFERER
        ,"Ptr", WINHTTP_DEFAULT_ACCEPT_TYPES
        ,"UInt", 0
        ,"Ptr")

headers := "Range: bytes=0-450673718" ; range given here
if (hRequest)
  bResults := DllCall("winhttp\WinHttpSendRequest", "Ptr", hRequest
        ,"WStr", headers
        ,"UInt", -1
        ,"Ptr", WINHTTP_NO_REQUEST_DATA
        ,"UInt", 0
        ,"UInt", 0
        ,"Ptr", 0)

if (bResults)
  bResults := DllCall("winhttp\WinHttpReceiveResponse", "Ptr", hRequest, "Ptr", NULL)

if (bResults)
{
  hFile := FileOpen(A_ScriptDir "\" a_now ".pdf", "w") ; open the file named in the first argument for writing
  Loop
  {
    if (!DllCall("winhttp\WinHttpQueryDataAvailable", "Ptr", hRequest, "UInt*", dwSize))
    {
      MsgBox Error %A_LastError% in WinHttpQueryDataAvailable
      break
    }
    if (dwSize <= 0)
      break
    if (VarSetCapacity(pszOutBuffer, dwSize + 1, 0) < dwSize)
    {
      MsgBox % Out of memory
      break
    }
    if (!DllCall("winhttp\WinHttpReadData", "Ptr", hRequest, "Ptr", &pszOutBuffer, "UInt", dwSize, "UInt*", dwDownloaded))
      MsgBox Error %A_LastError% in WinHttpReadData
    else
      hFile.RawWrite(pszOutBuffer, dwDownloaded) ; write the downloaded bytes to the file
  }
  hFile.Close()
}

if (!bResults)
  MsgBox Error %A_LastError% has occurred

if (hRequest) DllCall("winhttp\WinHttpCloseHandle", "Ptr", hRequest)
if (hConnect) DllCall("winhttp\WinHttpCloseHandle", "Ptr", hConnect)
if (hSession) DllCall("winhttp\WinHttpCloseHandle", "Ptr", hSession)

DllCall("FreeLibrary", "Ptr", hModule)
return