ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Написать скрипт vbs для автоматического запуска сканирования
14 сообщений из 14, страница 1 из 1
Написать скрипт vbs для автоматического запуска сканирования
    #38768174
Arthur26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arthur26
Участник
Добрый день,
Хочу написать скрипт для автоматического запуска сканирования (Win7):

Option Explicit
dim WshShell
set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run("wiaacmgr")
WshShell.SendKeys ("{Enter}")

Но запускается несколько копий приложения "New Scan".
Можно ли запустить одну копию приложения и сымитировать нажатие кнопки Scan Enter'ом?

Спасибо за советы.
...
Рейтинг: 0 / 0
06.10.2014, 16:42
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768268
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Arthur26,
Код: vbnet
1.
2.
3.
4.
5.
on error resume next
set WshShell = WScript.GetObject(,"Wscript.Shell")
if WshShell is nothing then
set WshShell = WScript.CreateObject("Wscript.Shell")
end if


вроде как-то так должно быть...
...
Рейтинг: 0 / 0
06.10.2014, 17:39
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768715
Arthur26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arthur26
Участник
The_Prist,
К сожаленью, я снова прошу помощи, т.к. запускается куча экземпляров "New Scan".
Никак не получается запустить одну копию и "нажать" на Enter, т.е. нажать на кнопку Scan.
Спасибо.
...
Рейтинг: 0 / 0
07.10.2014, 10:02
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768730
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Arthur26запускается куча экземпляров "New Scan".При однократном исполнении кода???
...
Рейтинг: 0 / 0
07.10.2014, 10:13
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768743
Arthur26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arthur26
Участник
Akina,
Да, при однократном исполнении кода. Привожу код:

Option Explicit
On error resume next
Dim WshShell

Set WshShell = WScript.GetObject(,"Wscript.Shell")
if WshShell is nothing then
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run("wiaacmgr")
WshShell.SendKeys ("{Enter}")
end if
...
Рейтинг: 0 / 0
07.10.2014, 10:19
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768747
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Модератор: Arthur26, освойте пожалуйста тэги оформления кода
...
Рейтинг: 0 / 0
07.10.2014, 10:23
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768752
Arthur26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arthur26
Участник
Shocker.Pro,
Извиняюсь,

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit
On error resume next
Dim WshShell

Set WshShell = WScript.GetObject(,"Wscript.Shell")
if WshShell is nothing then
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run("wiaacmgr")
WshShell.SendKeys ("{Enter}")
end if
...
Рейтинг: 0 / 0
07.10.2014, 10:32
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768764
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Arthur26,

Вообще я недоглядел - при таком подходе все верно, так и будет запускаться, т.к.
Код: vbnet
1.
WshShell.Run("wiaacmgr")


запускает приложение сканирования. Run не смотрит, запущен ли уже экземпляр приложения - она всегда создает новый независимый процесс. По идее Вам правильнее было бы создать цикл, в котором создавать сканы. Либо можно попробовать так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Option Explicit
Dim WshShell,WshExec,h

Set WshShell = WScript.CreateObject("Wscript.Shell")
On error resume next
Set WshExec = WshShell.Exec("wiaacmgr")
if WshShell is nothing then
    set WshExec = WshShell.Run("wiaacmgr")
end if
h = WshShell.AppActivate(WshExec.ProcessID)
If h then WshShell.SendKeys ("{Enter}")
...
Рейтинг: 0 / 0
07.10.2014, 10:44
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768765
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
The_Prist
Код: vbnet
1.
if WshShell is nothing then

Должно быть
Код: vbnet
1.
if WshExec is nothing then
...
Рейтинг: 0 / 0
07.10.2014, 10:45
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768809
Arthur26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arthur26
Участник
The_Prist,
Сейчас запускается один экземпляр New Scan, активна кнопка Scan, но не получается нажать на кнопку Scan.
...
Рейтинг: 0 / 0
07.10.2014, 11:22
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768837
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Arthur26,

попробуйте убрать: If h then
...
Рейтинг: 0 / 0
07.10.2014, 11:44
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38768875
Arthur26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arthur26
Участник
The_Prist,

Нет, к сожаленью, и таким образом не получается "нажать" на кнопку Scan.
...
Рейтинг: 0 / 0
07.10.2014, 12:03
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38774024
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
prologos
Гость
The_Prist, не знаю что у парня не получается, у меня кенон работает на Ваш код:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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}")
...
Рейтинг: 0 / 0
11.10.2014, 16:32
| Ответить | Цитировать | Написать  
Написать скрипт vbs для автоматического запуска сканирования
    #38774357
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
prologos,

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

--
Без AppActivate понятное дело второй раз запускалось, так как, если запускать через Explorer, файл был выделен, и посылка "Enter" приводила к повторному запуску WScript и выполнению кода
...
Рейтинг: 0 / 0
12.10.2014, 16:19
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Написать скрипт vbs для автоматического запуска сканирования
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38774024&tid=2156172]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 230ms
total:  366ms
созд. / загр.: 366ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]