Тема: AHK: Скачивание меняющейся ссылки
Судя по браузеру, ссылка из кода при переходе меняется, отбрасывая эту часть: -kn-1-5-9. Как получить перенаправляющую ссылку из RequestHeader?
url:= "https://azbyka.ru/otechnik/Avrelij_Avgustin/svjatitel-avgustin-ipponijskij-o-kreshhenii-protiv-donatistov-kn-1-5-9/"
HTTPMsxml2 := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
;HTTPMsxml2 := ComObjCreate("Msxml2.XMLHTTP.6.0")
HTTPMsxml2.Open("GET", url, 1)
HTTPMsxml2.SetRequestHeader("Pragma", "no-cache")
HTTPMsxml2.SetRequestHeader("Cache-Control", "no-cache, no-store")
HTTPMsxml2.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTPMsxml2.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36")
HTTPMsxml2.SetRequestHeader("authority", "azbyka.ru")
HTTPMsxml2.SetRequestHeader("scheme", "https")
;HTTPMsxml2.SetRequestHeader("path", url)
HTTPMsxml2.SetRequestHeader("upgrade-insecure-requests", "1")
HTTPMsxml2.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")
HTTPMsxml2.SetRequestHeader("sec-fetch-site", "none")
HTTPMsxml2.SetRequestHeader("sec-fetch-mode", "navigate")
HTTPMsxml2.SetRequestHeader("sec-fetch-user", "?1")
HTTPMsxml2.SetRequestHeader("sec-fetch-dest", "document")
HTTPMsxml2.SetRequestHeader("accept-encoding", "gzip, deflate, br")
HTTPMsxml2.SetRequestHeader("referer", "https://azbyka.ru")
HTTPMsxml2.Send()
HTTPMsxml2.WaitForResponse()
ResponseHeaders := HTTPMsxml2.getAllResponseHeaders() ;!!
msgbox, ResponseHeaders:`n`n%ResponseHeaders%
html := HTTPMsxml2.ResponseText
msgbox % html
ExitApp
