如何使用 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 中强制下载文件是极其糟糕的做法。这也是一个安全风险。这就是为什么没有本地方法可以做到这一点。你能提供一个需要这个的充分理由吗？否则，我不会因为我刚才所说的原因提供解决方案。