2
是否有另一个ProgID而不是“MSXML2.XMLHTTP”,它允许您在中设置超时VBScript? OnReadyStateChange或类似的也必须在VBScript中工作。HTTP Resquest的超时
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