Не активируется окно

[podix]

Привет всем !!!

теперь другая у меня другая проблема После установки приложения появляется окно регистрации и я не могу его сделать активным чтоб записать туда ключ

Команды WinActivate и подобные не помогают

Вот моё творение




Цитата:



;предотвращение возможности множественного запуска скрипта

If WinExists(@ScriptName) Then Exit

AutoItWinSetTitle(@ScriptName)

;скрыть в системной панели индикатор AutoIt

;AutoItSetOption("TrayIconHide", 1)

;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.

AutoItSetOption("TrayIconDebug", 1)

AutoItSetOption("SendKeyDelay", 10)

If ProcessExists ( "ps.exe" )0 Then

ProcessClose ( "ps.exe" )

ProcessWaitClose ( "ps.exe" )

EndIf

BlockInput ( 1 )

Break(0)



Run ( @ScriptDir & '\' & 'allok_mp4converter.exe' )

WinWait( "Setup - Allok Video to MP4 Converter", "&Next >" )

WinActivate("Setup - Allok Video to MP4 Converter", "&Next >")

ControlClick ( "Setup - Allok Video to MP4 Converter", "&Next >", "TNewButton1")

WinWait("Setup - Allok Video to MP4 Converter","I &accept the agreement")

WinActivate("Setup - Allok Video to MP4 Converter","I &accept the agreement")

ControlClick("Setup - Allok Video to MP4 Converter","I &accept the agreement","TNewRadioButton1")

WinWait("Setup - Allok Video to MP4 Converter","&Next >")

WinActivate("Setup - Allok Video to MP4 Converter","&Next >")

ControlClick("Setup - Allok Video to MP4 Converter","&Next >","TNewButton2")

WinWait("Setup - Allok Video to MP4 Converter","&Next >")

WinActivate("Setup - Allok Video to MP4 Converter","&Next >")

ControlClick("Setup - Allok Video to MP4 Converter","&Next >","TNewButton3")

WinWait("Setup - Allok Video to MP4 Converter","&Don't create a Start Menu folder")

WinActivate("Setup - Allok Video to MP4 Converter","&Don't create a Start Menu folder")

ControlClick("Setup - Allok Video to MP4 Converter","&Don't create a Start Menu folder","TNewCheckBox1")

WinWait("Setup - Allok Video to MP4 Converter","&Next >")

WinActivate("Setup - Allok Video to MP4 Converter","&Next >")

ControlClick("Setup - Allok Video to MP4 Converter","&Next >","TNewButton4")

WinWait("Setup - Allok Video to MP4 Converter","Select Additional Tasks")

Send("{TAB}")

Send("{SPACE}")

WinWait("Setup - Allok Video to MP4 Converter","&Next >")

WinActivate("Setup - Allok Video to MP4 Converter","&Next >")

ControlClick("Setup - Allok Video to MP4 Converter","&Next >","TNewButton4")

WinWait("Setup - Allok Video to MP4 Converter","&Install")

WinActivate("Setup - Allok Video to MP4 Converter","&Install")

ControlClick("Setup - Allok Video to MP4 Converter","&Install","TNewButton4")

WinWait( "Setup - Allok Video to MP4 Converter", "&Finish" )

WinActivate("Setup - Allok Video to MP4 Converter", "&Finish")

ControlClick("Setup - Allok Video to MP4 Converter", "&Finish", "TNewButton4")

; Дальше ничего не идёт

WinActivate("Please register your copy", " Registration Process ")

WinWait("Please register your copy", " Registration Process ")

[266903582]

Цитата podix:



WinActivate("Please register your copy", " Registration Process ")

WinWait("Please register your copy", " Registration Process ")

Не активируется окно

у меня обычно идет наоборот - сначала WinWait, а затем WinActivate

[266903582]

podix, попробуй так:



Код:

Код: Выделить всё

 
run('allok_mp4converter.exe')
cl('Setup - Allok Video to MP4 Converter','Welcome to the Allok Video to MP4 Converter Setup Wizard','TNewButton1')
cl('Setup - Allok Video to MP4 Converter','License Agreement','TNewRadioButton1')
cl('Setup - Allok Video to MP4 Converter','License Agreement','TNewButton2')
cl('Setup - Allok Video to MP4 Converter','Select Destination Location','TNewButton3')
cl('Setup - Allok Video to MP4 Converter','Select Start Menu Folder','TNewButton4')
cl('Setup - Allok Video to MP4 Converter','Select Additional Tasks','TNewButton4')
cl('Setup - Allok Video to MP4 Converter','Ready to Install','TNewButton4')
cl('Setup - Allok Video to MP4 Converter','Completing the Allok Video to MP4 Converter Setup Wizard','TNewButton4')
wa('Please register your copy','This is a free Unregistered Copy(Trial Version), Please register your copy, so you can use it in full functions.')
ControlSetText('Please register your copy','This is a free Unregistered Copy(Trial Version), Please register your copy, so you can use it in full functions.','Edit1','License_name');ВСТАВИТЬ ТЕКСТ СЮДА
wa('Please register your copy','This is a free Unregistered Copy(Trial Version), Please register your copy, so you can use it in full functions.')
ControlSetText('Please register your copy','This is a free Unregistered Copy(Trial Version), Please register your copy, so you can use it in full functions.','Edit2','license_code');ВСТАВИТЬ ТЕКСТ СЮДА
cl('Please register your copy','This is a free Unregistered Copy(Trial Version), Please register your copy, so you can use it in full functions.','Button4')
Func wa($tx1, $tx2)
	While Not WinExists($tx1, $tx2)
		Sleep(1) 
	WEnd 
EndFunc
Func cl($tx1, $tx2,$classn)
	wa($tx1, $tx2)
	ControlClick($tx1, $tx2,$classn)
EndFunc

Только замени лицензионные ключи...

[podix]

266903582,

Расскажите что за команда WA

wa('Please register your copy','This

[podix]

Эта функция ждет появления окна. Передаем ей два параметра: заголовок и текст окна. Окно появляется - скрипт продолжает работать...

[266903582]

266903582,

wa - это WinWait ???

Есть ли справочник скороченых функций например wa-это WinWait и так со всеми командами

И как можно закрыть окно установленной программы???

За ответ заранее благодарен !!!

[podix]

Это не "скороченная" функция, просто две буквы, заменяющие мне написание нескольких строк цикла (лень мне много писать, проще пару кнопок нажать...). Сама функция определена в конце:



Код:

Код: Выделить всё

Func wa($tx1, $tx2)
	While Not WinExists($tx1, $tx2)
		Sleep(1) 
	WEnd 
EndFunc

Почитай раздел справки о пользовательских функциях!

[podix]

Всё таки я не могу никак закрыть окно установленной программы

Не поддаётся ни каким командам



266903582,


Цитата:



Почитай раздел справки о пользовательских функциях!



Точнее где этот справочник ??? Я не могу найти

[266903582]

Полезные ресурсы по AutoIt и архивы многостраничных тем

в шапке для тебя много интересного,

в том числе и ссылка на справочник:

http://www.autoitscript.com/autoit3/docs.shtml

. Когда скачаешь его, смотри функцию WinClose ( "title", ["text"] )