Code: Select all
oWHR := ComObjCreate("WinHttp.WinHttpRequest.5.1")
oWHR.Open("GET", "http://www.netikus.net/show_ip.html")
oWHR.Send()
IP := oWHR.ResponseText
oWHR := ""
MsgBox,% "IP: " IP
Return
Code: Select all
oWHR := ComObjCreate("WinHttp.WinHttpRequest.5.1")
oWHR.Open("GET", "http://www.netikus.net/show_ip.html")
oWHR.Send()
IP := oWHR.ResponseText
oWHR := ""
MsgBox,% "IP: " IP
Return