Автоматическая установка Alcohol 120%, 52%

[МИШАНЧИК]

unikum111, так ведь Alcohol120% retail без патча незапустится и не смонтирует виртуальный привод!
Он напишет:"Данная версия не имеет пробного периода".

[unikum111]

МИШАНЧИК, если его запустит инсталлятор, то в первый раз запустится без всякого патча, попробуйте, сами увидите.

[МИШАНЧИК]

unikum111, по поводупосле инсталляции запускается программа, ждём пока смонтируется виртульный привод, закрываем программу, патчим »
Как правильно реализовать? Добавить строки после того как запустится:

WinWaitActive ( 'Alcohol 120%')
Sleep ( 4000 )
WinClose ( 'Alcohol 120%' )

[unikum111]

МИШАНЧИК, можно и так, но не факт, что сработает на большинстве компов, так как промежуток времени для монтирования приводов может значительно варьироваться в зависимости от разных факторов (от частоты процессора, до количество оперативной памяти т .д.). В общем, нужно поэкспериментировать, отловить окно, которе появляется во время монтирования, дальше дело техники.

[МИШАНЧИК]

unikum111, Вы знаете у меня версия Alcohol 120% 1.9.7.6022 - так вот он даже при первом запуске пишет "Данная версия не имеет пробного периода". Я попробовал на виртуальной машине. Установил Windows и вручную запустил Alcohol.

[*OM*]

Вопрос как установить Алкоголь 120% не перезагружаясь после первого запуска файла установки (вроде после установки SPTD перезагрузка).

Устанавливать буду сам или используя AutoIt. Название файла и версия Alcohol120_trial_1.9.7.6221.exe.

Пробовал так Alcohol120_trial_1.9.7.6221.exe /norestart /Reboot=ReallySupress предложено было перезагрузиться.

Возможно эти ключи только в "Тихом" режиме работают?

Очень жду ответ.

[unikum111]

*OM*, без перезагрузки врядли получиться. Можно либо заранее интерегрировать драйвер в дистриб, либо с перезагрузкой, через RunOnce.

[*OM*]

unikum111 а тут будет уместно обсудить причину по которой Алкоголю требуется перезагрузка?

Зная причину хотя бы будет вектор к приложению энергии мысли :moil:

Может есть возможность обойтись перезапуском какого либо процесса или служб?

И еще вопросы:
Как я понял нужно интегрировать драйвер SPTD в дистрибутив Окна?
И тогда при запуске из WPI к примеру с помощью AutoIT скрипта Алкоголь не потребует перезагрузки?

[j_onion]

Перезагрузка требуется при установке драйвера SPTD. Если отследить процесс RegShot'ом, то видно, что в HKLM\system\currentcontrolset\services\ появляется запись про драйвер sptd.sys. Если найдется способ заставить винду запустить в работу этот драйвер без перезагрузки, то проблема, имхо, исчезнет. (На приклееном скрине ветка с sptd.sys, в архиве изменения, внесенные в реестр при установке SPTD БЕЗ перезагрузки системы)

[unikum111]

Как я понял нужно интегрировать драйвер SPTD в дистрибутив Окна?
И тогда при запуске из WPI к примеру с помощью AutoIT скрипта Алкоголь не потребует перезагрузки? »
Если итегрировать драйвер SPTD, нгапример, через SVPACK то при установке через WPI перезагрузка не потребуется.

[morismoss]

А на забугорном форуме поддержки никто не спрашивал на счёт тихой установки?

[semiono]

Огромное спасибо за скрипт!!!
Только вот controlclick проапдейтили! Я сначало ругаться стал, но потом смекнул...
вообще-то я au3 второй раз лишь вижу и очень далёк от этого.
Вообщем заглянул в history и нашёл. (AutoIt3.exe v3.2.12.1)
...
controlclick($Title,'Not for Business Use','Include the Alcohol Soft Toolbar (recommended).','left',1)
...
controlclick($Title,'Completing the Alcohol','Button4','left',1)
controlclick($Title,'Completing the Alcohol','Add Alcohol Virtual Drive at first run.','left',,1)
...
И ещё из моей самодеятельности

winwaitactive($Title,'Choose Components')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
send('{ENTER}')

