[Архив

Sanja Alone · Конфигурация компьютера

Тут кто-то интересовался автоустановкой Lingvo. Я иногда юзаю этот словарик, ну и решил замутить скрипт автоустановки для своего Unattended DVD-юка.

Для автоустановки потребуются:
1. Образ первого сидюка Lingvo 10 Multilingual - LV10ML.iso (тупо скопировать содержимое сидюка в какой-либо каталог на автоустановочном CD/DVD и запустить setup.exe не получится - потребует вставить родной диск; с образа все работает)
2. Образ установочной дискеты Lingvo - ling10me_flp.ima (в zip-е всего-то 2Кб, но немогу прикрепить - меня назовут пиратом и заклеймят позором

)
3. Virtual Floppy Driver некоего Kenji Kato - (нужны 2 файла vfd.exe и vfd.sys)
4. Предварительно установленный и 1 раз запускавшийся Alcohol 120% или DaemonTools с хотя бы одним вирт. приводом в системе
5. Нижеприведенный скрипт
(Все файлы должны лежать в одном каталоге, 2 файла vfd - в подкаталоге vfd)

Код:

;Перед запуском этого скрипта, даже если Алкоголь уже установлен, его (Алкоголь) 
;нужно один раз запустить для применения параметров виртуального привода
;В сл. применения DT, также требуется его запуск и установка в систему хотя бы одного вирт. привода 
;(нажать ПКМ на иконке DT в трее и выбрать "set number of devices" - "1 drive")
;
;скрыть в системной панели индикатор AutoIt
AutoItSetOption("TrayIconHide", 1)
AutoItSetOption("SendKeyDelay", 20)
;блокируем мышь и клаву
BlockInput ( 1 )
;Объявление переменных
;$i - счетчик, используемый в цикле определения буквы виртуального привода
;$virtdrv - маркер (будем устанавливать в 0, если исп-ся DaemonTools и в 1 в случае применения Alcohol-я)
;$daemondir - каталог, куда установлен DaemonTools (без обратного слэша в конце)
;(присваиваем переменной значение, к-рое соотв. пути Демона по умолчанию)
;$alcoholdir - каталог, куда установлен Алкоголь (без обратного слэша в конце)
;(присваиваем переменной значение, к-рое соотв. пути Алкоголя по умолчанию)
Local $i, $virtdrv, $alcoholdir=@ProgramFilesDir & '\Alcohol Soft\Alcohol 120', $daemondir=@ProgramFilesDir & '\D-Tools'
;Проверяем какой эмулятор установлен и монтируем образ Lingvo в первый привод установленного эмулятора
;Если не один не установлен - выходим из скрипта с сообщением о необходимости установки эмулятора
If FileExists ( $daemondir & '\daemon.exe' )=1 Then
       $virtdrv=0
       ;Демонтируем текущий образ из первого вирт. привода Демона.
       ;(это необязательно)
       RunWait ( $daemondir & '\daemon.exe -noicon -unmount 0' )
       ;Монтируем образ Lingvo на первый виртуальный CD/DVD-привод
       Run ( $daemondir & '\daemon.exe -noicon -mount 0,"' & @ScriptDir & '\LV10ML.iso"' )
     ElseIf FileExists ( $alcoholdir & '\AxCmd.exe' )=1 Then
       $virtdrv=1
       ;Демонтируем текущий образ из первого вирт. привода Алкоголя.
       ;(это необязательно)
       RunWait ( $alcoholdir & '\AxCmd.exe 1: /U' )
       ;Монтируем образ Lingvo на первый виртуальный CD/DVD-привод
       Run ( $alcoholdir & '\AxCmd.exe 1: /M:' & @ScriptDir & '\LV10ML.iso' )
     Else
       BlockInput ( 0 )
       MsgBox ( 0, '', 'Для установки Lingvo требуется DaemonTools или Alcohol 120%.' & @LF & 'Сейчас установка Lingvo будет прекращена.' )
       Exit
EndIf
;Ждем процесс "autorun.exe" не более 10 сек., если появится - закрываем
;(даже если диск без авторана, все равно нужна пауза на монтирование iso-файла)
If ProcessWait ( "autorun.exe", 10 )=1 Then
ProcessClose ( "autorun.exe" )
ProcessWaitClose ( "autorun.exe" )
EndIf
Sleep ( 100 )
;Определение буквы виртуального CDROM-а (67 - ASCII-код символа "C", 90 - "Z")
;(в качестве маркерного файла используем "ABBYY Lingvo 10 Multilingual Dictionary.msi")
$i = 67
While FileExists( Chr($i) & ':\ABBYY Lingvo 10 Multilingual Dictionary.msi' )=0 AND $i<=90
    $i = $i + 1
WEnd
Sleep ( 50 )
;Запускаем установку Lingvo
;(/L1049 - русский язык диалоговых окон, SERIALNUMBER=сюда введите свой серийный номер)
Run ( Chr($i) & ':\setup.exe /L1049 /v"SERIALNUMBER=XXXX-XXXX-XXXX-XXXX-XXXX"' )
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Лицензионный договор' )
;Я принимаю условия лицензионного договора
ControlClick ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Лицензионный договор', 'Button3' )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Укажите сведения о себе' )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'При установке вы можете использовать установочную дискету' )
;Копируем с CD/DVD образ установочной дискеты Lingvo во временный каталог
;(установщик Lingvo будет производить запись на эту "дискету" в процессе 
;инсталляции, следовательно, он должен быть доступен для записи)
FileCopy( @ScriptDir & '\ling10me_flp.ima', @TempDir & '\ling10me_flp.ima', 1 )
Sleep ( 500 )
;Снимаем с образа установочной дискеты Lingvo атрибут Read-Only 
;(файл копировался с CD, и явно не Far-ом :), а значит недоступен для записи)
FileSetAttrib( @TempDir & '\ling10me_flp.ima', "-R" )
Sleep ( 500 )
;Монтируем в виртуальном флопповоде (vfd - Virtual Floppy Driver) образ установочной дискеты Lingvo
RunWait ( @ScriptDir & '\vfd\vfd.exe MOUNT ' & @TempDir & '\ling10me_flp.ima /L:B', '', @SW_HIDE )
Sleep ( 500 )
;продолжаем установку
WinActivate ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'При установке вы можете использовать установочную дискету' )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Выберите режим установки и укажите папку' )
;Выборочная установка
;(для Стандартной сразу жать ENTER (удалив ControlClick) и перейти к STD)
ControlClick ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Выберите режим установки и укажите папку', 'Button3' )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Выберите компоненты программы' )
;отключение ger-ru-ger словаря
Send ( '{DOWN}' )
Send ( '{RIGHT}' )
Send ( '{DOWN}' )
Send ( '{DOWN}' )
Send ( '!{DOWN}' )
Send ( '{UP}' )
Send ( '{ENTER}' )
;отключение fr-ru-fr словаря
Send ( '{DOWN}' )
Send ( '!{DOWN}' )
Send ( '{UP}' )
Send ( '{ENTER}' )
;отключение it-ru-it словаря
Send ( '{DOWN}' )
Send ( '!{DOWN}' )
Send ( '{UP}' )
Send ( '{ENTER}' )
;отключение esp-ru-esp словаря
Send ( '{DOWN}' )
Send ( '!{DOWN}' )
Send ( '{UP}' )
Send ( '{ENTER}' )
;отключить "озвученные немецкие слова"
Send ( '{DOWN}' )
Send ( '{DOWN}' )
Send ( '{DOWN}' )
Send ( '{RIGHT}' )
Send ( '{DOWN}' )
Send ( '{DOWN}' )
Send ( '!{DOWN}' )
Send ( '{UP}' )
Send ( '{ENTER}' )
Sleep ( 50 )
;продолжить установку
Send ( '{ENTER}' )
;STD
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Хранение настроек словарей' )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Начало установки' )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Установка ABBYY Lingvo 10 Multilingual Dictionary успешно завершена' )
Send ( '{ENTER}' )
Sleep ( 70 )
;Демонтируем образ уст. дискеты Lingvo и отрубаем вирт. дисковод
RunWait ( @ScriptDir & '\vfd\vfd.exe UMOUNT', '', @SW_HIDE )
Sleep ( 30 )
RunWait ( @ScriptDir & '\vfd\vfd.exe STOP', '', @SW_HIDE )
Sleep ( 30 )
RunWait ( @ScriptDir & '\vfd\vfd.exe REMOVE', '', @SW_HIDE )
Sleep ( 30 )
;Переносим ярлыки Lingvo в более удобное (мне) место
;(я не люблю беспорядка в меню "Программы" и делаю это для всех устанавливаемых прог)
DirCopy ( @ProgramsCommonDir & '\ABBYY Lingvo 10', @ProgramsCommonDir & '\Переводчики\ABBYY Lingvo 10', 1 )
DirRemove ( @ProgramsCommonDir & '\ABBYY Lingvo 10', 1 )
;Удаляем образ уст. дискеты Lingvo (он больше не понадобится)
FileDelete ( @TempDir & '\ling10me_flp.ima' )
Sleep ( 50 )
;Убиваем процесс Lvagent
ProcessClose ( "Lvagent.exe" )
ProcessWaitClose ( "Lvagent.exe" )
Sleep ( 50 )
;Демонтируем образ CD-диска Lingvo из вирт. привода
If $virtdrv=0 Then
       RunWait ( $daemondir & '\daemon.exe -noicon -unmount 0' )
     Else
       RunWait ( $alcoholdir & '\AxCmd.exe 1: /U' )
