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

Question

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

或者如何将文件下载到IE中的特定位置而不需要与下载对话框交互 ？

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

谢谢。

Answer 1

强制在Internet Explorer中下载文件是非常糟糕的做法。这也是一个安全风险。这就是为什么没有本地方法来做到这一点。你能提供一个很好的理由来解决这个问题吗？否则，我不会为我刚才陈述的原因提供解决方案。

Answer 2

我们通过硒测试为文件对话做的工作就是利用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