Задумался я об автоматизации TightVNC.
;Запустили программу! Run("C:\Temp\tightvnc-2.0.2-setup.exe /S")
вопрос возник в следующем?: Как ввести пароль при установке? собственно и самого скрипта еще нет, но буду благодарен если поделитесь навыками!!
Есть старый код: НО ОН МНЕ НЕ НРАВИТСЯ, работает он криво, хочу переписать его.
;Запустили программу! Run("C:\Temp\tightvnc-2.0.2-setup.exe /S")
вопрос возник в следующем?: Как ввести пароль при установке? собственно и самого скрипта еще нет, но буду благодарен если поделитесь навыками!!
Есть старый код: НО ОН МНЕ НЕ НРАВИТСЯ, работает он криво, хочу переписать его.
Код:
; назначение опций выполнения и переменных автоинсталлятора
Opt("TrayIconDebug", 1)
Opt("WinWaitDelay", 0)
$pfiles = EnvGet("programfiles")
$app_name = ("Tight VNC 2.0.2 GDY 2014")
#RequireAdmin
; копирование установочных файлов во временную папку, распаковка архивов
DirCreate(@HomeDrive & "\temp")
SplashTextOn("Установка " & $app_name, @LF & "Происходит установка " & $app_name & @LF & "Пожалуйста, подождите..." & @LF & @LF & "- копирование файлов...", 500, 120)
FileInstall("D:\Autoit\source\Autoit TightVNC NEW\tightvnc-2.0.2-setup.exe", @HomeDrive & "\temp\tightvnc-2.0.2-setup.exe", 1)
Run("C:\Temp\tightvnc-2.0.2-setup.exe") ;Запустили программу!
$WinTitle = "TightVNC 2.0.2 Setup"
;1
WinWaitActive("TightVNC 2.0.2 Setup") ;Дожидаемся открытия
WinActivate("TightVNC 2.0.2 Setup") ;Избежание перекрытия другим окном
ControlClick($WinTitle, "", "TNewButton2")
Send("!N")
;2
WinWaitActive($WinTitle, "License Agreement") ;дожидаемся открытия заголовка страницы
WinActivate($WinTitle, "License Agreement") ; отключаем перекрытие другим окном
ControlClick($WinTitle, "", "TNewButton2") ; нажимаем I Agre
Send("{ENTER}")
;3
WinWaitActive($WinTitle, "Choose Components") ;дожидаемся открытия заголовка страницы
WinActivate($WinTitle, "Choose Components") ; отключаем перекрытие другим окном
ControlClick($WinTitle, "", "TNewButton2") ; нажимаем Next
Send("{ENTER}")
;4
WinWaitActive($WinTitle, "Choose Install Location") ;дожидаемся открытия заголовка страницы
WinActivate($WinTitle, "Choose Install Location") ; отключаем перекрытие другим окном
ControlClick($WinTitle, "", "TNewButton2") ; нажимаем Next
Send("{ENTER}")
;5
WinWaitActive($WinTitle, "Choose Start Menu Folder") ;дожидаемся открытия заголовка страницы
WinActivate($WinTitle, "Choose Start Menu Folder") ; отключаем перекрытие другим окном
ControlClick($WinTitle, "", "TNewButton2") ; нажимаем Next
Send("{ENTER}")
;6 выбор установки пароля
WinWaitActive($WinTitle, "Select Additional Tasks") ;дожидаемся открытия заголовка страницы
WinActivate($WinTitle, "Select Additional Tasks") ; отключаем перекрытие другим окном
Send("{TAB 4}")
;Send("{TAB}")
;Send("{TAB}")
;Send("{TAB}")
Send("{SPACE}")
Sleep(200)
ControlClick($WinTitle, "", "TNewButton2") ; нажимаем Next
Send("{ENTER}")
;7 ввод пароля для продолжения
WinWaitActive($WinTitle, "Service Configuration") ;дожидаемся открытия заголовка страницы
WinActivate($WinTitle, "Service Configuration") ; отключаем перекрытие другим окном
Send("{TAB 3}")
Sleep(200)
Send("пароль")
Send("{TAB 1}")
Sleep(200)
Send("пароль")
Send("{TAB 2}")
Sleep(200)
Send("пароль")
Send("{TAB 1}")
Sleep(200)
Send("пароль")
ControlClick($WinTitle, "", "TNewButton2") ; нажимаем Install
Send("{ENTER}")
;8 окно после установки
WinWaitActive($WinTitle, "Installation Complete") ;дожидаемся открытия заголовка страницы
WinActivate($WinTitle, "Installation Complete") ; отключаем перекрытие другим окном
ControlClick($WinTitle, "", "TNewButton2") ; нажимаем Next
Sleep(200)
Send("{ENTER}")
;9 Появляется окно с предложением перезагрузки или отмены и кнопка финиш
WinWaitActive($WinTitle, "Completing the TightVNC 2.0.2 Setup Wizard") ;дожидаемся открытия заголовка страницы
WinActivate($WinTitle, "Completing the TightVNC 2.0.2 Setup Wizard") ; отключаем перекрытие другим окном
Send("{TAB}")
Sleep(200)
Send("{SPACE}")
Sleep(200)
ControlClick($WinTitle, "", "TNewButton2") ; нажимаем Finish
;удаление временной папки
DirRemove(@HomeDrive & "\temp1", 1)
SplashOff()
MsgBox(64, "Установка " & $app_name, @LF & "Установка " & $app_name & " успешно завершена!")
Exit;