Question

我正在尝试在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 但它似乎没有正确运行组合

18年5月25日我对我的代码进行了一些更改，我似乎越来越接近搞清楚了。

@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和r启动应用程序。由于某种原因，击键似乎没有注册。我试过将关键笔划分离到它自己的脚本，它工作正常。我已经尝试过等待更久了。我还尝试添加以下代码来选择并确保应用程序处于活动状态。添加此代码似乎会破坏整个代码。

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

某些代码必须是冲突的。

Answer 1

我有一个类似的问题：VBScript sendkeys, Trying to do CTRL+ALT+A

我唯一能找到的就是使用一个powershell脚本来发送密钥组合并从你的VBScript中运行它。

VBS“WshShell.SendKeys”每次都不起作用。对于链接中的示例，当我使用该命令时，它在4或5中工作了1次（它不可靠）

vbs按键脚本

1 个答案: