Имя пользователя:
Пароль:
 

Название темы: Тихая установка STDUviewer
Показать сообщение отдельно

Аватара для _arahnid_

Новый участник


Сообщения: 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

Последний раз редактировалось _arahnid_, 21-01-2015 в 08:36.


Отправлено: 15:51, 20-01-2015 | #50

Название темы: Тихая установка STDUviewer