QueryResponseWebsite(url) ; На вход получает URL. Открывает ссылку URL и в переменную "AnswerWebsite" сохраняет ответ с сайта.
{
	global AnswerWebsite
	ComObjError(False) 
	HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1") 
	HTTP.SetTimeouts(6000,6000,6000,6000)
	HTTP.Open("GET",url) 
	HTTP.Send() 
	AnswerWebsite := HTTP.ResponseText
}