用脚本更换墙纸

来源:互联网 发布:人工智能上市企业 编辑:程序博客网 时间:2024/04/18 20:51

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

原创粉丝点击