虽然壁纸可以经常更换，但总是看着静态壁纸难免让人乏味。下面就教你如何设置动态壁纸，让你的桌面动起来炫起来。
Windows XP系统虽已退休多年，但在国内仍有大量的忠实用户，那我们就从它说起。其实Windows XP系统天生就支持动态桌面。
在桌面空白处点击右键，选择“属性”，切换到“桌面”选项卡，点击“浏览”，找一张动态GIF图片，点击“确定”返回桌面，看看是不是已经动起来了！网上找到的GIF图片一般尺寸较小，如果设置“位置”时选择“居中”或“拉伸”可能效果不是很好，但选择“平铺”可能会出现意想不到的效果。
小提示：
Windows 7系统可以将GIF图片作为壁纸，但无法实现动态效果。虽然无法使用GIF动画实现动态桌面的效果，但通过使用简单的插件，我们就可以将WMV影片直接作为桌面壁纸，使你的系统瞬间变得高大上。
在桌面空白处点击右键，将多出“Pause DreamScene”菜单，点击可以暂停动态桌面，点击“Play DreamScene”可恢复播放（图3）。
如果点击“Set as Desktop Background”报错，可以按照以下方法解决：在桌面空白处点击右键，选择“个性化”，选择一个“Aero主题”。然后点击“开始”菜单，进入“控制面板”，选择“系统”，点击左侧“高级系统设置”，点击“性能”中的“设置”，点选“让Windows选择计算机的最佳设置”或“调整为最佳外观”即可（图4）。
如果使用的是Windows 10系统，会发现以上两种方法都失效了，但我们还有“曲线救国”的方法。使用VBS脚本定时更换壁纸就可以实现动态壁纸的功能。
接下来打开记事本，输入以下内容，保存为VBS文件。
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
pt = "C:\Users\Administrator\Desktop\0.gif.ifl" '存放图片的文件夹
setbmpfol = fso.getfolder(pt)
for each files in bmpfol.files
iffso.GetExtensionName(files.path) = "bmp" then bmppt = bmppt&files.path& "|"
next
bmppt = left(bmppt,len(bmppt) - 1)
ifbmppt = "" then
msgbox "您选择的目录中不含有BMP图片，程序将退出！",64
wscript.quit
end if
bmpar = split(bmppt,"|")
Set ws = CreateObject("WScript.Shell")
for i = 0 to ubound(bmpar)
pt = bmpar(i)
ws.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\TileWallpaper","0","REG_SZ"
ws.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper",pt,"REG_SZ"
ws.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\WallpaperStyle","2","REG_SZ"
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewShadow","1","REG_DWORD"
ws.run "gpupdate /force",0
ws.run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"
wscript.sleep 100 '更换壁纸的时间间隔，毫秒
if i = ubound(bmpar) then i = -1
next
以上代码可以在 = "C:\Users\Administrator\Desktop\0.gif.ifl"”中的路径为上一步拆分的图片存放的位置，图片必须为BMP格式。第25行“wscript.sleep 100”为更换壁纸的时间间隔，单位为毫秒，数值越小更换速度越快，可根据实际情况自行修改。双击运行VBS文件就可以实现动态壁纸功能啦。
全部评论