Windows 7 在Windows 7中更改壁纸
我写了一个小的vbs脚本来下载和更改当前用户的注册表壁纸。然而,它复制和改变,但壁纸没有改变。。。对下面代码中的错误有什么看法吗Windows 7 在Windows 7中更改壁纸,windows-7,vbscript,Windows 7,Vbscript,我写了一个小的vbs脚本来下载和更改当前用户的注册表壁纸。然而,它复制和改变,但壁纸没有改变。。。对下面代码中的错误有什么看法吗 Option Explicit Dim WshShell, strValue, sleepTime, oFSO strValue = "C:\wallpaper.bmp" sleepTime = 30000 Set oFSO = CreateObject("Scripting.FileSystemObject") oFSO.CopyFile "\\anspksnm
Option Explicit
Dim WshShell, strValue, sleepTime, oFSO
strValue = "C:\wallpaper.bmp"
sleepTime = 30000
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "\\anspksnms1\OSD\Scripts\wallpaper\wallpaper.bmp", "C:\"
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", strValue
WScript.Sleep sleepTime
WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False
Set WshShell = Nothing
我不是一个很好的vbscripter,但也许可以试试这个
wshShell.run "cmd /c RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 1, True
你试过把“1,假”改成“1,真”吗?其中一个答案中的代码使用True,另外,使用VB脚本可能有原因,但PowerShell可能提供了另一种选择