Методом тыка подбирал, хотя так и не доходит до мну почему BS (backspace) работает как uncheck? 0O
Тут вообщем я снимаю все чекбоксы, так мне более нравится.
И вообще буквально нельзяли "анчек" какойнить вместо кликов юзать?

PS: я откатил практически все рег-сетингс Alcohol52 и сохранил все его файлики, SPTD у мну предустановлен.
Ставлю InnoSetup - свой билд, захожу в алкоголь и он не может добавить адаптер!
Ставлю поверх оригинальный дистриб, при этом фотографирую реестр - изменений практически ноль!
Но при этом прога уже начинает монтировать! Удаляю (uninst.exe) - опять тоже самое и так раз десять, даже на разных системах.
Кароче я не могу понять что он делает такого что потом адаптер virtual drive становится доступным, хотя в реестре никаких изменений по сравнению с моим инсталлом... хотя драйвера и службы это такие дебри, что я понятия не имею как они заводятся!

PPS: там какой-то iss- конструктор был - я еле распаковал его! Лучше бы скрипт и выложили как есть, чем готовый эксешник.
Ведь конструктор же делаете? Тогда можно бы его поразрабатывать, ато так не интересно! :)

это самое, я имел ввиду, что если свой инсталл делаешь, то автоит другой версии не будет работать правильно с исходным скриптом, потому-что left добавилось!...

[semiono]

Немного переделанный скрипт:
Alcohol_52% 4.12.7.6221, AutoIt 3.2.12.1

$Title='Alcohol'
$SetupFile='Alcohol.exe'
$InstallPath=@ProgramFilesDir & '\Alcohol'

Blockinput(1)

run($SetupFile)

winwaitactive($Title,'Welcome to the Alcohol')
send('{ENTER}')

winwaitactive($Title,'License Agreement')
send('{ENTER}')

if winexists($Title,'Not for Business Use') Then
winwaitactive($Title,'Not for Business Use')
controlclick($Title,'Not for Business Use','Include the Alcohol Soft Toolbar (recommended).','left',1)
sleep(100)
send('{ENTER}')
endif

; отказываемся от установки всех компонентов:
winwaitactive($Title,'Choose Components')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
send('{DOWN} {BS}')
sleep(100)
send('{ENTER}')

winwaitactive($Title,'Choose Install Location')
send($InstallPath)
send('{ENTER}')

winwaitactive($Title,'Completing the Alcohol')

controlclick($Title,'Completing the Alcohol','Button4','left',1)
controlclick($Title,'Completing the Alcohol','Add Alcohol Virtual Drive at first run.','left',1)
sleep(100)
send('{ENTER}')

; удаляем мусор :-
FileDelete($InstallPath & "\uninst.exe")

; устанавливаем значёк на папке программы:

$file = FileOpen($InstallPath & "\desktop.ini", 10)

FileWrite($file, "[.ShellClassInfo]" & @CRLF)
FileWrite($file, "IconFile=Alcohol.exe" & @CRLF)
FileWrite($file, "IconIndex=0" & @CRLF)

FileClose($file)

FileSetAttrib($InstallPath, "+R")

; устанавливаем ярлык в меню "Administrator":

FileCreateShortcut($InstallPath & "\Alcohol.exe", @UserProfileDir & "\SendTo\Alcohol.lnk", $InstallPath, "", "Alcohol", "", "", 0, @SW_SHOWNORMAL)
FileCreateShortcut($InstallPath & "\Alcohol.exe", @ProgramsDir & "\Alcohol.lnk", $InstallPath, "", "Alcohol", "", "", 0, @SW_SHOWNORMAL)

; удаляем ярлыки из меню "All Users":

DirRemove(@ProgramsCommonDir & "\Alcohol 52%", 1)

