Серый форум — AHK: WinHTTPRequest

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Wed, 14 Feb 2024 05:55:15 +0000

Пример логина:

login := "qwerty@qwerty.com"
pass := "qwerty"
data := "login=" login "&pass=" pass "&"

DllCall("LoadLibrary", "str", "winhttp.dll", "ptr")
hSession := DllCall("winhttp\WinHttpOpen", "str", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/121.0.0.0 Safari/537.36", "uint", WINHTTP_ACCESS_TYPE_DEFAULT_PROXY := 0, "ptr", WINHTTP_NO_PROXY_NAME := 0, "ptr", WINHTTP_NO_PROXY_BYPASS := 0, "uint", 0, "ptr")
hConnect := DllCall("winhttp\WinHttpConnect", "ptr", hSession, "str", "nebdeti.ru", "uint", INTERNET_DEFAULT_HTTPS_PORT := 443, "uint", 0, "ptr")
hRequest := DllCall("winhttp\WinHttpOpenRequest", "ptr", hConnect, "str", "POST", "str", "/authorization", "ptr", 0, "str", "https://nebdeti.ru/authorization", "ptr", WINHTTP_DEFAULT_ACCEPT_TYPES := 0, "uint", 0x00800000|0x00000100, "ptr")   ; WINHTTP_FLAG_SECURE|WINHTTP_FLAG_REFRESH
len := strput(data, "utf-8")
varsetcapacity(body, len, 0)
strput(data, &body, "utf-8")
DllCall("winhttp\WinHttpSendRequest", "ptr", hRequest, "str", "Content-Type: application/x-www-form-urlencoded", "uint", -1, "ptr", &body, "uint", len, "uint", len, "ptr", 0)
DllCall("winhttp\WinHttpReceiveResponse", "ptr", hRequest, "ptr", 0)
varsetcapacity(pszOutBuffer, 100000, 0)
DllCall("winhttp\WinHttpReadData", "ptr", hRequest, "ptr", &pszOutBuffer, "uint", 100000, "uint*", dwDownloaded)
msgbox % ResponseText := strget(&pszOutBuffer, "utf-8")
DllCall("winhttp\WinHttpCloseHandle", "ptr", hRequest)
DllCall("winhttp\WinHttpCloseHandle", "ptr", hConnect)
DllCall("winhttp\WinHttpCloseHandle", "ptr", hSession)

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 08 Feb 2024 19:15:38 +0000

По вашему совету через гугл смотрел. Наверно и так сойдет, тем более что через КОМ короче получается код и его можно запускать с try/catch на случай ошибки соединения:

loop
   {
      HTTP.Open("GET", URL, true)
      try {
         HTTP.Send()
         HTTP.WaitForResponse()
         break
      }
      catch {
         Sleep, 5000
      }
   }

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Thu, 08 Feb 2024 10:17:29 +0000

А как вы ищите?
Если в поиске на оф. сайте вставить WinHttpSendRequest, то выйдет следующая ссылка:
https://www.autohotkey.com/boards/viewt … amp;t=4038

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 08 Feb 2024 04:01:48 +0000

Примеров не нашлось - сделал с извлечением кук со страницы. Спасибо!

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Wed, 07 Feb 2024 17:21:42 +0000

Лень писать. Гуглите примеры.

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Wed, 07 Feb 2024 16:52:49 +0000

А как там Send указывать?

HTTP.Send("login=" login "&pass=" pass)

Пробовал в headers и сюда вписывать:

if (hRequest)
  bResults := DllCall("winhttp\WinHttpSendRequest", "Ptr", hRequest
        ,"WStr", headers
        ,"UInt", -1
        ,"Ptr", WINHTTP_NO_REQUEST_DATA
        ,"UInt", 0
        ,"UInt", 0
        ,"Ptr", 0)

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Wed, 07 Feb 2024 15:03:30 +0000

Логиньтесь через winhttp.dll напрямую. По приведённым ссылкам достаточно информации.
Хедеры по правилам разделять `r`n, хотя у меня всегда и с `n работало.
https://learn.microsoft.com/en-us/windo … estheaders

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Wed, 07 Feb 2024 14:58:41 +0000

Нет. Но они могут быть защифрованы в исходном коде страницы.

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Wed, 07 Feb 2024 14:34:30 +0000

Спасибо, заработало. Только не понятно, почему логин после авторизации не возвращает куки. К примеру, следующий код логинится, но GetAllResponseHeaders не выводит куки. Есть ли другая команда для показа куки?

login := "ПОЧТА"
pass := "ПАРОЛЬ"

HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("POST", "https://nebdeti.ru/authorization", true)
HTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.86 Safari/537.36")
HTTP.SetRequestHeader("referer", "https://nebdeti.ru/authorization")
HTTP.Send("login=" login "&pass=" pass)
HTTP.WaitForResponse()
;RTxt := HTTP.ResponseText
;msgbox % RTxt
msgbox % HTTP.GetAllResponseHeaders

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Wed, 07 Feb 2024 13:22:53 +0000

Если файл скачивается только при отправки в хедерсах рефёрера, то если так файл скачивается, то запись правильная:

headers =
(
header1: qwert
referer: %url%
header2: qwertyu
)

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Wed, 07 Feb 2024 13:12:51 +0000

Именно куков в дополнение должно быть достаточно - это видно по работе кода через ком объект для ПДФ-файлов небольшого размера, которые нормально грузятся с реферером и логином. Что означает, что куки из логина они подхватывают и скачивают файл. Но код для winhttp.dll нужен для скачивания больших файлов, но в нем непонятно, как прописывать несколько хедеров, и посмотреть нет возможности, так как код мало использовался.

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Wed, 07 Feb 2024 13:07:26 +0000

Чтобы понимать почему не работает надо копаться с сайтом, может юзер-агент должен быть идентичным, может еще что, может куки не те отправляете.
Мне в этом копаться неинтересно.

headers =
(
header1: qwert
referer: %url%
header2: qwertyu
)

Если реферер отправляется, то запись правильная.

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Wed, 07 Feb 2024 13:03:59 +0000

Я проверил — не работает. Просто вы сказали что без понятия, почему не срабатывает - из чего могло следовать, что по формату должно срабатывать.

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Wed, 07 Feb 2024 12:58:33 +0000

А кто вам мешает проверить это самому?

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Wed, 07 Feb 2024 12:55:03 +0000

Имелось в виду, как в этом коде правильно указать более одного хедера? То есть, до моей правки на реферер, там был хедер для диапазона байтов:

headers := "Range: bytes=0-450673718"

А в каком формате к нему добавлять еще один хедер? Или это правильный формат? -

headers =
(
referer: %url%
cookie: %cookie%
)