Code: Select all
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://www.autohotkey.com", true)
whr.Send(), whr.WaitForResponse(), version := whr.ResponseText
Code: Select all
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://www.autohotkey.com", true)
whr.Send(), whr.WaitForResponse(), version := whr.ResponseText
Code: Select all
MsgBox % webGet("http://www.autohotkey.com")
webGet(url) {
Try whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
Catch
Return
whr.SetTimeouts(0, 30000, 30000, 600000)
whr.Open("GET", url, False)
Try {
whr.Send()
Sleep 100
response := whr.ResponseText
}
Catch, err
errMsg := "Problem: " err.Extra
. "`nFile: " err.File
. "`nLine: " err.Line
. "`n " err.What
. "`nError: " err.Message
Return response
}
Users browsing this forum: Kintaro-OEx, Marium0505 and 174 guests