如何使用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