Microsoft.XMLHTTP同步调用怎么设置超时时间？经常卡死啊？

[ynduanlian]

Dim XMLObject As XMLHTTP
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.open "GET", StrURL, False
XMLObject.send
DoEvents
StrHTMLPage = XMLObject.responseText

上面的代码，有时很正常，但有时就卡死了，几十分钟都没反应。要怎么设置超时或解决“卡死”？

[vansoft]

异步调用。 XMLObject.open "GET", StrURL, 是否异步 如果是异步话，取返回值就不是下面的=了

[ynduanlian]

异步的话，感觉程序流程无法控制，不等返回结果就运行到后面的语句了