Нужны примеры, как можно нажать на кнопку

lemonia · 14 Апр 2017

Версия AutoIt: 3.3.12.0

Описание:
Прошу привести примеры, как можно нажать на кнопку, так как пока только начал изучать AutoIt программирование и хочу иметь готовый кусок кода для применения, а также инструкцию, как данные этой кнопки для подстановки в скрипт можно получить. Window Info данные кнопки не определяются. Файл программы http://vedomo.ru/a/s/paketnaia/DjvuOCR.zip.

Khaibit · 14 Апр 2017

Код:

ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:16]')

Используйте control viever

lemonia · 14 Апр 2017

Благодарю. А как можно подняться на уровень вверх?
Вот вместе с той кнопкой, которую Вы подсказали, сначала делаю:

Код:

;ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:16]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:10]')

Khaibit · 14 Апр 2017

У меня нет XP, но если вам известен путь к файлу его можно вставить в поле "Имя файла" и нажать открыть,

Код:

ControlSetText('Select DJVU file', '', '[CLASS:Edit; INSTANCE:1]', 'путь'); вставляешь путь к файлу
ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]'); нажимаем открыть

можно еще попробовать нажать BackSpace

Код:

WinActivate('Select DJVU file', '')
ControlSend('Select DJVU file', '', '', '{BACKSPACE}')

lemonia · 14 Апр 2017

BACKSPACE не работает не в виде этого кода, не на клавиатуре. Допустим нахожусь в окне выбора файла, нажимаю его и на уровень вверх не перескакиваю. Горячая клавиша по описанию в интернете есть, а как ей пользоваться непонятно.
Добавлено:
Сообщение автоматически объединено: 14 Апр 2017

Вообщем понял, что чтобы BACKSPACE сработало, надо мышкой кликнуть внутри окна, там где файлы. Можете ли Вы подправить код с учётом этого? :scratch:

Khaibit · 14 Апр 2017

В окно не нужно нажимать, для этого нужна строчка, она активирует окно.

Код:

WinActivate('Select DJVU file', '')

Изначально неверный подход, допустим вы подниметесь на уровень выше, а дальше нужно будет еще выбирать папку, файл,
значит должно быть известно место где лежат нужные файлы. Это так?
Укажите в скрипте путь к папке, положите скрипт рядом с программой.

Код:

$path = 'C:\folder\' ; вставить путь в папке с файлами
Run('DjvuOCR.exe'); запуск программы рядом со скриптом
WinWait('[Class:CustomDlg]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:16]')
Sleep(250)
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:10]')
WinWait('Select DJVU file', '')
ControlSetText('Select DJVU file', '', '[CLASS:Edit; INSTANCE:1]', $path)
ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]')
$search = FileFindFirstFile($path & '*.djvu')
Local $all
While 1
	$file = FileFindNextFile($search) 
	If @error Then ExitLoop
	$all &= '"' & $file & '" '
WEnd
ControlSetText('Select DJVU file', '', '[CLASS:Edit; INSTANCE:1]', $all)
ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]')

lemonia · 14 Апр 2017

Благодарю. Пока что не знаю, как всё это систематизировать в соответствии с полной задачей скрипта. Посмотрите пожалуйста скриншоты в архиве
http://vedomo.ru/a/s/temp/DJVUOCR-s-primerami-dlia-raspakovki.zip
Надо обработать не одну папку, а все по очереди, автоматически беря ещё не обработанную. Там папки с непоследовательными именами. Если их невозможно обрабатывать в таком виде, то могу присваивать имена по порядку, например 1,2,3,4,5 или например 3,4,5,6,7,8. На скриншотах устанавливал курсор на кнопке, на которую надо нажимать.
Добавлено:
Сообщение автоматически объединено: 14 Апр 2017

По поводу пункта «10Выйти на уровень вверх наверное,выбрать эту же папку,ввести её номер и Enter». Это таким образом в каждой папке сохраняется файл настроек для этой папки с именем таким же, как и номер папки.

Khaibit · 14 Апр 2017

Я так понимаю сохранять файлы нужно в ту же папку где они были, а программа их перезапишет?
Можно и несколько папок, если они сами в одной папке, так вообще без проблем.

lemonia · 14 Апр 2017

В каждой папке, где DJVU файлы, распаковываются картинки из этих же файлов и сохраняется файл настроек с этим же именем, что и имя этой папки на шаге
«10Выйти на уровень вверх наверное,выбрать эту же папку,ввести её номер и Enter»

Ещё забыл, что после этого шага надо нажать кнопку «Create FR8 Batch» и подождать секунд 10.

а программа их перезапишет?

Программа их не перезапишет, они будут лежать в этой папке для того, чтобы их там распознала программа Finereader в последствии, то есть это будут потом уже файлы с текстом на следующем этапе.

