如何处理IE下载对话框，VB脚本？ [英] how to handle IE Download dialog with VB Script?

问题描述

如何在特定的环境下使用VB脚本自动保存文件？

how to save file automatically in particular location using VB Script ?

或怎么可能下载文件，具体位置在IE中没有互动
与下载对话框？

or How is it possible to Download file to particular location in IE without interacting with Download dialog ?

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

Ultimately I need to save file in particular location from IE automatically.

感谢。

推荐答案

我们的文件对话框与我们的Selenium测试什么是杠杆的 AutoIt的，一个免费的脚本工具，创建一个与Windows组件对象模型交互的可执行文件 - 包括文件保存对话框

What we do for file dialogs with our selenium tests is to leverage AutoIt, a free scripting tool that creates executables that interact with the windows component object model--including file save dialogs.

我会做的是做一个简单的脚本保存在文件中所需的位置，编译为可执行文件，然后在VBScript中调用该程序。

What I would do is make a simple script that saves the file in your desired location, compile to an executable, and then in VBScript call that program.

下面是我们用来下载Excel文件的脚本，虽然它可能会有点比你需要的更复杂。

Here is a script we use for downloading excel files, although it may be a bit more complicated than what you need.

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

这篇关于如何处理IE下载对话框，VB脚本？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！