Code: Select all
WinHTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
;WinHTTP := ComObjCreate("Msxml2.XMLHTTP.6.0")
WinHTTP.Open("GET", "https://api.europeana.eu/record/473/https___www_esbirky_cz_detail_328612.json?wskey=nLbaXYaiH", 1)
WinHTTP.SetRequestHeader("Upgrade-Insecure-Requests","1")
WinHTTP.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")
WinHTTP.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")
WinHTTP.SetRequestHeader("Sec-Fetch-Site","none")
WinHTTP.SetRequestHeader("Sec-Fetch-Mode","navigate")
WinHTTP.SetRequestHeader("Sec-Fetch-User","?1")
WinHTTP.SetRequestHeader("Sec-Fetch-Dest","document")
WinHTTP.SetRequestHeader("Accept-Encoding","gzip, deflate, br")
WinHTTP.SetRequestHeader("Accept-Language","ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7")
WinHTTP.SetRequestHeader("referer","https://api.europeana.eu")
WinHTTP.SetRequestHeader("Cache-Control","max-age=0")
WinHTTP.SetRequestHeader("If-Modified-Since","Mon, 31 Jan 2022 11:04:15 GMT")
WinHTTP.Send()
WinHTTP.WaitForResponse()
RTxt := WinHTTP.ResponseText