Сценарий нажатия клавиш VBS - PullRequest
0 голосов
/ 24 мая 2018

Я пытаюсь написать скрипт в VBS, который будет нажимать Ctrl + Shift + R

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "Summit.Scripting.Toolkit.exe"

wscript.sleep 2000

WshShell.SendKeys "+^r"

Пока яудалось получить скрипт для активации / выбора приложения, но, к сожалению, нажатия клавиш не работают

При ссылке на другой веб-сайт я вижу Ctrl Клавиша ^ и Shift ключ + и r r, но, похоже, комбинация работает неправильно

5/25/18 Я внес некоторые изменения в свой код,Кажется, я все ближе к выяснению этого.

@echo off
forfiles -p "C:\Program Files (x86)\SummitHealthcare\CommonFiles\TextOut" -s -m *.log /D -0 /C "cmd /c del @path"

wscript.sleep 2000

cd "C:\Program Files (x86)\SummitHealthcare\Scripting Toolkit 7\Projects"
start Single_BARCommentsDBwithLoop23.ssc 

wscript.sleep 1000


Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F10}"

wscript.sleep 2000
WshShell.SendKeys "{r}"

У меня есть код удаления старых файлов кэша для приложения, затем сценарий ждет, открывает приложение, затем снова ждет, затем нажимает клавиши F10 иг для запуска приложения.По какой-то причине нажатия клавиш не регистрируются.Я пробовал разделять нажатия клавиш на собственный скрипт, и он работает нормально.Я пытался подождать дольше.Я также попытался добавить код ниже, чтобы выбрать и убедиться, что приложение активно.Добавление этого кода, похоже, нарушает весь код.

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "Summit.Scripting.Toolkit.exe"

Некоторый код должен конфликтовать.

1 Ответ

0 голосов
/ 31 мая 2018

У меня был похожий вопрос: VBScript sendkeys, Попытка сделать CTRL + ALT + A

Единственное, что я мог найти, - это использовать скрипт powershell, который отправляет комбинацию клавиш изапустите его из своего VBScript.

VBS "WshShell.SendKeys" не работает каждый раз.Для примера в ссылке, когда я использовал команду, она работала как 1 раз из 4 или 5 (это ненадежно)

...