2011-02-27 75 views
2

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

回答