Тайм-аут запроса HTTP

Question

Я пытаюсь проверить веб-страницу, авторизована она или нет. Для этого я использовал win http GET запрос для google, чтобы проверить это. Но я получаю

«Ошибка истечения времени операции»

после команды отправки.

Также пробовал с xmlHTTP и serverxmlHTTP.

Dim xmlHTTP As Object
Dim html As Object
Dim url As String


url = "https://www.google.com/"

'
'Set xmlHTTP = CreateObject("MSXML2.XMLHTTP")

Set xmlHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

xmlHTTP.SetTimeouts 10000, 10000, 10000, 10000


xmlHTTP.Open "GET", url, False
'xmlHTTP.setRequestHeader "Content-Type", "text/xml"
xmlHTTP.send

Set html = CreateObject("htmlfile")
html.body.innerHTML = xmlHTTP.responseText

Ошибка «Тайм-аут операции» после команды «Отправить».