; Registry
RegWrite("HKLM\Software\Classes\.ccd", "", "REG_SZ", "AlcoholImageFile")
RegWrite("HKLM\Software\Classes\.cue", "", "REG_SZ", "AlcoholImageFile")
;
RegWrite("HKLM\Software\Classes\AlcoholImageFile\DefaultIcon", "", "REG_SZ", "%1")
RegWrite("HKLM\Software\Classes\AlcoholImageFile\ShellEx\ContextMenuHandlers\AlcoholShellEx", "", "REG_SZ", "{32020A01-506E-484D-A2A8-BE3CF17601C3}")
RegWrite("HKLM\Software\Classes\AlcoholImageFile\ShellEx\IconHandler", "", "REG_SZ", "{32020A01-506E-484D-A2A8-BE3CF17601C3}")
;
; устанавливаем ярлык на "MyComputer":
RegWrite("HKLM\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\Alcohol", "", "REG_SZ", "&Alcohol")
RegWrite("HKLM\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\Alcohol\command", "", "REG_SZ", $InstallPath & "\Alcohol.exe")
;
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}", "", "REG_SZ", "IAlcoholShellEx")
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}\ProxyStubClsid", "", "REG_SZ", "{00020424-0000-0000-C000-000000000046}")
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}\ProxyStubClsid32", "", "REG_SZ", "{00020424-0000-0000-C000-000000000046}")
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}\TypeLib", "", "REG_SZ", "{DFFAEA82-07FA-4440-9A52-D54EB21C627F}")
RegWrite("HKLM\Software\Classes\CLSID\Interface\{00C724A3-E741-4CE7-B3E4-2FABB3FA2CBE}\TypeLib", "Version", "REG_SZ", "1.0")
;
RegWrite("HKLM\Software\Classes\CLSID\TypeLib\{DFFAEA82-07FA-4440-9A52-D54EB21C627F}\1.0", "", "REG_SZ", "AXShlEx Library")
RegWrite("HKLM\Software\Classes\CLSID\TypeLib\{DFFAEA82-07FA-4440-9A52-D54EB21C627F}\1.0\0\win32", "", "REG_SZ", $InstallPath & "\AXShlEx.dll")
RegWrite("HKLM\Software\Classes\CLSID\TypeLib\{DFFAEA82-07FA-4440-9A52-D54EB21C627F}\1.0\flags", "", "REG_SZ", "0")
RegWrite("HKLM\Software\Classes\CLSID\TypeLib\{DFFAEA82-07FA-4440-9A52-D54EB21C627F}\1.0\helpdir", "", "REG_SZ", $InstallPath & "\")
;
; добавляем возможность запуска из меню "Run":
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Alcohol.exe", "", "REG_SZ", $InstallPath & "\Alcohol.exe")
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Alcohol.exe", "Path", "REG_SZ", $InstallPath & "\")
;
RegDelete("HKCU\Software\Alcohol Soft")
;
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Virtual Device Count", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Left", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Top", "REG_SZ", "22")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Height", "REG_SZ", "816")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic", "Width", "REG_SZ", "1152")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic\UI", "Main Column", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic\UI", "Help Column", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Basic\UI", "Option Column", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Info", "UserName", "REG_SZ", "Semiono")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options", "Language", "REG_SZ", "1033")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "AutostartWhenWindowsStartup", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "CleanFileListBeforeImporting", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "ExecuteInFullScreen", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "ListPhysicalDevicesFirst", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "NotifyDiscrepanciesWithImageFiles", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "ShowApplicationIn", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "ShutdownApplicationAfterPushingCloseBtn", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Display", "TrayIconIndex", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Emulation", "LaunchCDVDManagerWithoutIgnoreMediaTypeFunction", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "AutoCheckCurrentVersionViaInternetAtStart", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "DeleteFileDirectly", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "EnableAutoPlay", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "EnableScreenSaver", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "IOControlInterface", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\General", "OneInstanceOnly", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Log Files", "AutoSaveDumpingLog", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Log Files", "RecordingLog", "REG_SZ", $InstallPath & "\alcohol.log")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Log Files", "ReporttoLogfile", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Log Files", "SaveSpeedData", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "DefaultASSJumpFactor", "REG_SZ", "100")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "DefaultDPMMeasuringPrecision", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "EjectSourceDiscAfterProcess", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "EnableEnhancedWeakSectorScanner", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "ExamineTheAccuracyOfDataReadFromDevice", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "LockTheDeviceWhileGettingDPMdataFromTheMedia", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "NumberOFRetriesBeforeReadingError", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Reading", "StartingASSAfterContinuseBadSectors", "REG_SZ", "8")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Shell Extension", "EnableOtherExtensions", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Shell Extension", "ExchangeIconForAlcoholDefault", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Shell Extension", "OtherExtensions", "REG_SZ", "")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Sound Effect", "PlaySounds", "REG_SZ", "0")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Virtual drive", "MountImageTo1stDeviceOnDblClickingImageFile", "REG_SZ", "1")
RegWrite("HKCU\Software\Alcohol Soft\Alcohol 52%\Options\Virtual drive", "RemountImageUponSystemReboot", "REG_SZ", "1")
;

