为何VB脚本执行Alt+F4无法关闭Oculus Client窗口？

一、VB脚本问题修复 #

核心问题分析 #

你的脚本里Alt+F4无效，大概率是因为快捷键发送时程序窗口未被激活，或者等待时长不足以让窗口完全就绪。以下是具体修改方案：

方案1：激活窗口后再发送快捷键

先通过窗口标题激活Oculus Client，再执行Alt+F4，这是最直接的修复方式：

Set WshShell = WScript.CreateObject("WScript.Shell")
' 替换为你的Oculus Client.exe实际路径
WshShell.Run "C:\Program Files\Oculus\Support\oculus-client\Oculus Client.exe"
' 延长等待时间，确保窗口完全加载（可根据实际情况调整为2000-5000ms）
WScript.Sleep 3000
' 激活窗口，注意标题要和Oculus Client窗口的实际标题一致（可通过任务管理器查看）
WshShell.AppActivate "Oculus"
' 发送Alt+F4快捷键（%代表Alt键）
WshShell.SendKeys "%{F4}"

方案2：通过进程ID激活窗口（如果标题匹配失效）

若无法通过标题激活，可通过进程ID定位窗口：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\Program Files\Oculus\Support\oculus-client\Oculus Client.exe"
WScript.Sleep 3000

' 查找Oculus Client的进程ID并激活窗口
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='Oculus Client.exe'")
For Each objProcess In colProcesses
    WshShell.AppActivate objProcess.ProcessId
    Exit For
Next
WshShell.SendKeys "%{F4}"

二、提问方式改进建议 #

• 贴出完整代码：把你当前使用的VB脚本完整粘贴，别人能直接排查SendKeys写法、等待逻辑等细节问题。
• 补充环境信息：说明Windows系统版本、Oculus Client的具体版本，不同版本的程序窗口行为可能有差异。
• 增加调试细节：比如你是否测试过单独执行SendKeys "%{F4}"是否有效，AppActivate是否返回激活成功（可通过If WshShell.AppActivate("Oculus") Then WScript.Echo "激活成功"验证）。
• 精准描述现象：把“无效果”具体化，比如脚本运行后窗口是否闪烁（判断是否激活）、有没有弹窗干扰快捷键发送。
• 明确需求场景：说明你写这个脚本的具体使用场景，比如是否开机自动执行，是否有其他后台程序同时运行。

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