xmlhttp send超时无响应，该如何解决！

Question

之前的程序一直适用正常，昨天开始对应功能无法正常使用，后来发现是在 xmlHTTP1.send这一步出现问题，一直得不到回馈！造成程序卡死 ； 改用True 异步会一直在while循环，也得不到想要的结果。请谁帮忙看看这段VB代码【简化了】复制到你电脑上运行运行 正常不 ？ 或者其他什么解决办法！ 实在没头绪了，难道自己电脑问题 ？

Private Sub TEST_Click()
On Error GoTo ERR
Dim xmlHTTP1 As Object
Dim WebCode As String
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.open "get", "http://www.baidu.com", false
xmlHTTP1.send 
While xmlHTTP1.readyState <> 4
DoEvents
Wend
WebCode = xmlHTTP1.responseText
MsgBox WebCode
Set xmlHTTP1 = Nothing 
ERR:

MsgBox "未知错误"

end sub

Answer 1

sleep 1
xmlhttp1.send
这样行不行？=_=