Khaibit · 15 Апр 2017

Код:

$path = '\faili-primerov\' ; вставить путь к папке с папками
Run('DjvuOCR.exe'); запуск программы рядом со скриптом
WinWait('[Class:CustomDlg]')
WinActivate('[Class:CustomDlg]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:16]');decoder
Sleep(250)
$search1 = FileFindFirstFile($path & '*.*')
Local $folder
While 1
	$folder = FileFindNextFile($search1)
	If @error Then ExitLoop
	If @extended = 1 Then
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:10]');add
		WinWait('Select DJVU file', '')
		ControlSetText('Select DJVU file', '', '[CLASS:Edit; INSTANCE:1]', $path & $folder)
		ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]'); нажимаем открыть
		Sleep(250)
		ControlFocus('Select DJVU file', '','[CLASS:DirectUIHWND; INSTANCE:2]')
		ControlSend('Select DJVU file', '','[CLASS:DirectUIHWND; INSTANCE:2]', '^a')
		Sleep(250)
		ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]') ; нажимаем открыть
		WinWaitClose('Select DJVU file', '')
		ControlSetText('[Class:CustomDlg]', '', '[CLASS:Edit; INSTANCE:2]', $path & $folder); вставляем папку назачения
		Sleep(250)
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:18]');жмем прогресс
		WinWaitClose('Decoding process...', 'Stop decoding')
		WinWait('Decoder', '')
		ControlClick('Decoder', '', '[CLASS:Button; INSTANCE:1]');yes
		WinWait('Name for output OCR TXT file', '')
		ControlSetText('Name for output OCR TXT file', '', '[CLASS:Edit; INSTANCE:1]', $folder)
		Sleep(250)
		ControlClick('Name for output OCR TXT file', '', '[CLASS:Button; INSTANCE:2]');save
		Sleep(250)
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:32]');Create FR8 Batch
		Sleep(10000);10sek
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:14]'); мжеме очиститиь
		Sleep(250)
	EndIf
WEnd

как-то так, ошибки можно отловит и посчитать, но нужен заголовок окна и класс кнопки, просто повторить ошибку не удалось

lemonia · 15 Апр 2017

Благодарю. Останавливается в момент выбора папки с файлами. Думаю, что не переходит внутрь окна, чтобы можно было нажать Cntrl+A. Видео:
http://vedomo.ru/a/s/temp/PICT2753.AVI

По поводу, что ранее обсуждали насчёт перехода на уровень вверх. Вот такой вариант, который возможно можно усовершенствовать, записывал рекордером из папки установки AutoIT (C:\Program Files\AutoIt3\Extras\Au3Record\Au3Record.exe) и вместо координат мыши подставлял из вашего примера, это работало:

Код:

ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:16]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:10]')
_WinWaitActivate("Select DJVU file","")
Send("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{BACKSPACE}")

Ещё делал пример того, как должны выглядеть файлы после обработки:
http://vedomo.ru/a/s/temp/Primeri-papok-s-failami-posle-DJVUOCR.zip

Добавлено:
Сообщение автоматически объединено: 15 Апр 2017

На всякий случай вариант без перехода на уровень вверх:

Код:

WinWaitActivate("Select DJVU file","")
Send("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{CTRLDOWN}a{CTRLUP}{ENTER}")

Видео:
http://vedomo.ru/a/s/temp/PICT2754.AVI

Alofa · 15 Апр 2017

OffTopic:

Хмм... Первый раз встречаюсь с тем, что "Window Info" и "Control Viewer" видят по разному.
Нет, ну понятно - разные разработчики, их подготовка и знания, но... Но как так-то? :stars:

Khaibit · 15 Апр 2017

lemonia сказал(а):
Благодарю. Останавливается в момент выбора папки с файлами. Думаю, что не переходит внутрь окна, чтобы можно было нажать Cntrl+A.

А раскладка клавиатуры какая стоит?
попробуйте заменить строку

Код:

ControlSend('Select DJVU file', '','[CLASS:DirectUIHWND; INSTANCE:2]', '^a')

на

Код:

ControlSend('Select DJVU file', '','[CLASS:DirectUIHWND; INSTANCE:2]', '^ф')

или на

Код:

ControlSend('Select DJVU file', '','[CLASS:DirectUIHWND; INSTANCE:2]', '{CTRLDOWN}a{CTRLUP}')

lemonia · 15 Апр 2017

раскладка клавиатуры английская. попробовал оба варианта, они не работают :'(. То же самое в окне, изменений нет.

Khaibit · 15 Апр 2017

lemonia сказал(а):
раскладка клавиатуры английская. попробовал оба варианта, они не работают :'(. То же самое в окне, изменений нет.

