如何使用 VB 脚本处理 IE 下载对话框？

Question

如何使用 VB 脚本在特定位置自动保存文件？

或者如何在不交互的情况下将文件下载到 IE 中的特定位置 有下载对话框？

最终我需要从 IE 自动将文件保存到特定位置。

谢谢。

Answer 1

我们对 selenium 测试的文件对话框所做的是利用 AutoIt，这是一个免费的脚本工具，可以创建与 Windows 组件对象模型交互的可执行文件——包括文件保存对话框。

我要做的是制作一个简单的脚本，将文件保存在您想要的位置，编译为可执行文件，然后在 VBScript 中调用该程序。

这是我们用于下载 excel 文件的脚本，虽然它可能比您需要的要复杂一些。

WinWait("File Download", "", 60)
WinActivate("File Download")
IF WinActive("File Download") Then
    Sleep (500)
    SendKeepActive ("File Download")
    Send("!s")
    WinWait("Save As")
    WinActivate("Save As")
    Sleep (500)
    SendKeepActive ("Save As")
    If $CMDLine[0] > 0 Then
        Send($CMDLine[1])
    ELSE
        Send("C:\Windows\Temp\latestAutotestExport.xls")
    ENDIF
    Send("!s")
    Sleep (500)
    If WinActive("Save As") Then
        WinActivate("Save As")
        Sleep (500)
        SendKeepActive ("Save As")
        Send("!y")
        Sleep (15000)
    EndIf
    If WinActive("Download complete") Then
        WinClose("Download complete")
    EndIf
    WinClose("Blank Page - Windows Internet Explorer")
Else
    WinActivate("Microsoft Office Excel")
    IF WinActive("Microsoft Office Excel") Then
        Send("y")
    EndIf
    Sleep(500)
    Send("{F12}")
    If $CMDLine[0] > 0 Then
        Send($CMDLine[1])
    ELSE
        Send("C:\Windows\Temp\latestAutotestExport.xls")
    ENDIF
    Send("!s")
    Send("y")
    Send("!y")
    Send("!y")
    Sleep(5000)
    ProcessClose("EXCEL.EXE")
    Sleep(5000)
    WinClose("Blank Page - Windows Internet Explorer provided by Yahoo!")
EndIF

Answer 2

在 Internet Explorer 中强制下载文件是非常糟糕的做法。这也是一个安全风险。这就是为什么没有本地方法可以做到这一点。你能提供一个需要这个的充分理由吗？否则，我不会因为刚才所说的原因提供解决方案。