skeeter
07-04-2010, 09:02
Добрый день. Недавно начал разбираться с AutoIT ом, соответственно возник вопросик, как с помощью AutoIt сделать Тихую установку словарей.
Скрипт вот написал, но надо сделать так чтобы не отображались диалоговые окна при установке, как бы тока значок весит в трее и выполняет установку.
Сообственно скрипт:
Global $Title='Установка специализированных словарей и шаблонов тематик', $file='PROMT8DictionarySetup.exe', $DestinationDir = "GIAN-0800-18873-58004"
Run($file)
WinWaitActive ( "Добро пожаловать!" )
ControlClick ( $Title, 'Добро пожаловать!', 'Button1' )
Send('{Enter}')
WinWaitActive ( "Выберите действие" )
ControlClick ( $Title, 'Выберите действие', 'Button7' )
Send('{Enter}')
WinWaitActive ( "Установка специализированных словарей и шаблонов тематик" )
;Словари лежат уже в ProgramFiles
ControlSetText($Title, "", 'Edit1', @ProgramFilesDir & '\Dicts\' )
Sleep ('500')
Send('{Enter}')
ControlClick ( $Title, 'Установка специализированных словарей и шаблонов тематик', 'Button2' )
Send('{Enter}')
ControlSetText($Title, "", 'Edit1', $DestinationDir )
WinWaitActive ( "Установка специализированных словарей и шаблонов тематик" )
ControlClick ( $Title, 'Установка специализированных словарей и шаблонов тематик', 'Button2' )
Send('{Enter}')
WinWaitActive ( "Установка специализированных словарей и шаблонов тематик" )
ControlClick ($Title, 'Выберите необходимые словари', '&Выбрать все' )
Send('!В')
Sleep ('1000')
Send('{Enter}')
Sleep ('10000')
WinWaitActive ( "PROMT Dictionary Installer" )
Send("{right}")
ControlClick ($Title, 'PROMT Dictionary Installer','Button2' )
Send("{Enter}")
Скрипт вот написал, но надо сделать так чтобы не отображались диалоговые окна при установке, как бы тока значок весит в трее и выполняет установку.
Сообственно скрипт:
Global $Title='Установка специализированных словарей и шаблонов тематик', $file='PROMT8DictionarySetup.exe', $DestinationDir = "GIAN-0800-18873-58004"
Run($file)
WinWaitActive ( "Добро пожаловать!" )
ControlClick ( $Title, 'Добро пожаловать!', 'Button1' )
Send('{Enter}')
WinWaitActive ( "Выберите действие" )
ControlClick ( $Title, 'Выберите действие', 'Button7' )
Send('{Enter}')
WinWaitActive ( "Установка специализированных словарей и шаблонов тематик" )
;Словари лежат уже в ProgramFiles
ControlSetText($Title, "", 'Edit1', @ProgramFilesDir & '\Dicts\' )
Sleep ('500')
Send('{Enter}')
ControlClick ( $Title, 'Установка специализированных словарей и шаблонов тематик', 'Button2' )
Send('{Enter}')
ControlSetText($Title, "", 'Edit1', $DestinationDir )
WinWaitActive ( "Установка специализированных словарей и шаблонов тематик" )
ControlClick ( $Title, 'Установка специализированных словарей и шаблонов тематик', 'Button2' )
Send('{Enter}')
WinWaitActive ( "Установка специализированных словарей и шаблонов тематик" )
ControlClick ($Title, 'Выберите необходимые словари', '&Выбрать все' )
Send('!В')
Sleep ('1000')
Send('{Enter}')
Sleep ('10000')
WinWaitActive ( "PROMT Dictionary Installer" )
Send("{right}")
ControlClick ($Title, 'PROMT Dictionary Installer','Button2' )
Send("{Enter}")