EndIf
Sleep ( 50 )
;Удаляем Lingvo из автозапуска (кому хочется, чтобы Lingvo висело в трее - удалите следующие 2 строки)
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Lingvo Launcher")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "LingvoTraining")
;Может выскочить эта ошибка 
;(окно "setup.exe - Диск отсутствует", сообщение "В устройстве нет диска. Вставьте диск в устройство X:")
;Если да - закрываем процесс setup.exe
If ProcessWait ( "setup.exe", 7 )=1 Then
ProcessClose ( "setup.exe" )
ProcessWaitClose ( "setup.exe" )
EndIf
Sleep ( 50 )
;снимаем блокировку мыши и клавы
BlockInput ( 0 )

Пользуйтесь, кому нужно.

P.S. Устанавливается Lingvo долго (до 10 мин.), самый тормозной этап - "установка индекса" на образ дискеты. А когда индикатор "установки индекса" доходит почти до конца, может показаться, что комп (или мой скрипт) завис. Так и должно быть.
Эх, где-то я такое уже видел...

Solitude · Отправлено: **01:51, 29-06-2005** | #32

Возникла такая проблема:
при установке программы необходмо импортировать данные из reg файла
делаю так

Код:

Run("regedit.exe /s Fail.reg", "")

Установка производится до первой загрузки Windows(RunOnceEx.cmd), но почему то запись в реестр не происходит ?
Самое интересное то, что если уже когда Windows загрузилась запусить этот же файл установки то данные в реестр экспортируются. Может кто подскажет решение этой проблемы ?

