Option Explicit
Dim wsh, Hh
Set wsh = WScript.CreateObject("WScript.Shell")
Set Hh = CreateObject("Internet.HHCtrl")
wsh.Run(""".\browser.exe"" --user-data-dir=UserData --extra-plugin-dir=Plugins --allow-outdated-plugins --always-authorize-plugins --no-default-browser-check --enable-download-resumption --enable-fast-unload --javascript-harmony --save-page-as-mhtml --flag-switches-begin --flag-switches-end --disable-client-side-phishing-detection --profile-info --disable-field-trial-config --enable-proprietary-video-hw-decoding --enable-in-process-wmf-demuxer --external-app-null-path --external-app-data=null_data")
Hh.TextPopup "Подождите, Яндекс.Браузер загружается...", "Lucida Console,16", 1, 1, 1, vbYellow
WScript.Sleep 5000
Hh.TextPopup "Почти готово...", "Courier New,36", 1, 1, 1, 1
WScript.Sleep 3000
Set Hh = Nothing
Set wsh = Nothing
|
