脚本的第一部分确实有效（当密钥存在时 - 如果没有那就没问题，这就是我On Error Resume Next的原因。
但是2 nd 部分是我所关注的。它没有错误，我可以在Regedit中看到它确实将背景设置为“0 0 0”，但是当我刷新壁纸时，没有任何改变。
奇怪的是，如果我手动更改壁纸颜色，然后在Regedit中刷新屏幕，我会看到值的变化。
所以一切都告诉我这应该有效，但事实并非如此。粗线是我真正关心的。
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
on error resume next 'it may not exist
WSHShell.RegDelete _
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper"
On Error GoTo 0
wshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Colors\Background", "0 0 0","REG_SZ"