; добавляем возможность запуска из консоли cmd.exe;-
$file = FileOpen(@SystemDir & "\Alcohol.cmd", 10)

FileWrite($file, "@start " & $InstallPath & "\Alcohol.exe " & """%1""" & @CRLF)

FileClose($file)

Run("regsvr32.exe /s AXShlEx.dll", $InstallPath)

Blockinput(0)


:)

добавленно сегодня:
прикол в том, что чем болше настроек в реестре предустановленно тем больше проблем ;-
вот когда была чистая установка всё работало правильно, но теперь у мну не появляется
"монтировать на виртуал драйв" в проводнике - интересно от чего это зависит!
если не лезть в реестр установщик сам всё делает правильно. Но ведь хочется чуть опций поднастроить...
теперь надо искать что мешает! Ведь даже AXShlEx.dll было зарегистрированно - что ещё ему надо!
Разницы чёй-то совсем не могу понять! Всё один в один было. 0_o

а ещё проблемма, что это не годится для тихой установки в nLite!
ведь окна не должны быть видны! (AutoIt не хочет нажимать скрытые окна - InnoSetup.exe /VERYSILENT)
хотя я думаю что ничего страшного не произойдёт если окно выскочит во время установки Windows,
просто будет торчать окно! хотя это не очень красиво?
:)

добавленно сегодня, сегодня:
из-за такого пустячка целый день провозился!
оказывается Alcohol сам мишет этот кей, а у меня было с "ошибкой"!
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Alcohol.exe", "Path", "REG_SZ", $InstallPath & "\")
Если бы все девелоперы сами добросовесно писали бы повсюду, я бы и не лез туда.
Вообщем без этого слеша проподает опция монтирования в проводнике!
Сам этот кей писать не надо так как Алкоголь его сам генерит, когда там нету App Paths\Alcohol.exe
:)

[semiono]

Сборка для nLite (только для теста!)
rapidshare.com/files/146375940/Alcoholz.zip.html
исходные скрипты внутри!

Проблемы:
1. не знаю к чему приведёт перезагруз shutdown -r -f -t 03 на T13 установки?
2. жаль что окна инсталлера не скрыты в autoit3, просто не знаю как это зделать.
3. недоработка пока, что сабж остаётся тоже после инсталла в {win}\RunOnce (пока лень было доделать это)

На установленной виндоус установка пока прошла успешно! :)
Мой экран 1152x864 - хотя у Alcohol по дефолту окно вообще как попало открывается,
конечно удобнее было бы зделать для всех - FullScreen.

Если я что-то нарушаю не наказывайте меня пожалуста! Просто предупредите?
Просто я даже не знаю, вроде Alcohol52 не варез, но мож чё не так?

Проверил:
На nLite сборке работает! +1 =)
Alcohol был между двумя другими пакетами, всё корректно!
Похоже что внутрипакетный shutdown.exe игнорируется установкой windows, может они и не нужен даже.
Сам AutoIt запускается над десктопом уже - RunOnce соответственно.
Хотя вот тут уже я не уверен, что будет если в RunOnce будет не один пакет,
а штук 10!? Может и заглючить!... А может и нет.
:)

[mariolast]

semiono,
Нету готового комплекта из 53-го поста? Потестирую скажу что не так.

[mariolast]

из-за такого пустячка целый день провозился!
оказывается Alcohol сам мишет этот кей, а у меня было с "ошибкой"!
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Alcohol.exe", "Path", "REG_SZ", $InstallPath & "\")
Если бы все девелоперы сами добросовесно писали бы повсюду, я бы и не лез туда.
Вообщем без этого слеша проподает опция монтирования в проводнике!
Сам этот кей писать не надо так как Алкоголь его сам генерит, когда там нету App Paths\Alcohol.exe »
Не работает метод, по прежнему нету в проводнике опции монтирования

[solo111]

Скажите, какой строкой можно выполнить силент-установку Алкоголя 52%?
именно командной строкой, не скриптом AutoIt?

[katok888]

