Code: Select all
UrlDownload(Url) {
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", Url, true)
whr.Send()
; Using 'true' above and the call below allows the script to remain responsive.
whr.WaitForResponse()
return whr.ResponseText
}
Code: Select all
#+i::
MyIp(){
page:=urldownload("https://myip.is/")
msgbox %page%
}