嘿，遇到这种之前正常突然罢工的脚本问题确实挺闹心的！我先梳理下你的情况：Windows 10 22H2版本，原本用来切换桌面背景的VBS脚本现在只弹出属性对话框和脚本窗口，却不执行后续的按键指令，而且已经确认Windows Script Host是启用状态，简单的MsgBox脚本也能正常运行。

先把你的问题细节明确下：

系统环境：Windows 10, Version 10.0.19045 Build 19045 (22H2)
原失效脚本：

set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.SendKeys("^ ")
WshShell.SendKeys("+{F10}")
WshShell.SendKeys("n")

问题根源分析 #

最可能的原因是焦点丢失——SendKeys是向当前拥有焦点的窗口发送按键指令的。你的脚本运行时，VBS脚本窗口可能抢走了焦点，导致后续的按键都发给了脚本窗口，而不是桌面或者属性对话框；另外，没有添加延迟的话，系统可能还没完成前一步操作（比如调出右键菜单），后续按键就已经发送了，自然不会生效。

解决方案 #

方案1：修复焦点问题并添加延迟

修改脚本，先强制切换到桌面确保焦点到位，再添加适当的延迟等待系统响应，这样按键就能准确发送到目标窗口：

set WshShell = WScript.CreateObject("Wscript.Shell")
' 先用Win+D回到桌面，确保桌面获得焦点
WshShell.SendKeys("^{ESC}d")
' 等待500毫秒，给系统足够时间切换桌面
WScript.Sleep 500
' 模拟右键菜单
WshShell.SendKeys("+{F10}")
' 等待100毫秒，确保右键菜单弹出
WScript.Sleep 100
' 发送"n"选择下一张背景
WshShell.SendKeys("n")

方案2：改用更稳定的方法（避开SendKeys的局限性）

SendKeys本身就很依赖系统状态和焦点，容易出问题。你可以尝试直接调用系统组件来操作，比如下面的脚本会打开桌面背景设置页，再模拟按键点击"下一张"按钮：

Set objShell = CreateObject("Shell.Application")
' 打开桌面背景设置面板
objShell.ControlPanelItem "desk.cpl,,3"
' 等待1秒让设置窗口加载完成
WScript.Sleep 1000
Set WshShell = CreateObject("WScript.Shell")
' 切换到"下一张"按钮（如果你的界面布局不同，可能需要调整TAB次数）
WshShell.SendKeys("{TAB}{TAB}{RIGHT}")
WshShell.SendKeys("{ENTER}")
' 关闭设置窗口
WshShell.SendKeys("%{F4}")

另外，也可以检查下最近有没有安装第三方桌面工具、系统更新，这些可能会拦截右键菜单或者快捷键，导致脚本失效。

备注：内容来源于stack exchange，提问作者mapper