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

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"

2021-08-21
2021-05-31
2021-05-03
2021-09-14
2021-11-28
2021-09-14
2021-10-27
2021-12-23