当我运行程序时,HTTP请求会冻结,但是当我介入时,HTTP请求不会冻结
该程序从Excel工作簿运行,获取值的列表,build立一个查询string,并将其传递给这一块代码
Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0") xmlHttp.Open "GET", connectionstring, False xmlHttp.setRequestHeader "Content-Type", "text/xml" xmlHttp.send Dim html As Object Set html = CreateObject("htmlfile") html.body.innerHTML = xmlHttp.ResponseText
这是一个循环的一部分,所以它被执行很多次。 如果我进入代码并逐行执行,没有问题,但是当我运行它时,它冻结在xmlHttp.send行上,不是在第一个循环,而是在循环中间的某处(第10次执行也许)。 我是否必须告诉它等待特别提醒? 有任何想法吗? 谢谢
XMLHTTP有一个像IE一样的ReadyState
属性 :
所以这是如何使用它:
xmlHttp.send Do While xmlHttp.readyState <> 4 DoEvents Loop