Цитата: В этом автоскане нет никакой нужды, он был глючный и работал очень неустойчиво. Возможная альтернатива: скрипт U235 - http://alexrey036.narod.ru/ , правда, Ирфан там не нужен, используются стандартные фичи винды. Другой вариант: макрос к Ирфану с использованием AutoRecorder или аналогичного софта. Проблема в том, что Ирфан использует только чужие TWAIN, поэтому автоматизация касается не столько его самого, сколько применяемого TWAIN.
Большое спасибо за линк! Я сам написал простой Autoit3 скрипт для Ирфана - работает отлично! Следующим шагом пытаюсь написать скрипт непосредственно под HP Precision Scan, ведь так будет быстрее (не нужно каждый раз загружать его). Проблема в диалоге "Сохранить как" - он никак не реагирует на комманды. Может кто поможет?
вот этот диалог А вот фрагмент скрипта, который не работает :
Func RunScan()
WinWait ( "HP PrecisionScan")
ControlSend ("HP PrecisionScan","", "Button1", "{ENTER}" )
; досюда работает
WinWait ( "Save As")
;ControlCommand ( "Save As", "", "Edit1", $nFile)
ControlCommand ( "Save As", "", "ComboBox3", "SelectString", "TIFF Compressed (*.tif)" )
WinWait ( "Save As")
ControlSetText ( "Save As", "", "ComboBox1", $sDirPath );
WinWait ( "Save As")
;ControlSetText ( "Save As", "", "Edit1", $sDirPath & $nFile )
ControlSetText ( "Save As", "", "Edit1", $nFile );
WinWait ( "Save As")
ControlCommand ( "Save As", "", "ComboBox2", "SelectString",$sDirPath & $nFile )
EndFunc