vbscript - 我可以使用 VBScript 更改桌面背景，但它只会在重新启动后更新参数

Question

我一直在尝试使用 VBScript 更改我的桌面背景。它可以工作，但是只有在我重新启动后才会生效。有没有办法在不重新启动的情况下立即更新参数？

我尝试重新启动资源管理器以查看是否会更新参数，但不幸的是它没有做任何事情。

Set shell = WScript.CreateObject("WScript.Shell")
path = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
wallpaper = path & "\pp.jpg"

shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
shell.Run "C:\Windows\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters",1,True

我希望桌面背景图像在我运行脚本时更新。这就是它应该做的，但它只在我重新启动时更新参数和图像。我会很感激我能得到的任何帮助。