Что нового

[Автоматизация] Автоматическое сканирование с нужным PDI

Encento

Чайник
Сообщения
11
Репутация
0
Описание:
Помогите сделать скрипт для сканирования через стандартный драйвер сканера с DPI 100. т.е нужно чтоб пользователь нажал ярлык и сразу началось сканирование с нужными параметрами к примеру 100 или 150 DPI. без каких либо манимуляций с настройками со стороны пользователя.

зайти в настройки и выбрать нужный dpi у меня не получается
----
Код:
Global $Interval=4000
Global $Paused
Run ("wiaacmgr.exe")
WinWait ( "Мастер работы", "Мастер поможет скопировать изображения")
ControlSend ( "Мастер работы", "Мастер поможет скопировать изображения", "Button2", "{ENTER}" )

Примечания:
 

WSWR

AutoIT Гуру
Сообщения
941
Репутация
356
Encento

Может просто поставить IrfanView? Тогда можно сканировать через командную строку без всяких окон.

Делаем к IrfanView ярлык, в свойствах ярлыка в поле "Объект" пишем к пути до i_view32.exe например:

Код:
/batchscan=(scanfile,1,1,2,1,c:\,jpg,0) /dpi=(150,150) /scanhidden
Если через Autoit:
Код:
Run('i_view32.exe /batchscan=(file,1,1,2,1,c:\,jpg,0) /dpi=(150,150) /scanhidden', '', @SW_HIDE)

Будет кидать файлы в c:\
 
Автор
E

Encento

Чайник
Сообщения
11
Репутация
0
IrfanView не подходит так как она не бесплатная для комерческого использования
 

WSWR

AutoIT Гуру
Сообщения
941
Репутация
356
На оф форуме Autoit есть примеры с использованием WIAAUT.DLL
(Microsoft Windows Image Acquisition Library).
Вроде как для XP ее можно скачать прямо с сайта Майкрософт.

Также есть и практически готовые VBS-скрипты на эту тему http://forum.script-coding.com/viewtopic.php?id=4387

Не знаю, правда, как тут с коммерческим использованием.


Ну, а так, автоматизировать окна:

Код:
$iDpi = 300
Run('wiaacmgr.exe')
WinWait('Мастер работы', '')
ControlClick('Мастер работы', '', '&Далее >')
ControlClick('Мастер работы', '', 'Н&астроить')
WinWait('Свойства', '')
Sleep(300)
ControlSetText('Свойства', '', 'Edit3', $iDpi)
ControlClick('Свойства', '', 'Button3')
Sleep(300)
ControlClick('Мастер работы', '', '&Далее >')
ControlSetText('Мастер работы', '', 'Edit1', 'File')
Sleep(300)
ControlClick('Мастер работы', '', '&Далее >')
 
Автор
E

Encento

Чайник
Сообщения
11
Репутация
0
Спасибо :thumbs_up:
 

lemonia

Чайник
Сообщения
114
Репутация
0
А как сделать, чтобы этот скрипт доходил до конца, закрывая ненужные окна?



 
Верх