Microsoft.XMLHTTP同步调用怎么设置超时时间？经常卡死啊？
Dim XMLObject As XMLHTTP
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.open "GET", StrURL, False
XMLObject.send
DoEvents
StrHTMLPage = XMLObject.responseText
上面的代码，有时很正常，但有时就卡死了，几十分钟都没反应。要怎么设置超时或解决“卡死”？
[解决办法]
异步调用。
XMLObject.open "GET", StrURL, 是否异步
如果是异步话，取返回值就不是下面的=了
