将下载的文件保存在IE 11中

Question

我试图识别已打开的IE窗口并保存下载的文件[.xml]。我正在使用this online XML editor进行测试。所以一旦＆＃34;你想打开或保存file.xml＆＃34;出现弹出窗口我需要使用.vbs文件自动保存文件。

Dim objIE
Dim ObjShell
Set ObjShell = CreateObject("Shell.Application")
For Each wnd In ObjShell.Windows
  If InStr(1, wnd.FullName, "iexplore.exe", vbTextCompare) > 0 Then
    Set objIE = wnd
    Exit For
  End If
Next

WScript.Sleep 500
ObjShell.SendKeys "%{s}"

上面的脚本返回运行时错误：

  

对象不支持此属性或方法：＆＃39; SendKeys＆＃39;。

有什么办法可以使用VBScript在IE11中保存已下载的文件？