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

Question

Есть ли другой * ProgID вместо "MSXML2.XMLHTTP" , который позволяет установить время ожидания в VBScript ? OnReadyStateChange или аналогичный также должны работать в VBScript.

Set oHTTP = CreateObject("MSXML2.XMLHTTP")
oHTTP.timeout = 10000 'Throws an error
oHTTP.Open "GET", "http://www.google.com", True

oHTTP.OnReadyStateChange = GetRef("oHTTP_OnReadyStateChange")

Sub oHTTP_OnReadyStateChange
    ' do something
End sub

oHTTP.Send

Answer 1

Вы можете использовать ServerXmlHttp с setTimeouts или просто использовать windows.XMLHttpRequest .