29 lines
2.0 KiB
Plaintext
29 lines
2.0 KiB
Plaintext
|
|
' ---------------------------------------------------------------------------------------
|
|
' Set Firefox to automatically download files without popup to a target folder
|
|
' ---------------------------------------------------------------------------------------
|
|
|
|
Class Script
|
|
Dim driver
|
|
|
|
Sub Class_Initialize
|
|
folder = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "firefox_download"
|
|
|
|
Set driver = CreateObject("Selenium.FirefoxDriver")
|
|
driver.SetPreference "pdfjs.disabled", True
|
|
driver.SetPreference "browser.download.dir", folder
|
|
driver.SetPreference "browser.download.folderList", 2
|
|
driver.SetPreference "browser.helperApps.neverAsk.saveToDisk", "application/pdf"
|
|
|
|
driver.Get "http://static.mozilla.com"
|
|
driver.Get "/moco/en-US/pdf/mozilla_privacypolicy.pdf"
|
|
|
|
WScript.Echo "Click OK to close the browser"
|
|
End Sub
|
|
|
|
Sub Class_Terminate
|
|
driver.Quit
|
|
End Sub
|
|
End Class
|
|
|
|
Set s = New Script |