Code: Select all
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Open("GET", "http://www.google.com/", True)
WebRequest.SetRequestHeader("Accept", "text/html, application/xhtml+xml, */*")
WebRequest.SetRequestHeader("User-Agent", "Android")
WebRequest.Option(6) := False
WebRequest.Send()
WebRequest.WaitForResponse()
msgbox % WebRequest.ResponseText
Code: Select all
Option(index)
{
set
{
if (index = 6)
this.Option(index) := value
}
}