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

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Thu, 25 May 2023 19:33:22 +0000

Всё что используете желательно понимать, тогда не будет однотипных вопросов - "почему не скачивается".
По дефалту включены просто редиректы, с https на http нет.
Изучайте:
https://learn.microsoft.com/en-us/windo … uestoption

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 25 May 2023 19:31:59 +0000

В целом виде не огрызок, но после извлечения вы его так назвали.

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 25 May 2023 19:30:20 +0000

А если они по дефалту включены - надо ли их понимать в данном случае?

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Thu, 25 May 2023 19:28:33 +0000

Нет, там разработчик понимал, что пишет.
А вы, подозреваю, не понимаете эту часть:

;Включаем редиректы
HTTP.Option(WinHttpRequestOption_EnableRedirects) := -1
;Включаем редиректы с HTTP на HTTPS
HTTP.Option(WinHttpRequestOption_EnableHttpsToHttpRedirects) := -1
;Выставляем максимальное количество автоматических редиректов
HTTP.Option(WinHttpRequestOption_MaxAutomaticRedirects) := 20

john_dease пишет:

При этом, если убрать этот огрызок с редиректами - там не сработает.

Там не огрызок.

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 25 May 2023 19:27:41 +0000

При этом, если убрать этот огрызок с редиректами - там не сработает (с ссылкой для bl).

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 25 May 2023 19:26:31 +0000

Но там же вроде то же самое, что и у меня: get-запрос, send?

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Thu, 25 May 2023 19:24:08 +0000

Ничего странного, так как там не огрызок.

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 25 May 2023 19:21:43 +0000

Отсюда: http://forum.script-coding.com/viewtopi … 045#p81045. Как ни странно, но с кодом по ссылке, страница скачивается.

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Thu, 25 May 2023 19:17:51 +0000

Откуда у вас этот огрызок кода?

;Включаем редиректы

Включать их не надо - они по дефалту включены.

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 25 May 2023 19:14:42 +0000

Пробовал с редиректом:


;Включаем редиректы
HTTP.Option(WinHttpRequestOption_EnableRedirects) := -1
;Включаем редиректы с HTTP на HTTPS
HTTP.Option(WinHttpRequestOption_EnableHttpsToHttpRedirects) := -1
;Выставляем максимальное количество автоматических редиректов
HTTP.Option(WinHttpRequestOption_MaxAutomaticRedirects) := 20

global HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1") 


HTTP.Open("GET", "https://www.bl.uk/manuscripts/FullDisplay.aspx?ref=burney_ms_169", 1)
;HTTP.SetProxy(2, proxy)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.0.0 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.Send()
HTTP.WaitForResponse()
ResponseHeaders := HTTP.getAllResponseHeaders()
RTxt := HTTP.ResponseText

msgbox %ResponseHeaders%`n`n%RTxt%

И с последовательной загрузкой первой и третьей ссылки:

HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")

HTTP.Open("GET", "https://www.bl.uk/manuscripts/SetupFullDisplayHandler.ashx?ref=burney_ms_169", 1)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.0.0 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.Send()
HTTP.WaitForResponse()


HTTP.Open("GET", "https://www.bl.uk/manuscripts/FullDisplay.aspx?ref=burney_ms_169", 1)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.0.0 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.Send()
HTTP.WaitForResponse()
ResponseHeaders := HTTP.getAllResponseHeaders()
RTxt := HTTP.ResponseText
msgbox %ResponseHeaders%`n`n%RTxt%

Но оба не срабатывают.

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Thu, 25 May 2023 18:57:05 +0000

Вам не надо повторять 2 запрос - он http - достаточно первый и третий.
Или разрешить редирект с https на http в опциях Winhttp и посылать только третий.

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 25 May 2023 18:49:47 +0000

Если предварительно почистить из браузера куки этого сайта, то в самый первый раз там идут такие 3 гет-запроса


https://www.bl.uk/manuscripts/SetupFullDisplayHandler.ashx?ref=burney_ms_169
http://www.bl.uk/manuscripts/FullDisplay.aspx?ref=burney_ms_169
https://www.bl.uk/manuscripts/FullDisplay.aspx?ref=burney_ms_169

При этом если последовательно повторить их, то так же скачивание не происходит.

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Thu, 25 May 2023 18:19:01 +0000

Зачем вы опять шлете эту кучу хедеров не имея понятия, что они делают?
В броузере смотрите, какие гет запросы происходят до появления нужной вам информации и повторяете их.
Не понимаю, чего здесь сложного?

Re: AHK: WinHTTPRequest

null@example.com (john_dease) — Thu, 25 May 2023 18:14:27 +0000

Как-то дату надо изменить, или убрать вызывающие ошибки хедеры?

HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
;HTTP := ComObjCreate("Msxml2.XMLHTTP.6.0")
HTTP.Open("GET", "https://www.bl.uk/manuscripts/FullDisplay.aspx?ref=burney_ms_169", 1)
;HTTP.SetProxy(2, proxy)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.0.0 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("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("authority", "www.bl.uk")
HTTP.SetRequestHeader("method", "GET")
HTTP.SetRequestHeader("path", "https://www.bl.uk/manuscripts/FullDisplay.aspx?ref=burney_ms_169")
HTTP.SetRequestHeader("scheme", "https")
;HTTP.SetRequestHeader("accept-encoding", "gzip, deflate, br")
HTTP.SetRequestHeader("accept-language", "ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7")
HTTP.SetRequestHeader("cache-control", "max-age=0")
HTTP.SetRequestHeader("referer", "https://www.bl.uk")
HTTP.SetRequestHeader("sec-ch-ua", """ Not A;Brand"";v=""99"", ""Chromium"";v=""102""")
HTTP.SetRequestHeader("sec-ch-ua-mobile", "?0")
HTTP.SetRequestHeader("sec-ch-ua-platform", """Windows""")
HTTP.SetRequestHeader("sec-fetch-dest", "document")
HTTP.SetRequestHeader("sec-fetch-mode", "navigate")
HTTP.SetRequestHeader("sec-fetch-site", "none")
HTTP.SetRequestHeader("sec-fetch-user", "?1")
HTTP.SetRequestHeader("upgrade-insecure-requests", "1")

HTTP.Send()
HTTP.WaitForResponse()
ResponseHeaders := HTTP.getAllResponseHeaders()
RTxt := HTTP.ResponseText

msgbox %ResponseHeaders%`n`n%RTxt%

Re: AHK: WinHTTPRequest

null@example.com (Malcev) — Thu, 25 May 2023 16:22:54 +0000

Изучайте внимательней запросы и ответы.
Куки посылать там ненадо.