[Lubitel Softa]

Приведу свой скрипт, работает отлично... уж на сколько машин им был поставлен Алкоголь. Если что-то не правильно у меня в скрипте (что-то лишнее, чего-то не хватает и т.д.), прокомментируйте, с удовольствием выслушаю мнение мастеров AutoIt.

читать дальше »

Код:

;Запрос админских прав доступа
#RequireAdmin

;Привязка мыши к клиентской части окна
AutoItSetOption ("MouseCoordMode", 2)

;Предотвращение множественного запуска скрипта
If WinExists (@ScriptName) Then Exit
AutoItWinSetTitle (@ScriptName)

Global $file = @ScriptDir & "\Alcohol120_retail_2.0.1.1820.exe"


;Прописывание языка программы установки
RegWrite ('HKEY_LOCAL_MACHINE\SOFTWARE\Alcohol Soft\Alcohol 120%')
Sleep (1000)
RegWrite ('HKEY_LOCAL_MACHINE\SOFTWARE\Alcohol Soft\Alcohol 120%', 'Installer Language', "REG_SZ", '1049')

;Установка программы
Run ($file)

WinWait ("Alcohol 120% 2.0.1.1820", "приветствует")
If Not WinActive ("Alcohol 120% 2.0.1.1820", "приветствует") Then
	WinActivate ("Alcohol 120% 2.0.1.1820", "приветствует")
EndIf
Sleep (1000)
ControlClick ("Alcohol 120% 2.0.1.1820", "приветствует", "&Далее >")

WinWait ("Alcohol 120% 2.0.1.1820 ", "Лицензионное")
If Not WinActive ("Alcohol 120% 2.0.1.1820 ", "Лицензионное") Then
	WinActivate ("Alcohol 120% 2.0.1.1820 ", "Лицензионное")
EndIf
Sleep (1000)
ControlClick ("Alcohol 120% 2.0.1.1820 ", "Лицензионное", "Принима&ю")

WinWait ("Alcohol 120% 2.0.1.1820 ", "Компоненты")
If Not WinActive ("Alcohol 120% 2.0.1.1820 ", "Компоненты") Then
	WinActivate ("Alcohol 120% 2.0.1.1820 ", "Компоненты")
EndIf
Sleep (1000)
MouseClick ("left", 187, 177, 1)
Sleep (1000)
ControlClick ("Alcohol 120% 2.0.1.1820 ", "Компоненты", "&Далее >")

WinWait ("Alcohol 120% 2.0.1.1820 ", "Выбор")
If Not WinActive ("Alcohol 120% 2.0.1.1820 ", "Выбор") Then
	WinActivate ("Alcohol 120% 2.0.1.1820 ", "Выбор")
EndIf
Sleep (1000)
ControlClick ("Alcohol 120% 2.0.1.1820 ", "Выбор", "&Установить")

WinWait ("Alcohol 120% 2.0.1.1820 ", "Завершение")
If Not WinActive ("Alcohol 120% 2.0.1.1820 ", "Завершение") Then
	WinActivate ("Alcohol 120% 2.0.1.1820 ", "Завершение")
EndIf
Sleep (1000)
ControlCommand ("Alcohol 120% 2.0.1.1820 ", "Завершение", "&Запустить Alcohol 120%", "UnCheck")
Sleep (1000)
ControlCommand ("Alcohol 120% 2.0.1.1820 ", "Завершение", "Добавить виртуальный накопитель Alcohol", "UnCheck")
Sleep (1000)
ControlClick ("Alcohol 120% 2.0.1.1820 ", "Завершение", "&Готово")

ProcessWaitClose ("Alcohol120_retail_2.0.1.1820.exe")

...... дальше тут запуск кейгена от БетаМастер, я это пропускаю.

У меня только снимается галочка с "Служба iSCSI" ибо мне не нужно расшаривать виртуальный дисковод по сети (по-моему это вообще никому не нужно). Задержку в 1 секунду сделал для слабых компов, чтобы то барахло успевало переваривать.