Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #cs ----------------------------------------------------------------------------
- AutoIt Version: 3.3.8.1
- Author: http://SerW.name
- Script Function:
- 7z920-x64 installation, configuration and localization AutoIt script.
- #ce ----------------------------------------------------------------------------
- ; Если скрипт не работает на более поздних версиях программ, чем те, для которой
- ; был написан изначально, обратите внимание на строки 30 и 31
- ; Предотвращение возможности множественного запуска скрипта
- If WinExists(@ScriptName) Then Exit
- AutoItWinSetTitle(@ScriptName)
- ; Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
- AutoItSetOption("TrayIconDebug", 1)
- AutoItSetOption("SendKeyDelay", 10)
- #include <File.au3>
- $sPath = @ScriptDir ; путь к каталогу, где лежит *.msi файл
- $aMsiFiles = _FileListToArray($sPath, "7z*.msi", 1)
- If $aMsiFiles <> 0 Then ; если найден хотя бы один файл, то выполняем условие
- ShellExecute ($sPath & "\" & $aMsiFiles[1]) ; запускаем первый файл
- EndIf
- Global $Title='7-Zip'
- Global $Title1='Options'
- ; Welcome to the 7-Zip 9.20 Setup Wizard
- WinWaitActive($Title)
- Send("!n")
- ; End-User License Agreement
- WinWaitActive($Title, "License Agreement")
- Send("{SPACE}")
- Send("!n")
- ; Custom Setup
- WinWaitActive($Title, "Tree of selections")
- Send("{DOWN 2}")
- Send("{SPACE}")
- Send("{DOWN 3}")
- Send("{ENTER}")
- Send("!n")
- ; Ready to Install
- WinWaitActive($Title, "Install")
- Send("!i")
- ; Choose Components
- WinWaitActive($Title)
- Send("!i")
- ; Completing the 7-Zip 9.20 Setup Wizard
- WinWaitActive($Title, "Finish")
- Send("!f")
- ; Configuration
- Run(@ProgramFilesDir & '\7-Zip\7zFM.exe')
- ; Options
- WinWaitActive("7-Zip File Manager")
- Send("{F9}")
- Send("!t")
- Send("{o}")
- ; System
- WinWaitActive($Title1, "System")
- ControlClick($Title1, "System", "Button1")
- ControlClick($Title1, "System", "SysListView321")
- Send("{DOWN 13}")
- Send("{SPACE}")
- ; 7-Zip
- Send("^{TAB}")
- Send("{TAB 2}")
- dim $var1
- For $var1=0 to 2
- Send("{DOWN}")
- Send("{SPACE}")
- Next
- Send("{DOWN 3}")
- Send("{SPACE}")
- Send("{DOWN}")
- dim $var2
- For $var2=0 to 4
- Send("{DOWN}")
- Send("{SPACE}")
- Next
- ; Settings
- Send("^{TAB 3}")
- Send("!s") ; &Single-click to open an item
- ; Копируем русскую локализацию
- FileCopy('Lang\*.*', @ProgramFilesDir & '\7-Zip\Lang\', 9)
- ; Language
- WinWaitActive($Title1, "Settings")
- Send("^{TAB}")
- Send("{DOWN}") ; Выбор русского языка
- Send("{ENTER}")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement