|
'将代码粘贴到记事本,选择ANSI编码,另存为 设置壁纸.vbs
'wallpaper路径改成你自己的图片文件路径
'需要注意的是,有些系统设置壁纸之后,需要注销当前用户或者重启系统才会生效.
Dim wallpaper,WshShell
wallpaper = "C:\Program Files (x86)\wallpaper.jpg"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper, "REG_SZ"
WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True
Set WshShell = Nothing
|
|