$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