Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Не активируется окно

Ответить
Настройки темы
Не активируется окно

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


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Привет всем !!!
теперь другая у меня другая проблема После установки приложения появляется окно регистрации и я не могу его сделать активным чтоб записать туда ключ
Команды 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 ")

Отправлено: 23:38, 04-03-2009

 
D_Master


Сообщения: n/a

Профиль | Цитировать


Цитата podix:
WinActivate("Please register your copy", " Registration Process ")
WinWait("Please register your copy", " Registration Process ") »
у меня обычно идет наоборот - сначала WinWait, а затем WinActivate

Отправлено: 23:41, 04-03-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 67
Благодарности: 13

Профиль | Отправить PM | Цитировать


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
Только замени лицензионные ключи...

-------
Информация для размышления
Такому в вузах не научат

Это сообщение посчитали полезным следующие участники:

Отправлено: 01:39, 05-03-2009 | #3


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


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


266903582,
Расскажите что за команда WA
wa('Please register your copy','This

Отправлено: 17:05, 05-03-2009 | #4


Пользователь


Сообщения: 67
Благодарности: 13

Профиль | Отправить PM | Цитировать


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

-------
Информация для размышления
Такому в вузах не научат


Отправлено: 17:45, 05-03-2009 | #5


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


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


266903582,
wa - это WinWait ???
Есть ли справочник скороченых функций например wa-это WinWait и так со всеми командами
И как можно закрыть окно установленной программы???
За ответ заранее благодарен !!!

Отправлено: 18:50, 05-03-2009 | #6


Пользователь


Сообщения: 67
Благодарности: 13

Профиль | Отправить PM | Цитировать


Это не "скороченная" функция, просто две буквы, заменяющие мне написание нескольких строк цикла (лень мне много писать, проще пару кнопок нажать...). Сама функция определена в конце:
Код: Выделить весь код
Func wa($tx1, $tx2)
	While Not WinExists($tx1, $tx2)
		Sleep(1) 
	WEnd 
EndFunc
Почитай раздел справки о пользовательских функциях!

-------
Информация для размышления
Такому в вузах не научат


Отправлено: 19:12, 05-03-2009 | #7


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


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

266903582,
Цитата:
Почитай раздел справки о пользовательских функциях!
Точнее где этот справочник ??? Я не могу найти

Отправлено: 12:58, 06-03-2009 | #8


Пользователь


Сообщения: 67
Благодарности: 13

Профиль | Отправить PM | Цитировать


http://forum.oszone.net/thread-129417.html в шапке для тебя много интересного,
в том числе и ссылка на справочник: http://www.autoitscript.com/autoit3/docs.shtml. Когда скачаешь его, смотри функцию WinClose ( "title", ["text"] )

-------
Информация для размышления
Такому в вузах не научат


Отправлено: 13:36, 06-03-2009 | #9



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Не активируется окно

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
2008 R2 - [решено] не активируется Xakep Windows Server 2008/2008 R2 3 15-01-2010 19:48
Установка - Лицензионная Windows XP не активируется maromaks Лицензирование продуктов Microsoft 1 24-11-2009 11:02
Использование - Не активируется WinXP HE через интернет Vowan Лицензирование продуктов Microsoft 2 28-06-2008 00:19
Тюнер - Не активируется аудиовход при старте программы видеомонтажа Alex_22 Прочее железо 0 14-06-2008 18:29
Asus 9600 Pro и 9600 XT/TD - не активируется OpenGL SavmiN Видеокарты 5 29-04-2008 13:17




 
Переход