[原创]按每天星期几自动切换壁纸！

1. 在C:\WINDOWS\Web\Wallpaper目录下，放置0.bmp，1.bmp……6.bmp（0为星期天）；

2. 将以下内容存为.vbs文件，并将.vbs文件放到开始菜单->启动中，每次登录后，即可自动切换。

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Control Panel\Desktop\wallpaper","C:\WINDOWS\Web\Wallpaper\" & (Weekday(Date) - 1) & ".bmp","REG_SZ"
WshShell.Run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"

转载于:https://www.cnblogs.com/oneisyou/archive/2010/05/12/1733838.html