Кто знает как получить такой вариант на странице выбора компонентов:
http://pic.ipicture.ru/uploads/081123/25060/thumbs/pkBG2jU2h8.jpg (http://ipicture.ru/Gallery/Viewfull/9462190.html)

[katok888]

Вобщем сам нашел на MSFN (http://www.msfn.org/board/index.php?showtopic=20197&view=findpost&p=474679) грамотно написанный скрипт, в котором можно легко менять устанавливаемые
компоненты:
; Components to choose. 1 = Yes, 0 = No.
$langfiles = 1 ; Multi-Language Files
$manual = 0 ; Online manual
$shortcuts = 1 ; Desktop Shortcut
$startmenu = 1 ; Startmenu Entries
$starwind = 0 ; iSCSI Service
Вот собственно сам скрипт (немного подправил под себя) :
#region - Alcohol120_1.9.6.5429 install script - (Automated with WinExists functions)

#include <IE.au3>
Opt('TrayIconDebug', 1)

; Installer.
$executable = 'Alcoholsetup.exe'
; Show progess.
$splash = 0
; Default catagory folder in startmenu.
$group = 'Alcohol 120%'
; New catagory to move the default folder into.
$catagory = ''
; Installation folder in Program Files.
$directory = 'Alcohol Soft\Alcohol 120'
; Allowed time for installation.
$allowed = 60 * 1000
; Components to choose. 1 = Yes, 0 = No.
$langfiles = 1 ; Multi-Language Files
$manual = 0 ; Online manual
$shortcuts = 1 ; Desktop Shortcut
$startmenu = 1 ; Startmenu Entries
$starwind = 0 ; iSCSI Service

; ----- Settings Complete (Paste registration on line 83) ------

; Set components to install via registry.
$key = 'HKLM\SOFTWARE\Alcohol Soft\Alcohol 120%\AddRemove\Components'
RegWrite($key & '\SecLangFiles', 'Installed', 'Reg_Dword', $langfiles)
RegWrite($key & '\SecManual', 'Installed', 'Reg_Dword', $manual)
RegWrite($key & '\SecShortcuts', 'Installed', 'Reg_Dword', $shortcuts)
RegWrite($key & '\SecStartMenu', 'Installed', 'Reg_Dword', $startmenu)
RegWrite($key & '\SecStarWind', 'Installed', 'Reg_Dword', $starwind)

; Run the installer.
$pid = _Install()
$time = TimerInit()
$title = 'Alcohol 120%'
Do
Select
Case WinExists($title, 'Already Installed')
_Abort()

Case WinExists($title, 'Welcome to the Alcohol 120%')
WinMove($title, 'Welcome to the Alcohol 120%', @DesktopWidth, 0)
ControlClick($title, 'Welcome to the Alcohol 120%', 'Button2')

Case WinExists($title, 'License Agreement')
ControlClick($title, 'License Agreement', 'Button2')

Case WinExists('Alcohol Soft Setup', 'Additional Features and License Agreement')
WinMove('Alcohol Soft Setup', 'Additional Features and License Agreement', @DesktopWidth, 0)
Sleep(1000)
$oIE = _IEAttach ('Alcohol Soft Setup', 'embedded')
If IsObj($oIE) Then
$oSubmit = _IEGetObjByName ($oIE, "chk1")
If IsObj($oSubmit) Then
_IEAction ($oSubmit, "click")
EndIf
_IELoadWait ($oIE)
$oIE = 0
EndIf
ControlClick('Alcohol Soft Setup', 'Additional Features and License Agreement', 'Button2')
WinWaitClose('Alcohol Soft Setup', 'Additional Features and License Agreement', 1)

Case WinExists($title, 'Choose Components')
ControlClick($title, 'Choose Components', 'Button2')

Case WinExists($title, 'Choose Install Location')
ControlClick($title, 'Choose Install Location', 'Button2')

Case WinExists($title, 'Click Finish to close this wizard')
ControlCommand($title, 'Click Finish to close this wizard', 'Button4', 'UnCheck'); Run
ControlCommand($title, 'Click Finish to close this wizard', 'Button5', 'UnCheck'); Add Drive
ControlClick($title, 'Click Finish to close this wizard', 'Button2')

Case Else
Sleep(250)
EndSelect
If TimerDiff($time) > $allowed Then _Abort()
Until Not ProcessExists($pid)

; *** Paste Registration on the next line ***


; Exit if $startmenu = 0 from above.
If Not $startmenu Then Exit

; Remove shortcuts.
If _MainShortcut('Alcohol 120%.lnk') Then
FileDelete('Alcohol Command Launcher.lnk')
FileDelete('Alcohol Manual.lnk')
;~ FileDelete('Uninstall Alcohol 120%.lnk')
;~ _Desktop('Alcohol 120%.lnk')
EndIf

#endregion

Exit

Func _Install($path = Default)
; Run the installer in Default Script directory.
Dim $splash
If $path = Default Then $path = @ScriptDir
If StringRight($path, 1) <> '\' Then $path &= '\'
If StringInStr($executable, '\') Then $path = ''
If Not FileExists($path & $executable) Then Exit 1
If $splash Then _Splash('Installing:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))
If StringRight($executable, 3) = 'msi' Then
Return Run('"' & @SystemDir & '\msiexec.exe" /i "' & $path & $executable & '"')
Else
Return Run('"' & $path & $executable & '"')
EndIf
EndFunc

Func _Abort()
; close process if exists then exit.
Dim $pid
If ProcessExists($pid) Then
ProcessClose($pid)
Exit 2
Else
Exit 3
EndIf
EndFunc

Func _Desktop($shortcut)
; Delete a Desktop shortcut.
If FileExists(@DesktopDir & '\' & $shortcut) Then
Return FileDelete(@DesktopDir & '\' & $shortcut)
ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then
Return FileDelete(@DesktopCommonDir & '\' & $shortcut)
EndIf
EndFunc

Func _MainShortcut($shortcut, $rename = '')
; Change working directory to correct StartMenu\Group directory.
Dim $group, $catagory, $splash
If $group = '' Then Return 0
If FileExists(@ProgramsDir & '\' & $group) Then
FileChangeDir(@ProgramsDir & '\' & $group)
ElseIf FileExists(@ProgramsCommonDir & '\' & $group) Then
FileChangeDir(@ProgramsCommonDir & '\' & $group)
Else
Return 0
EndIf
; Wait for main shortcut.
If $splash Then _Splash('Waiting for shortcuts')
For $i = 1 To 20
If FileExists($shortcut) Then ExitLoop
Sleep(500)
Next
If $splash Then _Splash('Cleaning up:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))
; If catagory not assigned anything, then return.
If $catagory = '' Then Return 1
; Move the group folder into the catagory folder.
If FileChangeDir('..') And DirCopy($group, $catagory & '\' & $group, 1) Then
If DirRemove($group, 1) Then
; If optional rename parameter is used, then rename the group folder.
If $rename <> '' And FileChangeDir($catagory) Then
If DirCopy($group, $rename, 1) And DirRemove($group, 1) Then
Return FileChangeDir($rename)
EndIf
Else
Return FileChangeDir($catagory & '\' & $group)
EndIf
EndIf
EndIf
EndFunc

Func _QuickLaunch($shortcut)
; Delete a Quicklaunch shortcut.
Local $subdirs = '\Microsoft\Internet Explorer\Quick Launch'
If FileExists(@AppDataDir & $subdirs & '\' & $shortcut) Then
Return FileDelete(@AppDataDir & $subdirs & '\' & $shortcut)
ElseIf FileExists(@AppDataCommonDir & $subdirs & '\' & $shortcut) Then
Return FileDelete(@AppDataCommonDir & $subdirs & '\' & $shortcut)
EndIf
EndFunc

Func _Splash($text = '')
; Shows a small borderless splash message.
Dim $splash
If $splash Then
If $text Then
SplashTextOn('', $text, 500, 25, -1, 5, 1, '', 14)
Else
SplashOff()
EndIf
EndIf
EndFunc

Func _WinClose($title, $text = '')
; Close a window with further attempts.
For $i = 1 To 10
WinClose($title, $text)
If Not WinExists($title) Then Return 1
Sleep(500)
Next
EndFunc

Func OnAutoItStart()
; A 2nd script instance will exit.
Local $interpreter
$interpreter = StringTrimRight(@ScriptName, 4) & ' Script Interpreter'
If WinExists($interpreter) Then Exit
AutoItWinSetTitle($interpreter)
EndFunc

[di2blo]

Привет не у кого нету тихой установки Alcohol 120% 1.9.7.6221 + чтоб вечно работало