Excel Internet Explorer自动化导致IE环境崩溃

Question

我已经成功地使VBA Excel宏自动化，以遍历循环并命中一系列URL来触发服务器端脚本-只需完成以下操作即可：

myIE.Navigate ("http://someURL.php?VARIABLE=" & var_string)

遍历循环时在循环内分配var_string位置。 在此之前，我已经使用以下方法清除了缓存，Cookie和历史记录：

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess #

我尝试了许多＃，包括8,2、16等，以查看其中的任何一个是否有效果（以及＃的组合）。

我遇到的问题是，尽管整个脚本SOMETIMES都能正常工作，但如果我第二次运行它，即使该域/ URL完全可用并且可以正常运行，我导航到该URL的行也无法调用该URL。 我手动在IE窗口中键入的任何其他URL都可以正常工作-只是我在循环内调用的URL不起作用。 IE暂时将我锁定在该域之外。 如果我在上次运行该脚本后几小时返回该脚本，则通常可以正常运行。

同样，该域可以正常工作并且脚本很好-我一直在另一台计算机上对其进行验证。

就好像我在环境中设置某些东西并在VBA中破坏Internet Explorer一样，尽管脚本非常简单。

我已经为myIE对象尝试过CreateObject() ， GetObject以及InternetExplorerMedium 。

Answer 1

如果您需要的只是“触摸”该URL的副作用，那么您也可以使用XMLHTTP对象。 在VBA中，转到菜单工具，然后选择引用，然后选择Microsoft XML v6.0。 然后：

Dim Request As New XMLHTTP
Request.open "GET", Url & "?VARIABLE=" & var_string, False
Request.send
' Check Request.status, probably for 200

一些注意事项：

• 如果您在缓存方面遇到问题，则可能要使用POST而不是GET
• 如果服务器可以处理，则应在POST正文中传递数据
• var_string的值应转义，在这种情况下，应使用网址编码
• 如果您不想阻塞等待响应，则可以异步发出请求（ True为open第三个参数）

根据这些说明，下面是一个更详细的示例：

Dim Request As New XMLHTTP
Request.open "POST", Url, True
Dim Handler As New CXMLHTTPHandler
Handler.Initialize Request
Set Request.onreadystatechange = Handler
Request.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"    
Request.send UrlEncode("VARIABLE") & "=" & UrlEncode(var_string)
' This returns immediately, the check must now be done in the Handler

对于缺少的部分，这是CXMLHTTPHandler的代码 ，我实际上是通过stackoverflow找到的，以及在stackoverflow定义的UrlEncode 。

您应该根据需要专门化CXMLHTTPHandler ，甚至可能使它接受一个AddressOf过程并在实际的默认过程中调用它。 当m_xmlHttp.readyState为4时，默认过程应将m_xmlHttp设置为Nothing 。

---

编辑1：如果您的请求代码处于循环中，则需要将Dim ... New语句分成两部分，以确保您使用的是新对象：

Dim Request As XMLHTTP
Set Request = New XMLHTTP
Request.open "POST", Url, True
Dim Handler As CXMLHTTPHandler
Set Handler = New CXMLHTTPHandler
Handler.Initialize Request
Set Request.onreadystatechange = Handler
Request.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"    
Request.send UrlEncode("VARIABLE") & "=" & UrlEncode(var_string)
' This returns immediately, the check must now be done in the Handler