Local $language_selection = "Russian" _Languages() If not (ControlCommand("Regional and Language Options", "Advanced", "ComboBox1", "GetCurrentSelection") == $language_selection) Then _prereboot() Else _postreboot() EndIf func _prereboot() ; WinWait("frm_splash") ; WinClose("frm_splash") ControlCommand("Regional and Language Options", "Advanced", "ComboBox1", "SelectString", $language_selection) ControlClick("Regional and Language Options", "Advanced", "Button7") WinWait("Advanced", "skip file copying and use the existing files") ControlClick("Advanced", "skip file copying and use the existing files", "Button1") WinWait("Change Regional Options", "Do you want to restart your computer now?", 3) ControlClick("Change Regional Options", "Do you want to restart your computer now?", "Button2") ControlClick("Regional and Language Options", "Advanced", "Button5") _RunOnce() Shutdown(2) EndFunc Func _RunOnce() Local $key = 'HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce' If @Compiled Then RegWrite($key, '_AMPOET', 'Reg_sz', '"' & @ScriptFullPath & '" /postrun') Else RegWrite($key, '_AMPOET', 'Reg_sz', '"' & @AutoItExe & '" "' & @ScriptFullPath & '" /postrun') EndIf EndFunc Func _postreboot() WinClose("Regional and Language Options") Run("D:\setup.exe") WinWait("Северная энциклопедия", "ПРЕДУПРЕЖДЕНИЕ") ControlClick("Северная энциклопедия", "ПРЕДУПРЕЖДЕНИЕ", "Button1") WinWait("Северная энциклопедия", "Выбор типа установки") ControlClick("Северная энциклопедия", "Выбор типа установки", "Button1") WinWait("Северная энциклопедия", "Выбор каталога установки") ControlClick("Северная энциклопедия", "Выбор каталога установки", "Button1") WinWait("Северная энциклопедия", "Выбор группы в меню ""Программы""") ControlClick("Северная энциклопедия", "Выбор группы в меню ""Программы""", "Button1") WinWait("Северная энциклопедия", "Начало установки") ControlClick("Северная энциклопедия", "Начало установки", "Button1") WinWait("Северная энциклопедия", "Установка Северной Энциклопедии на ваш компьютер успешно завершена.") ControlClick("Северная энциклопедия", "Установка Северной Энциклопедии на ваш компьютер успешно завершена.", "Button1") Run("C:\Program Files\UAEnc\Encycl.exe") EndFunc Func _Languages() ShellExecute("Control.exe", "C:\WINDOWS\system32\intl.cpl") WinWait("Regional and Language Options", "Regional Options") ControlCommand("Regional and Language Options", "Regional Options", "SysTabControl321", "TabRight") WinWait("Regional and Language Options", "Languages") ControlCommand("Regional and Language Options", "Languages", "SysTabControl321", "TabRight") WinWait("Regional and Language Options", "Advanced") EndFunc