Новый участник
Сообщения: 36
Благодарности: 7
|
Профиль
|
Отправить PM
| Цитировать
Вот скриптик на AutoIt, который автоматизирует установку STDU Viewer
можете под себя править, если что то не устроит:
Код: 
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.12.0
Author: _arahnid_
Script Function:
Установка STDU Viever.
#ce ----------------------------------------------------------------------------
Const $WinName = "Установка — STDU Viewer"
Run("stduviewer.exe")
WaitAndAct("Выберите язык установки", "Выберите язык, который будет использован в процессе установки:")
ControlClick ("Выберите язык установки", "Выберите язык, который будет использован в процессе установки:", '[CLASS:TNewButton; INSTANCE:1]', "",1)
WaitAndAct($WinName, "Вас приветствует Мастер установки STDU Viewer")
ControlClick ($WinName, "Вас приветствует Мастер установки STDU Viewer", '[CLASS:TNewButton; INSTANCE:1]', "",1)
WaitAndAct($WinName, "Информация о пользователе")
ControlSend ($WinName, "Информация о пользователе", '[CLASS:TEdit; INSTANCE:3]', "RusUser","")
ControlCommand($WinName, "Информация о пользователе", '[CLASS:TCheckBox; INSTANCE:1]', "Check","")
ControlClick ($WinName, "Информация о пользователе", '[CLASS:TNewButton; INSTANCE:2]', "",1)
WaitAndAct ($WinName, "Лицензионное Соглашение")
ControlCommand($WinName, "Лицензионное Соглашение", '[CLASS:TNewRadioButton; INSTANCE:2]', "Check","")
ControlClick ($WinName, "Лицензионное Соглашение", '[CLASS:TNewButton; INSTANCE:2]', "",1)
WaitAndAct ($WinName, "Выбор папки установки" )
ControlSend ($WinName, "Выбор папки установки", '[CLASS:TEdit; INSTANCE:1]', @ProgramFilesDir & '\Office\STDU Viewer',"")
ControlClick ($WinName, "Выбор папки установки", '[CLASS:TNewButton; INSTANCE:3]', "",1)
WaitAndAct ($WinName, "Выберите папку в меню" )
ControlSend ($WinName, "Выберите папку в меню", '[CLASS:TNewEdit; INSTANCE:1]', "Офисные программы","")
ControlClick ($WinName, "Выберите папку в меню", '[CLASS:TNewButton; INSTANCE:4]', "",1)
WaitAndAct ($WinName, "Выберите дополнительные задачи")
ControlClick ($WinName, "Выберите дополнительные задачи", '[CLASS:TNewButton; INSTANCE:4]', "",1)
WaitAndAct ($WinName, "Ассоциировать с расширениями")
ControlClick ($WinName, "Ассоциировать с расширениями", '[CLASS:TNewButton; INSTANCE:4]', "",1)
WaitAndAct ($WinName, "Всё готово к установке")
ControlClick ($WinName, "Всё готово к установке", '[CLASS:TNewButton; INSTANCE:4]', "",1)
WaitAndAct ($WinName, "Завершение Мастера установки STDU Viewer")
ControlClick ($WinName, "Завершение Мастера установки STDU Viewer", '[CLASS:TNewCheckListBox; INSTANCE:1]', "",1, 10 ,10)
ControlClick ($WinName, "Завершение Мастера установки STDU Viewer", '[CLASS:TNewButton; INSTANCE:4]', "",1)
FileDelete ( @StartMenuCommonDir & "\Programs\Офисные программы\Uninstall STDU Viewer.lnk" )
Exit
Func WaitAndAct($v1, $v2)
$hWnd = WinWait($v1, $v2, 30)
If Not $hWnd Then
MsgBox(4096, 'Сообщение', 'Ожидаемое окно: ' & $v1 & ' ' & $v2 &' не найдено, завершаем работу скрипта')
Exit
EndIf
WinActivate ($v1, $v2)
EndFunc
|