开发者

how to handle IE Download dialog with VB Script?

开发者 https://www.devze.com 2023-03-02 00:50 出处:网络
how to save file automatically in particular location using VB Script开发者_JS百科 ? or How is it possible to Download file to particular location in IE without interacting

how to save file automatically in particular location using VB Script开发者_JS百科 ?

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

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

Thanks.


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.

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.

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


Forcing a file download in Internet Explorer is extremely bad practice. It's also a security risk. That's why there are no native methods for doing this. Can you provide a good reason for needing this? Otherwise, I'm not going to provide a solution for the reasons I've just stated.

0

精彩评论

暂无评论...
验证码 换一张
取 消