AutoIt Script 7-Zip installation

#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}")