是否有另一个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