VBS脚本按键无响应问题求助：Ctrl+Shift+R及F10+r失效

咱们先拆解下你遇到的核心问题：目标程序能启动但模拟按键没反应、添加AppActivate后脚本异常，结合你说单独按键脚本正常的情况，大概率是程序激活时机、焦点捕获或者按键模拟方式的问题，试试下面这些针对性方案：

1. 修正AppActivate的使用逻辑，确保程序完全激活 #

你提到加AppActivate后脚本异常，大概率是激活时机不对，或者窗口标题匹配出了问题。试试这样调整代码：

Dim objShell, isActivated
Set objShell = CreateObject("WScript.Shell")

' 启动目标程序
objShell.Run "Summit.Scripting.Toolkit.exe", 1, False

' 循环等待程序窗口加载，最多等10秒（可按需调整）
For i = 1 To 20
    isActivated = objShell.AppActivate("Summit.Scripting.Toolkit") ' 这里填程序窗口的准确标题，不知道的话去任务管理器看
    If isActivated Then Exit For
    WScript.Sleep 500
Next

' 确认激活成功后再执行按键
If isActivated Then
    objShell.AppActivate "Summit.Scripting.Toolkit" ' 再次确保焦点在目标窗口
    WScript.Sleep 1500 ' 给程序留足初始化时间，避免还没准备好就接收按键
    ' 模拟Ctrl+Shift+R
    objShell.SendKeys "^+r"
Else
    WScript.Echo "激活失败，请检查程序路径或窗口标题是否正确"
End If

注意：AppActivate的参数优先用程序窗口的准确标题，如果标题有特殊字符（比如空格、版本号），一定要完全匹配；也可以用进程ID来激活，但需要额外写获取进程ID的代码，先把标题匹配的方式试通再说。

2. 换分步按键的方式，绕过组合键拦截 #

有些专业工具对SendKeys的组合键支持不好，试试拆分按键步骤：

' 激活程序后执行这段
objShell.SendKeys "^+" ' 按住Ctrl+Shift
WScript.Sleep 100
objShell.SendKeys "r"
WScript.Sleep 100
objShell.SendKeys "{CTRLUP}" ' 释放Ctrl
objShell.SendKeys "{SHIFTUP}" ' 释放Shift

这种分步模拟的方式，有时候能绕过程序对组合键的特殊拦截逻辑。

3. 排查程序焦点和权限问题 #

• 很多专业工具会拦截模拟按键，一定要以管理员身份运行脚本，尤其是目标程序本身需要管理员权限的情况下。
• 程序启动后可能有加载动画或初始化流程，这时候窗口虽然显示，但实际没获取到输入焦点。可以在按键前先发送一个{TAB}或{ENTER}触发焦点，再发送目标按键。

4. 解决AppActivate导致的脚本异常 #

如果添加AppActivate后脚本崩溃，大概率是这两个原因：

• 窗口标题匹配失败，脚本抛出未捕获的错误。可以加错误捕获：

On Error Resume Next
isActivated = objShell.AppActivate("Summit.Scripting.Toolkit")
If Err.Number <> 0 Then
    WScript.Echo "激活出错：" & Err.Description
    Err.Clear
End If
On Error GoTo 0

• 程序启动后还没完成窗口注册，导致AppActivate找不到窗口。这时候就需要延长等待时间，或者用进程监控的方式确认程序完全启动。

针对你5/25/18修改的缓存方案（删除缓存+F10+r） #

如果这个方案里按键失效，同样可以用上面的焦点等待+分步按键逻辑：

Dim objShell
Set objShell = CreateObject("WScript.Shell")

' 删除缓存文件（替换成你的实际缓存路径）
objShell.Run "cmd /c del ""C:\Your\Cache\Path\File.cache""", 0, True

' 启动程序
objShell.Run "Summit.Scripting.Toolkit.exe", 1, False

' 等待窗口激活
For i = 1 To 20
    If objShell.AppActivate("Summit.Scripting.Toolkit") Then Exit For
    WScript.Sleep 500
Next

' 等待程序加载完成
WScript.Sleep 2000

' 先发送F10
objShell.SendKeys "{F10}"
WScript.Sleep 500
' 再发送r
objShell.SendKeys "r"

最后提一句：SendKeys本身对某些小众工具的兼容性确实有限，如果上面的方法都不行，可以试试用Windows API模拟按键（需要VBS调用API，稍微复杂一点），不过先把上面的基础方案都试一遍，大概率能解决问题。

内容的提问来源于stack exchange，提问作者smitty8766