[решено] Программно открыть окно сканирования [Версия для КПК]

Показать полную графическую версию : [решено] Программно открыть окно сканирования

test009

14-08-2021, 11:08

Подскажите как программно открыть вот это стандартное диалоговое окно сканера?
https://i.imgur.com/ie0MQ49.png

Обычно вручную так открываю:
Захожу в Пуск- Панель управления - нажимаю на свой сканер правой кнопкой мыши - выбираю там пункт "Начать сканирование".
Хочу это действие повесить на горячую клавишу.
Для этого мне нужна команда вызова.
https://i.imgur.com/aZRRQez.png

Grabber2006

15-08-2021, 20:08

Если на сканере есть кнопки, то это окно можно привязать, например, к кнопке "Сканировать". Делается в Свойствах сканирования -> События.

Angry Demon

16-08-2021, 14:19

Подскажите как программно открыть вот это стандартное диалоговое окно сканера?
Можно, например, при помощи Process Explorer определить процесс, отвечающий за сканирование, перетащив значок прицела на окно сканирования.

NickM

16-08-2021, 14:53

test009, здесь (https://superuser.com/questions/684061/automate-windows-scanning-feature) не смотрели?

UPD:
Что-то типа такого:
Set oDlg = CreateObject("WIA.CommonDialog")
Set Dev = oDlg.ShowSelectDevice
oDlg.ShowAcquisitionWizard Dev

test009

26-08-2021, 22:50

Благодарю всех, кто откликнулся.
Я сделал так:
Set oDlg = CreateObject("WIA.CommonDialog")
Set Device = CreateObject("WIA.DeviceManager")

for each devInfo in Device.DeviceInfos
devName = devInfo.Properties("Name").Value
if InStr(devName, "EPSON Perfection") > 0 then
Set dev = devInfo.Connect()

'MsgBox devName
'MsgBox "found!"
oDlg.ShowAcquisitionWizard dev
end if

next