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

[actain]

Вот скрипт: http://files.mail.ru/AISCG9
Действителен для версии 1.9.8.7117, 1.9.8.7421, и последней 1.9.8.7507.
Тестировал на Retail версиях. Установочный файл алкоголя переименовываете в AlcoholSetup.exe (незнаю надо это делать, нет, я переименовываю), ложите к нему же скрипт. При запуске скрипта происходит полностью автоматическая установка программы.
Скрипт уже сконвертирован в запускающий файл, так что никаких дополнительных манипуляций делать не потребуется.

[hobbit25]

actain, странно но с 1.9.8.7507 не работает!!

katok888, просто с 1.9.8.7507 не корректно происходит установка .... а можете уже скомпилированный свой скрипт выложить

[actain]

Я перед тем как выложить скрипт проверил его на 1.9.8.7507 Retail, у меня всё нормально устанавливается... Вообще этот скрипт сделан не мной, его выложил katok888 для версии 1.9.8.7117. Просто этот скрипт подходит и для следующих версий программы.
А что Вы понимаете под некорректной установкой? Просто я вот отличий меду установкой последних версий алкоголя не заметил...

[hobbit25]

actain, у меня просто 52% алкаш не хочет ставится просто тупо выскакивает окно приветствия установки алкаша!

[actain]

По поводу 52-ого алкаша не знаю. Я тестил на 120-ом... Я думал ты его в виду и имеешь... Просто тебе надо было уточнить о каком алкоголе ты вопрос задаёшь, ведь самая распространённая то версия 120-ая...
Нет, 52-ой я не тестил, но вот 120-ый ставится как по маслу..

[hobbit25]

katok888, может подскажете как оптимизировать ваш скрипт под 52% 1.9.8.7507

[katok888]

hobbit25, у меня и дистрибутива то нет.

[conductor]

[q=actain]Я перед тем как выложить скрипт проверил его на 1.9.8.7507 Retail, у меня всё нормально устанавливается... /q]
120 налил и выпил проблем не было

[actain]

Не понял Вас conductor...

[conductor]

actain
я говорю у меня встало тип топ один раз моргнуло и стоит готовый

[actain]

Замечательно что работает... Надеюсь пригодилось!

[katok888]

hobbit25, вот скрипт для Alcohol 52% 1.9.8.7507 free edition (Alcohol52_FE_1.9.8.7507.exe)

#region - Alcohol.52.v1.9.8.7507 install script - (Automated with WinExists functions)

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

; Installer.
$executable = 'Alcohol52_FE_1.9.8.7507.exe'
; Show progess.
$splash = 0
; Default catagory folder in startmenu.
$group = 'Alcohol 52%'
; New catagory to move the default folder into.
$catagory = ''
; Installation folder in Program Files.
$directory = 'Alcohol Soft\Alcohol 52'
; Allowed time for installation.
$allowed = 60 * 1000
; Components to choose. 1 = Yes, 0 = No.
$SecACID = 1 ; A.C.I.D Wizard
$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 52%\AddRemove\Components'
RegWrite($key & '\SecACID', 'Installed', 'Reg_Dword', $SecACID)
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 52%'
Do
Select
Case WinExists($title, 'Already Installed')
_Abort()

Case WinExists($title, 'Welcome to the Alcohol 52% Setup')
WinMove($title, 'Welcome to the Alcohol 52% Setup', @DesktopWidth, 0)
ControlClick($title, 'Welcome to the Alcohol 52% Setup', '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, 'Not for Business Use')
ControlCommand($title, 'Not for Business Use', 'Button4', 'UnCheck'); Toolbar
ControlClick($title, 'Not for Business Use', 'Button2')

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 52%.lnk') Then
FileDelete('Alcohol Command Launcher.lnk')
FileDelete('Alcohol Manual.lnk')
;~ FileDelete('Uninstall Alcohol 52%.lnk')
;~ _Desktop('Alcohol 52%.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




скомпилированный скрипт (http://forum.oszone.net/attachment.php?attachmentid=23727&d=1237927743)

[hobbit25]

katok888, спасибо то есть название должно быть Alcohol52_FE_1.9.8.7507.exe ???

katok888, уж прости извини но скрипт не работает ((((

[katok888]

hobbit25, то есть название должно быть Alcohol52_FE_1.9.8.7507.exe ??? »да
но скрипт не работает »
проверял на

этом файле (http://mirror5.free-downloads.net/3/Alcohol52_FE_1.9.8.7507.exe)
все работает, вот готовый в аттаче:

[hobbit25]

katok888, СПАСИБО большое видимо что то не так компилировал!

[Serge2006]

Добрый день! С 1 Апреля)
Скажите, пожалуйста:
1) Где взять Retail дистрибутив? или Alcohol120_trial_1.9.8.7507.exe подходит? Они вообще чем различаются?
2) Что с установкой драйвера? Есть ли скрипт, который ставит и прогу и драйвер без перезагрузки?
3) В итоге, как бы комплект можно попросить выложить, пожалуйста?

[actain]

1. Retail и trial практически ничем не отличаются, однако в trial версии заблокированы все возможности Alcohol Xtra (можешь не спрашивать меня что это такое, сам не знаю)
2. Если ты про SPTD драйвер, его желательно устанавливать отдельно (если ты сборку делаешь, он может пригодиться и другим прогам, вроде Daemon Tools, тогда уже отдельно 100% надо делать)

Готовый комплект автоматической установки Alcohol 120% 1.9.8.7507 Retail:
Скачать (http://letitbit.net/download/3a8653743074/Alcohol.exe.html)
Зеркало 1 (http://uploadbox.com/files/Rg5EzDp6Wy)
Зеркало 2 (http://depositfiles.com/files/w7he562gf)
Зеркало 3 (http://actain.ifolder.ru/11378279)

Всё готово к употреблению - запустил, установилась...

[Serge2006]

actain, Спасибо!! А здесь и драйвер и регистрация? Какие-нибудь параметры поддерживаются?

[actain]

Взлом программ на этом сайте не обсуждают... В сети есть лоадер с автоустановкой, дать ссылку на сайте не могу.
По поводу драйвера, здесь его нет. Ты лучше его отдельно от алкоголя сделай, чтобы путаницы с другими программами меньше было.
О том, как его по тихому установить, написано здесь (http://forum.oszone.net/showthread.php?t=91798&page=4&highlight=SPTD)

Параметры для тихой установки? Всё ставится автоматически, запустил файл, и всё установилось...

[vipnucleus]

actain пожалуйста залей куда-нибудь на другой файлообменник