Sanja Alone · Конфигурация компьютера

Solitude
Попробуй так:

Код:

RunWait ( "regedit /S Fail.reg", "", @SW_HIDE )

И правильно будет и незаметно благодаря @SW_HIDE.

Solitude · Отправлено: **22:10, 29-06-2005** | #34

Sanja Alone
Не работает... :-((

Sanja Alone · Конфигурация компьютера

Solitude
Ну можешь еще так попробовать:

Код:

RunWait ( 'regedit /S ' & @ScriptDir & '\Fail.reg', '', @SW_HIDE )
;или так:
RunWait ( @Comspec & ' /C regedit /S ' & @ScriptDir & '\Fail.reg', '', @SW_HIDE )

Если не катит, значит ты пытаешься писать в изменяемые при загрузке ветки/ключи реестра.

Чуть не забыл - все эти варианты работают только если reg-файл и скрипт находятся в одном каталоге. В противном случае, нужно писать полный путь. И еще одно - пробелы внутри кавычек (' ') стоят все по делу, а не для красоты - не удали случайно.

P.S. С моего автоустановочного диска все ставящиеся проги (с пом. WPI, к-рый действует также через RunOnceEx) вносят изменения в реестр именно первым способом (см. предыдущий пост) - все данные импортируются.

Solitude · Отправлено: **20:54, 30-06-2005** | #36

Sanja Alone
Вот этот спопсоб

Код:

RunWait ( 'regedit /S ' & @ScriptDir & '\Fail.reg', '', @SW_HIDE )

сработал
Спасибо!!

Madcap · Отправлено: **15:40, 04-07-2005** | #37

2 all

Возникла проблемка с Некоторыми комбинациями клавиш:

Код:

...
WinWait ("CDCheck - 3.0.1.43 [Personal non profit use]","", 0)
Sleep (300)
;Послать в активное окно комбинацию нажатий клавиш
Send ("!a")    ; alt+a
...

Эта комбинация (Впрочем ALT+[любая другая буква]) отлично выполняется в 2000 и ХР. А в 98, такое впечатление, игнорируется.
Кто нибудь с таким сталкивался? С чем это связано? Какие еще команды глючат? И как с этим бороться
Прога качана по ссылке piterpen

godoo · Отправлено: **10:53, 05-07-2005** | #38

2 all

Здравствуйте, всем!
Помогите решить такую проблему: при установке приложения нужно изменить путь установки, так, чтобы не прописывать точный путь, а указать текущую системную папку Program Files (т.е. как-то указать не C:\Program Files\... , а %systemdrive% или %programs%). Ну никак не хочет

Madcap · Отправлено: **13:57, 05-07-2005** | #39

godoo

так

Код:

@ProgramFilesDir

пробовал?

Madcap · Отправлено: **08:38, 06-07-2005** | #40

2 all
Вопрос про комбинации клавиш снимается.
Как оказалось в Win98 команда Send некоректно отрабатывает при заблокированной клавиатуре и мышке (BlockInput(1))
Если клавиатуру не блокировать - все комбинации клавиш работают нормально

2 godoo

Скачай хелп - там описаны все переменные понимаемые AutoIT.
Раздел Указатель Макро