Поставил XP на виртуалку, понял где возможна загвоздка, попробуйте так

Код:

$path = '\faili-primerov\' ; вставить путь к папке с папками
Run('DjvuOCR.exe'); запуск программы рядом со скриптом
WinWait('[Class:CustomDlg]')
WinActivate('[Class:CustomDlg]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:16]');decoder
Sleep(250)
$search1 = FileFindFirstFile($path & '*.*')
Local $folder
While 1
	$folder = FileFindNextFile($search1)
	If @error Then ExitLoop
	If @extended = 1 Then
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:10]');add
		WinWait('Select DJVU file', '')
		ControlSetText('Select DJVU file', '', '[CLASS:Edit; INSTANCE:1]', $path & $folder)
		ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]'); нажимаем открыть
		Sleep(250)
		ControlFocus('Select DJVU file', '', '[CLASS:DirectUIHWND; INSTANCE:2]')
		ControlListView('Select DJVU file', '', '[CLASS:SysListView32; INSTANCE:1]', 'SelectAll')
		Sleep(250)
		ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]') ; нажимаем открыть
		WinWaitClose('Select DJVU file', '')
		ControlSetText('[Class:CustomDlg]', '', '[CLASS:Edit; INSTANCE:2]', $path & $folder); вставляем папку назачения
		Sleep(250)
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:18]');жмем прогресс
		WinWaitClose('Decoding process...', 'Stop decoding')
		WinWait('Decoder', '')
		ControlClick('Decoder', '', '[CLASS:Button; INSTANCE:1]');yes
		WinWait('Name for output OCR TXT file', '')
		ControlSetText('Name for output OCR TXT file', '', '[CLASS:Edit; INSTANCE:1]', $folder)
		Sleep(250)
		ControlClick('Name for output OCR TXT file', '', '[CLASS:Button; INSTANCE:2]');save
		Sleep(250)
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:32]');Create FR8 Batch
		Sleep(10000);10sek
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:14]'); мжеме очиститиь
		Sleep(250)
	EndIf
WEnd

lemonia · 15 Апр 2017

Благодарю, заработало. Только файлы настроек с расширением .dprj не разложились по папкам, а разместились в одной из папок. Если так удобнее для целей дальнейшей запаковки после распознавания Finereader, то их можно не распределять по папкам, а размещать в корневой директории всех файлов, приделывая например спереди горизонтальную палочку: -8.dprj, -10.dprj, -11.dprj. Запаковку тоже Вас попрошу автоматизировать после пасхальных праздников. При запаковке из другой вкладки надо будет выбирать этот файл из окна. После пасхальных праздников наделаю скриншотов по процессу запаковки (не знаю, сколько дней после пасхи длятся праздники, когда надо ограничивать себя в работе, перенося на потом). Там надо, чтобы когда буду подготавливать распознанные Finereader примеры файлов, чтобы путь совпал. директорию с подпапками разместить на диске C? У Вас наверное в виртуальной машине диск С есть, как обычно бывает при установке операционной системы?
На скриншоте показал, что выбор файла настроек, это обычный выбор файла в окне.
Также написал в личку.

Khaibit · 15 Апр 2017

lemonia сказал(а):
Только файлы настроек с расширением .dprj не разложились по папкам, а разместились в одной из папок. Если так удобнее для целей дальнейшей запаковки после распознавания Finereader, то их можно не распределять по папкам, а размещать в корневой директории всех файлов, приделывая например спереди горизонтальную палочку: -8.dprj, -10.dprj, -11.dprj. чтобы путь совпал. директорию с подпапками разместить на диске C? У Вас наверное в виртуальной машине диск С есть

Точно все в одной папке, не заметил, можно и в корень, а можно и по папкам, уже вам решать, как вам удобней.
Диск С, да.
Дальше будем посмотреть что да как.
Вот так в отдельные папки.

Код:

