Что нового
Автор:
Фильтры

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

E

Encento

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

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

Примечания:
 
W

WSWR

AutoIT Гуру
Сообщения
941
Репутация
363
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 не подходит так как она не бесплатная для комерческого использования
 
W

WSWR

AutoIT Гуру
Сообщения
941
Репутация
363
На оф форуме 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('Мастер работы', '', '&Далее >')
 
L

lemonia

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

f32bfc6bfbb839d4eeb2be6b597efae1.jpg


8f8504242c5de7efa8976d428e7e3996.jpg
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
A [Автоматизация] Автоматическое заполнение полей веб формы данными из файла txt Покупка/продажа, поиск услуг 2
A [Автоматизация] Автоматическое заполнение полей веб формы данными из файла txt Стол заказов 0
V [Автоматизация] [АРХИВ] Автоматическое добавление объявлений на авито Примеры и рабочие проекты 0
I [Автоматизация] Автоматическое добавление фотографий в презентацию powerpoint из папки Стол заказов 1
V [Автоматизация] Автоматическое добавление пользователя в группу Общие вопросы по AutoIt 2
Похожие темы
[Автоматизация] Автоматическое заполнение полей веб формы данными из файла txt
[Автоматизация] Автоматическое заполнение полей веб формы данными из файла txt
[Автоматизация] [АРХИВ] Автоматическое добавление объявлений на авито
[Автоматизация] Автоматическое добавление фотографий в презентацию powerpoint из папки
[Автоматизация] Автоматическое добавление пользователя в группу
Верх