之前的程序一直适用正常，昨天开始对应功能无法正常使用，后来发现是在 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
