VBS脚本实现卸载程序时按Tab/左箭头+Enter的问题求助

问题排查核心点 #

你的脚本在记事本环境正常运行，但卸载窗口无响应，问题集中在以下几个细节：

• 窗口标题匹配错误：AppActivate("uninstall")用了模糊标题，卸载程序的实际窗口标题通常是带程序名的全称（比如"Uninstall XXX Software"），用进程ID激活窗口会更可靠。
• 重复创建Shell对象：每次SendKeys都新建WScript.Shell会丢失上下文，必须复用同一个对象。
• 控件未获取焦点：窗口激活后，内部交互控件可能未获得输入焦点，需要额外操作触发焦点。

修正后的脚本示例 #

方式1：自动运行卸载程序并发送按键

通过进程ID激活窗口，避免标题匹配误差，同时确保控件获取焦点：

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

' 运行卸载程序，获取进程ID（参数1表示窗口正常显示）
procID = objShell.Run("""D:\实际路径\unins000.exe""", 1, False)

' 等待窗口完全加载，根据程序加载速度调整时间
WScript.Sleep 5000

' 通过进程ID激活窗口，比标题匹配更精准
objShell.AppActivate procID

' 发送Alt键触发窗口内部控件获取焦点
objShell.SendKeys "%"
WScript.Sleep 300

' 发送左箭头+回车
objShell.SendKeys "{LEFT}"
WScript.Sleep 200
objShell.SendKeys "{ENTER}"

方式2：手动打开卸载窗口后发送按键

先从任务管理器获取卸载窗口的准确标题，再执行脚本：

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

' 替换为卸载窗口的真实标题，比如"Uninstall MyApp v1.0"
objShell.AppActivate "Uninstall MyApp v1.0"

WScript.Sleep 1000
' 触发控件焦点
objShell.SendKeys "%"
WScript.Sleep 200

' 发送Tab+回车
objShell.SendKeys "{TAB}"
WScript.Sleep 200
objShell.SendKeys "{ENTER}"

关键注意事项 #

• 确认窗口标识：打开卸载程序后，在任务管理器右键进程→「转到窗口」查看准确标题；或直接使用Run方法返回的进程ID激活窗口。
• 复用Shell对象：全程使用同一个objShell实例执行AppActivate和SendKeys操作。
• 调整等待时长：不同程序加载速度不同，可根据实际情况增减Sleep的毫秒数。
• 管理员权限：如果卸载程序需要管理员权限，脚本也必须以管理员身份运行，否则SendKeys指令无法生效。

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