xmlhttp send 有关问题 已经困扰一天了！

xmlhttp send 问题 已经困扰一天了！！
之前程序已经正常使用一年多，昨天10点过后突然无响应 ，后来调试源代码发现是在xmlhttp1.send 这个地方出问题，一到该步骤  程序就无响应。  我简化出如下代码 【因为就是这块在我电脑上出问题】生成exe， 到其他电脑上运行 。在自己电脑上始终不行，在一些论坛也请网友测试  代码运行正常！  所以我断定是我系统的原因！    但是之前都使用的好好的 ，  只有昨天上午因为需要 将Chorme浏览器设置了代理IP， 后来也改回正常设置了况且以前也经常设置代理Ip。  我也不知出现该问题和设置代理IP是否有直接原因！？ 对应msxml3.dll也重新install过，确实没法子了.....纠结是什么原因 ，该如何处理  ？ 希望有大神帮忙解决啊。。。

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

------解决思路----------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections

这个节点下的内容 全部删掉 试试