$path = '\faili-primerov\' ; вставить путь к папке с папками
Run('DjvuOCR.exe'); запуск программы рядом со скриптом
WinWait('[Class:CustomDlg]')
WinActivate('[Class:CustomDlg]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:16]');decoder
Sleep(250)
$search1 = FileFindFirstFile($path & '*.*')
Local $folder
While 1
	$folder = FileFindNextFile($search1)
	If @error Then ExitLoop
	If @extended = 1 Then
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:10]');add
		WinWait('Select DJVU file', '')
		ControlSetText('Select DJVU file', '', '[CLASS:Edit; INSTANCE:1]', $path & $folder)
		ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]'); нажимаем открыть
		Sleep(250)
		ControlFocus('Select DJVU file', '', '[CLASS:DirectUIHWND; INSTANCE:2]')
		ControlListView('Select DJVU file', '', '[CLASS:SysListView32; INSTANCE:1]', 'SelectAll')
		Sleep(250)
		ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]') ; нажимаем открыть
		WinWaitClose('Select DJVU file', '')
		ControlSetText('[Class:CustomDlg]', '', '[CLASS:Edit; INSTANCE:2]', $path & $folder); вставляем папку назачения
		Sleep(250)
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:18]');жмем прогресс
		WinWaitClose('Decoding process...', 'Stop decoding')
		WinWait('Decoder', '')
		ControlClick('Decoder', '', '[CLASS:Button; INSTANCE:1]');yes
		WinWait('Name for output OCR TXT file', '')
		ControlSetText('Name for output OCR TXT file', '', '[CLASS:Edit; INSTANCE:1]', $path&$folder)
		Sleep(250)
		ControlClick('Name for output OCR TXT file', '', '[CLASS:Button; INSTANCE:2]');save
		Sleep(250)
		ControlSetText('Name for output OCR TXT file', '', '[CLASS:Edit; INSTANCE:1]', $folder)
		Sleep(250)
		ControlClick('Name for output OCR TXT file', '', '[CLASS:Button; INSTANCE:2]');save
		Sleep(250)
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:32]');Create FR8 Batch
		Sleep(10000);10sek
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:14]'); мжеме очиститиь
		Sleep(250)
	EndIf
WEnd

lemonia · 15 Апр 2017

Благодарю. Заработало. На следующей неделе в среду или четверг планирую разместить в теме архив со скриншотами и файлами.

lemonia · 19 Апр 2017

Здравствуйте. Подготовил архив https://cloud.mail.ru/public/HJMJ/EtLRgct78

Khaibit · 19 Апр 2017

Вот на тест, по поводу окна "теста проекта" - тут нужно определиться с максимумом по времени (пока 30 сек), по истечении которого останавливать обработку, или делать скрин.

Код:

$path = 'C:\djvu\'
Run('DjvuOCR.exe'); запуск программы рядом со скриптом
WinWait('[Class:CustomDlg]')
WinActivate('[Class:CustomDlg]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:18]')
Sleep(250)
$search1 = FileFindFirstFile($path & '*.*')
Local $folder, $count, $i
While 1
	$folder = FileFindNextFile($search1)
	If @error Then ExitLoop
	If @extended = 1 Then
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:29]');load decoder project
		WinWait('Select DECODER project', '')
		ControlSetText('Select DECODER project', '', '[CLASS:Edit; INSTANCE:1]', $path & $folder);выбираем папку проекта
		Sleep(250)
		ControlClick('Select DECODER project', '', '[CLASS:Button; INSTANCE:2]');открыть
		Sleep(250)
		ControlSetText('Select DECODER project', '', '[CLASS:Edit; INSTANCE:1]', $folder);выбираем файл проекта
		Sleep(250)
		ControlClick('Select DECODER project', '', '[CLASS:Button; INSTANCE:2]');открыть
		Sleep(250)
		ControlSetText('[Class:CustomDlg]', '', '[CLASS:Edit; INSTANCE:3]', $path & $folder);выбираем папку fine reader
		Sleep(250)
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:25]');тест проекта
		WinWaitClose('Processing...', 30);ждем закрытия окна теста, тут нужно определиться с максимумом, пока 30 сек
		If @error Then ;выход по тайм-ауту.
			ControlClick('Processing...', '', '[CLASS:Button; INSTANCE:2]'); останавливаем обработку
		Else
			$count = UBound(StringRegExp(FileRead($path & $folder & '\' & $folder & '.DPRJ'), 'file=', 3));получаем количество файлов в проекте
			ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:26]');жмем progress
			For $i = 1 To $count
				WinWaitClose('Processing DjVu files') ;ждем закрытия окна обработки файлов
			Next
		EndIf
		ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:17]');clean all
	EndIf
WEnd

Автор темы	Похожие темы	Форум	Ответы	Дата
D	Не записывает весь двумерный массив с нужным разделителем в текстовый файл	Общие вопросы по AutoIt	1	2 Окт 2021
S	Сеть, интернет Приостановить выполнение скрипта, до тех пор, пока не появится нужный элемент на странице	Автоматизация IE и Web-интерфейса	0	17 Июл 2021
F	Найти нужные строки во множестве документов	Общие вопросы по AutoIt	5	5 Ноя 2020
G	Как открыть файл xls и спустя 3 секунды после открытия - перейти на нужный лист	Общие вопросы по AutoIt	4	31 Июл 2019
A	Считаете ли вы нужным в разделе "Примеры и раб. проекты"...	Общение	2	1 Июн 2013

Нужны примеры, как можно нажать на кнопку

Новичок

Вложения

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Вложения

Alofa

Гость

Осваивающий

Новичок

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Новичок

Осваивающий