php?u=82257>
Старожил
Повідомлення: 212
Подяки: 33
php?userid=82257> профіль | php?do=newpm&userid=82257> Надіслати PM | Цитувати
Сторінки завантаження: Alcohol 52% , Alcohol 120%
Опис програми:
читати далі "
Alcohol 120% (нова версія) є програмою емуляції і запису CD і DVD, дозволяє користувачам копіювати не захищені і захищені диски. Alcohol 120% може створити до 31 віртуального CD & DVD-ROM приводу для використання дисків не використовуючи фізичний носій; а так само дозволяє копіювати CD і DVD на CD-R / CD-RW / DVD-R / DVD-RW / DVD-RAM / DVD + RW / DVD + R.
Можливості програми:
Підтримувані платформи: Windows NT / 2000 / XP і Server 2003, а тепер і Vista RC2.
Може обробляти до 31 віртуального CD і DVD-ROM приводу!
Можна використовувати декілька програм для роботи з CD або DVD одночасно.
Швидкість читання віртуального диска у віртуальному приводі 200X.
Здійснює читання диска у файли-образи наступних форматів:
Media Descriptor Image (mds)
CloneCD Image (ccd / img / sub) (Тільки для CD дисків)
CDR WIN Image (cue / bin) (Доступно для диска CD тільки з однією сесією, не може зберігати sub-channeld дані)
Standard ISO Image (iso) (Доступно для диска CD тільки з однією доріжкою, не може зберігати sub-channeld дані)
Підтримує CD, DVD і CD RAW sub-channel методи читання:
RAW метод читання дозволяє копіювати будь-які диски.
Методи запису CD:
Disc-At-Once / Session-At-Once, RAW Session-At-Once, RAW Session-At-Once + SUB, RAW Disc-At-Once
(PQ / RW з повною підтримкою sub-code)
Підтримує наступні формати файлів образів дисків для емуляції і запису:
Media Descriptor Image (mds)
CloneCD Image (ccd / img / sub)
CDRWIN Image (cue / bin)
NERO Image (nrg)
Standard ISO Image (iso)
BlindSuite image (bwt / bwi / bws)
DiscJuggler image (cdi).
Підтримує функцію Bypass EFM error, для копіювання захищених дисків.
Пропонує опцію "Ігнорувати тип CD". Ця опція не дає програмам розпізнавати CD-R або CD-RW, в результаті всі диски розпізнаються як звичайні CD-ROM диски.
Підтримує формати CD:
CD-DA, CD + G, CD-ROM, CD-XA, Video CD, Photo CD, Mixed Mode, Multi-session CD
Підтримка для буфера при включенні опції запобігання переповнення буфера:
BURN-Proof ™, JustLink ™, Power-Burn ™, SafeBurn ™, Seamless Link і ...
Метод запису DVD:
DVD Disc-At-Once
Підтримує формати DVD:
DVD-ROM, DVD-Video, DVD-Audio (Примітка: не може використовуватися для копіювання CSS-шифрованих дисків.)
Підтримка всіх сучасних (ATAPI і SCSI) приводів:
CD-R, CD-RW, DVD-RAM, DVD-R, DVD-RW, DVD + RW і DVD + R
Повна підтримка IEEE-1394 (Firewire) і USB протоколів
Відображає швидкість запису і іншу корисну інформацію.
Підтримка DPM (Data Position Measurement) - функція, дозволяє отримати більшу кількість докладної інформації про диски.
Підтримка RMPS (Recordable Media Physical Signature) пропалювання та емуляції:
Ця опція дозволяє дисководу автоматично читати матеріальну сигнатуру. (Докладніше: RMPS Walkthrough)
Підтримка ASS (Advanced Sector Scanner) функції.
Оскільки я так і не зміг знайти / придумати спосіб "тихої" установки, я написав AutoIt скрипт для інсталяції, який, власне і пропоную Вашій увазі. Якщо хтось знає інші способи "тихої" утсановкі, буду радий дізнатися про них. Єдиною умовою роботи скрипта є попередня установка драйвера SPTD (я його інтегрую в дистрибутив аддном, наприклад).
Скрипт установки і реєстрації Alcohol 120% / 52%:
читати далі " $ Title = 'Alcohol'; Файл інсталятор $ SetupFile = 'Alcoholsetup.exe'; Нехай до папки з програмою $ InstallPath = @ ProgramFilesDir & '\ Alcohol'; Блокуємо клавіатуру і мишу Blockinput (1); Установка програми; Запускаємо інсталятор run ( $ SetupFile) winwaitactive ($ Title, 'Welcome to the Alcohol') send ( '{ENTER}'); Погоджуємося з ліцензійною угодою winwaitactive ($ Title, 'License Agreement') send ( '{ENTER}'); Відмовляємося від установки Alcohol toolbar (тільки для Alcohol 52%) 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). ', 1) send (' {ENTER} ') endif; Відмовляємося від установки ярлика на робочому столі і онлайн керівництва winwaitactive ($ Title, 'Choose Components') send ( '{PGDN} {UP} {BS}') send ( '{ENTER}'); Вибираємо шлях для інсталяції winwaitactive ($ Title, 'Choose Install Location') send ($ InstallPath) send ( '{ENTER}') winwaitactive ($ Title, 'Completing the Alcohol'); Знімаємо галочку з пункту "& Run Alcohol ..." controlclick ($ Title, 'Completing the Alcohol', 'Button4', 1); Знімаємо галочку з пункту "Add Alcohol Virtual Drive at first run." controlclick ($ Title, 'Completing the Alcohol', 'Add Alcohol Virtual Drive at first run.', 1) send ( '{ENTER}'); Реєстрація для патча від Gegter або для keymaker 3.8 від Betamster if not fileexists ( 'patch .exe ') and not fileexists (' keymaker.exe ') Then exit if fileexists (' patch.exe ') Then run (' patch.exe ') WinWaitActive (' GEGTER ') ControlClick (' GEGTER ',' ',' patCh ', 1) WinWaitActive (' AX_RU.dll ',' Can not find the file. Search the file? ') ControlClick (' AX_RU.dll ',' Can not find the file. Search the file? ',' & Так ' , 1) WinWaitActive ( 'Відкрити') send (@ProgramFilesDir & '\ Alcohol \ Langs \ AX_RU.dll') send ( "{ENTER}") WinWaitActive ( 'star_syn_client.dll', 'Can not find the file. Search the file? ') ControlClick (' star_syn_client.dll ',' Can not find the file. Search the file? ',' & Так ', 1) WinWaitActive (' Відкрити ') send (@ProgramFilesDir &' \ Alcohol \ star_syn_client.dll ' ) send ( "{ENTER}") WinWaitActive ( 'GEGTER') ControlClick ( 'GEGTER', '', 'eXit', 1) exit endif if fileexists ( 'keymaker.e xe ') Then run (' keymaker.exe ') WinWaitActive (' Activation keymaker ') controlclick (' Activation keymaker ',' ',' Register ', 1) controlclick (' Activation keymaker ',' ',' Patch server check [ Optional] ', 1) controlclick (' Activation keymaker ',' ',' Activate ', 1) winclose (' Activation keymaker ') exit Endif; розблокуємо клавіатуру і мишу Blockinput (0)
Варіант скрипта установки Alcohol 120% reteil від sattva (на основі скрипта від Sanja Alone)
читати далі " #cs ---------------------- Додаток: Alcohol 120% На який (їх) версії (ях) випробування з: 1.9.5 (build 3823); 1.9.5 (build 4212); Alcohol120_retail_1.9.7 (build 6221) Автор скрипта: Sanja Alone (http://forum.oszone.net/member.php?userid=28800); sattva (http://forum.oszone.net/member.php?userid=27732) ---------------------- #ce; запобігання можливості множинного запуску скрипта If WinExists (@ScriptName) Then Exit AutoItWinSetTitle (@ScriptName); приховати в системній панелі індикатор AutoIt; AutoItSetOption ( "TrayIconHide", 1); Відображати поточний рядок сценарію за допомогою індикатора системної панелі в режимі налагодження. AutoItSetOption ( "TrayIconDebug", 1) AutoItSetOption ( "SendKeyDelay", 10) If ProcessExists ( "ps.exe") <> 0 Then ProcessClose ( "ps.exe") ProcessWaitClose ( "ps.exe") EndIf; не можна блокувати при що знаходиться в пам'яті Punto Switcher-е - не буде працювати установка; блокуємо миша і клаву; If @ OSType = "WIN32_NT" Then BlockInput (1) #cs ------------------ ---- пояснення ---------------------- Принцип установки такої: 1. Запускаємо інсталятор і відмовляємося від перезавантаження після установки драйвера SPTD 2. Створюємо ярлик для запуску скрипта установки Alcohol в меню "Автозавантаження" (тобто цього ж скрипта) 3. Після перезавантаження установка буде продовжена PS Відновлення установки сд Елано через меню, а не через гілку RunOnceEx для нормальної роботи скрипта при установці додатків з пом. WPI ---------------------- оголошення змінних ---------------------- $ Title - заголовок вікна установки $ file - інсталяційний файл $ programgroup - в яку програмну групу покласти ярлики програми $ AutoIt3exePath - якщо установка проводиться з au3, а не з exe файлу, то вкажіть тут шлях до AutoIt3.exe без зворотного слеша в кінці (наприклад: EnvGet ( "CDROM") & "\ Tools") $ hostsban - прив'язка IP адрес доменів Алкоголю до локальної машині 127.0.0.1 (1 - так; будь-яке інше значення - немає) Змінна $ patchfile - ім'я "лікарського" файлу. У Вас може бути інший патч, а може і робочий серійник, тому Алкоголь буде зареєстрований тільки при наявності такого ж патча або робочого серійника. !!! Якщо серійний номер робиться робочим за допомогою патча, то значення змінної $ SNwork має бути відмінним від одиниці. !!! Якщо у Вас є робочий серійник, то надайте його змінної $ serial, а ім'я користувача - змінної $ username; ще задайте $ SNwork = 1. В іншому ж випадку, буде просто проведена установка і прописані в реєстр н-які настройки Алкоголю. ----------------------------------- #ce Global $ Title = 'Alcohol' Global $ file = 'Alcohol120_retail_1 .9.7.6221.exe 'Global $ patchfile =' keymaker.exe 'Global $ programgroup =' CD і DVD утиліти \ Alcohol 120% 'Global $ username =' Users 'Global $ serial =' 'Global $ SNwork = 0 Global $ hostsban = 1 Global $ AutoIt3exePath = '' Global $ InstPatch = @ ProgramFilesDir & '\ Alcohol Soft \ Alcohol 120 \'; установка Run (@ScriptDir & '\' & $ file) WinWait ($ Title, "Welcome") WinActivate ($ Title, "Welcome") WinWaitActive ($ Title, "Welcome") Send ( "{ENTER}") WinWait ($ Title, "License Agreement") WinActivate ($ Title, "License Agreement") WinWaitActive ($ Title, "License Agreement ") Send (" {ENTER} ") If WinWait (" SPTD "," ", 3) Then WinActivate (" SPTD ") WinWaitActive (" SPTD ") Send (" {ENTER} ") WinWait ($ Title," Setup must restart Windows ") WinActivate ($ Title," Setup must restart Windows ") WinWaitActive ($ Title," Setup must restart Windows ") ControlClick ($ Title," Setup must restart Windows "," Button2 "); створення ярлика для зап уска скрипта після перезавантаження If @ compiled = 1 Then FileCreateShortcut (@ ScriptFullPath, @ StartupCommonDir & '\' & $ Title & '. lnk', @ ScriptDir) Else FileCreateShortcut ($ AutoIt3exePath & "\ Autoit3.exe" & @ ScriptFullPath, @ StartupCommonDir & '\ '& $ Title &'. lnk ', @ ScriptDir) EndIf MsgBox (64,' Інформація ',' Установка '& $ Title &' буде продовжена після перезавантаження ', 5) AdlibEnable ( "restart") Exit EndIf; потрібно для переустановлення AdlibEnable ( "AlreadyInstalled", 500) WinWait ($ Title, "Choose Components") AdlibDisable () WinActivate ($ Title, "Choose Components") WinWaitActive ($ Title, "Choose Components") ControlFocus ($ Title, "Choose Components", " SysTreeView321 "); відключити" Desktop Shortcut "Send (" {DOWN} ") Send (" {DOWN} ") Send (" {DOWN} ") Send (" {DOWN} ") Send (" {SPACE} "); далі Send ( "{ENTER}") WinWait ($ Title, "Choose Install Location") WinActivate ($ Title, "Choose Install Location") WinWaitActive ($ Title, "Choose Install Location ") $ InstPath = ControlGetText ($ Title," Choose Install Location "," Edit1 "); по розум. C: \ Program Files \ Alcohol Soft \ Alcohol 120 Send ( "{ENTER}") WinWait ($ Title, "Completing") WinActivate ($ Title, "Completing") WinWaitActive ($ Title, "Completing"); зняти галку з пункту "Run Alcohol" Send ( "{SPACE}") Send ( "{ENTER}") Sleep (50); реєстрація / лікування Алкоголю (при наявності серійника або патча) If $ serial <> '' Then, якщо є серійник, то виробляємо реєстрацію (чесним способом або з пом. патча) Select Case $ SNwork = 1; якщо серійний номер легальний If $ username <> '' Then RegWrite ( 'HKEY_CURRENT_USER \ Software \ Alcohol Soft \ Alcohol 120% \ Info', "UserName" , "REG_SZ", $ username) RegWrite ( 'HKEY_CURRENT_USER \ Software \ Alcohol Soft \ Alcohol 120% \ Info', "ServerKey", "REG_SZ", $ serial) Case Else; (Перевірялося на версії 1.9.5 build 4212) If FileExists (@ScriptDir & '\' & $ patchfile) Then FileCopy (@ScriptDir & '\' & $ patchfile, $ InstPatch, 1) FileChangeDir ($ InstPatch); вимкнути звук (щоб кейген не шумів) Send ( '{VOLUME_MUTE}'); запуск кейгена Run ($ InstPatch & '\' & $ patchfile) WinWait ( 'Activation keymaker', 'Activate') WinActivate ( 'Activation keymaker', 'Activate') WinWaitActive ( 'Activation keymaker', 'Activate') ControlSetText ( 'Activation keymaker', 'Activate', 'TMemo1', $ serial); Register ControlClick ( 'Activation keymaker', 'Register', 'TButton4') Sleep (400); Activate ControlClick ( 'Activation keymaker', 'Activate', 'TButton3') Sleep (400); Patch Server Check ControlClick ( 'Activation keymaker', 'Patch server check [Optional]', 'TButton1') Sleep (400) WinClose ( 'Activation keymaker', 'Activate') WinWaitClose ( 'Activation keymaker', 'Activate'); включення звуку Send ( '{VOL UME_MUTE} ') EndIf EndSelect ElseIf FileExists (@ScriptDir &' \ '& $ patchfile) Then, якщо є патч, то копіюємо його в каталог Алкоголю та проводимо лікування (перевірялося на версії 1.9.7 build 6221) FileCopy (@ScriptDir &' \ '& $ patchfile, $ InstPatch, 1) FileCopy (@ScriptDir &' \ *. txt ', $ InstPatch, 9) FileChangeDir ($ InstPatch &' \ ') Run ($ InstPatch & $ patchfile) WinWait (' Activation keymaker ' , 'Activate') WinActivate ( 'Activation keymaker', 'Activate') WinWaitActive ( 'Activation keymaker', 'Activate'); Register ControlClick ( 'Activation keymaker', 'Register', 'TButton4') Sleep (400); Activate ControlClick ( 'Activation keymaker', 'Activate', 'TButton3') Sleep (400); Patch Server Check ControlClick ( 'Activation keymaker', 'Patch server check [Optional]', 'TButton1') Sleep (400) WinClose ( ' Activation keymaker ',' Activate ') WinWaitClose (' Activation keymaker ',' Activate ') EndIf; прив'язка IP а ресов доменів Алкоголю до локальної машині (127.0.0.1), щоб він не ліз перевіряти серійник If $ hostsban = 1 Then hostsban (); н-які настройки RegWrite ( 'HKEY_CURRENT_USER \ Software \ Alcohol Soft \ Alcohol 120% \ Options \ Display' , "AutostartWhenWindowsStartup", "REG_SZ", "0"); Відключити "Запускати програму автоматично разом з Windows" RegWrite ( 'HKEY_CURRENT_USER \ Software \ Alcohol Soft \ Alcohol 120% \ Options \ Display', "ExecuteInFullScreen", "REG_SZ", '0'); Відключити "Запускати програму п повноекранному режимі" RegWrite ( 'HKEY_CURRENT_USER \ Software \ Alcohol Soft \ Alcohol 120% \ Options \ Display', "ListPhysicalDevicesFirst", "REG_SZ", "0"); Відключити "Відображати фізичні накопичувачі ПЕРЕД віртуальними "RegWrite ( 'HKEY_CURRENT_USER \ Software \ Alcohol Soft \ Alcohol 120% \ Options \ General'," AutoChe ckCurrentVersionViaInternetAtStart "," REG_SZ "," 0 "); Відключити" Перевіряти нлічіе нових версій на сайті програми "RegWrite ( 'HKEY_CURRENT_USER \ Software \ Alcohol Soft \ Alcohol 120% \ Options \ Virtual drive'," MountImageTo1stDeviceOnDblClickingImageFile "," REG_SZ ", '1'); Включити "монтувати образ на Пристрій 0 по подвійному натисканні кнопки миші" RegWrite ( 'HKEY_CURRENT_USER \ Software \ Alcohol Soft \ Alcohol 120% \ Options \ Recording', "OverBurnDisc", "REG_SZ", '1'); Включити " Екстразапісь "; установка ручного типу запуску служби StarWindService (по розум. "Авто") RegWrite ( 'HKEY_LOCAL_MACHINE \ SYSTEM \ CurrentControlSet \ Services \ StarWindService', 'Start', "REG_DWORD", 0x00000003); видалення з автозавантаження ярлика для запуску скрипта FileDelete (@StartupCommonDir & '\' & $ Title & '. Lnk' ); перенесення і видалення ярликів FileCopy (@ProgramsCommonDir & '\ Alcohol 120% \ Alcohol 120% .lnk', @AppDataDir & '\ Microsoft \ Internet Explorer \ Quick Launch \ Alcohol 120% .lnk', 1) FileDelete (@DesktopCommonDir & '\ Alcohol 120% .lnk') Sleep (50) If StringLower ($ programgroup) <> 'alcohol 120%' Then DirCopy (@ProgramsCommonDir & '\ Alcohol 120%', @ProgramsCommonDir & '\' & $ programgroup, 1) Sleep (50) DirRemove (@ProgramsCommonDir & '\ Alcohol 120%', 1) EndIf; Запускаємо перший раз Alcohol 120% Run ($ InstPatch & '\ Alcohol_.exe') WinWait ( 'Alcohol 120%') Sleep ( 10000) ProcessClose ( 'Alcohol_.exe') ProcessWaitClose ( 'Alcohol_.exe'); BlockInput (0); ----------------------; вспомог тільні ф-ції; ---------------------- Func AlreadyInstalled () If WinExists ($ Title, "Already Installed") Then WinActivate ($ Title, "Already Installed ") WinWaitActive ($ Title," Already Installed ") Send (" {ENTER} ") RunWait ( 'regedit / S' & @ScriptDir & '\ DeleteActivation.reg', '', @ SW_HIDE) EndIf EndFunc Func hostsban ( ) $ file = FileOpen (@SystemDir & '\ drivers \ etc \ hosts', 1) If $ file = -1 Then Return (0) SetError (1) Else FileWriteLine ($ file, "127.0.0.1 serial.alcohol-soft. com ") FileWriteLine ($ file," 127.0.0.1 support.alcohol-soft.com ") FileWriteLine ($ file," 127.0.0.1 www.alcohol-soft.com ") FileWriteLine ($ file," 127.0.0.1 images. alcohol-soft.com ") Return (1) SetError (0) EndIf FileClose ($ file) EndFunc Func restart () $ j = 30 ProgressOn (" Будь ласка, зачекайте ... "," Відбувається знищення даних :) "," система виявила використання нелегальної "& CHR (10) &" копії Windows. Через "& $ j &" сек. всі дані "& CHR (10) &" на ваших дисках будуть знищені. ") For $ i = 1 to 99 step 3.3 $ j = $ j-1 sleep (1000) ProgressSet ($ i," Система виявила використання нелегальної "& CHR (10) & "копії Windows. Через" & $ j & "сек. всі дані" & CHR (10) & "на ваших дисках будуть знищені.") Next ProgressSet (-1, "Шеф! все пропало. Прощайте. ") Shutdown (2) sleep (5000) EndFunc
Скрипт, запропонований учасником конференції katok888 для установки Аlcohol.120.v1.9.8.7117
читати далі " #region - Alcohol.120.v1.9.8.7117 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. $ SecACID = 1; ACID 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 120% \ 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 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,' Cho ose 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
Відмінності між Alcohol 120% і Alcohol 52%: "Є також безкоштовний варіант програми - Alcohol 52%. Він відрізняється відсутністю можливості запису CD і DVD дисків і меншою кількістю віртуальних дисків"Search the file?
Search the file?
Search the file?
Search the file?
Php?
Php?