whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "http://site.ru/test.php", true)
whr.Send()
SCM(CWHITE, "Загрузка...") ; необязательно, можно убрать
whr.WaitForResponse(30) ; 30 секунд - максимальное время ожидания ответа
if(RegExMatch(whr.ResponseText, "text1"))
    SCM(CWHITE, "Найдено то, что нужно")
else
    SCM(CWHITE, "Найдено " whr.ResponseText)

try
{
hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
hObject.Open("GET", "http://ganjafarm.ru/", true)
hObject.Send()
hObject.WaitForResponse(30)
codepage:=hObject.ResponseText   
if(RegExMatch(codepage, "Начать игру"))
    msgbox, найден текст
else
    msgbox, нет такого
}
catch ex
{
    msgbox, Ошибка запроса
}