BMPname = "c:/windows/WorldChina.bmp"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER/Control Panel/Desktop/Wallpaper",BMPname,"REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER/Control Panel/Desktop/TileWallpaper","0","REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER/Control Panel/Desktop/WallpaperStyle","0","REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/ListviewShadow","1","REG_DWORD"
WshShell.Run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"
set WshShell = nothing
用脚本更换墙纸
最新推荐文章于 2021-10-08 10:21:26 发布