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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Windows 8 и 8.1 (http://forum.oszone.net/forumdisplay.php?f=116)

- - [решено] Программно открыть окно сканирования (http://forum.oszone.net/showthread.php?t=349394)

test009

14-08-2021 11:08 2964210

Программно открыть окно сканирования

Подскажите как программно открыть вот это стандартное диалоговое окно сканера?

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

Grabber2006

15-08-2021 20:08 2964277

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

Angry Demon

16-08-2021 14:19 2964317

Цитата:

Цитата test009

Подскажите как программно открыть вот это стандартное диалоговое окно сканера?

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

NickM

16-08-2021 14:53 2964321

test009, здесь не смотрели?

UPD:
Что-то типа такого:

Код:

Set oDlg = CreateObject("WIA.CommonDialog")

Set Dev = oDlg.ShowSelectDevice 

oDlg.ShowAcquisitionWizard Dev

test009

26-08-2021 22:50 2965098

Благодарю всех, кто откликнулся.
Я сделал так:

Код:

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

Время: 05:11.