SELECT * FROM Vzakladke.net

Статьи об автоматизации и программировании

Скрипт для автоматического запуска сканирования

 

 

Скрипт для автоматического запуска сканирования будет работать в случае если к компьютеру подключен сканер и есть соответствующий драйвер.  

 
Option Explicit
Dim WshShell,WshExec,h

Set WshShell = WScript.CreateObject("Wscript.Shell")
On error resume next
Set WshExec = WshShell.Exec("wiaacmgr")
if WshExec is nothing then
    set WshExec = WshShell.Run("wiaacmgr")
end if
h = WshShell.AppActivate(WshExec.ProcessID)
If h then WshShell.SendKeys ("{Enter}")

 

Дата публикации: 2015-05-09 13:17:41

vbs

0

Отзывы:

Влад
Может поставить между запуском процесса и AppActivate - Sleep, чтобы хотя бы окно успело сканера загрузиться? (хоть и не обязательно)

Ваше имя:

Ваш e-mail (необязательно):

Сообщение:

Captcha