就问你酷不酷 定制自己的动态壁纸

虽然壁纸可以经常更换，但总是看着静态壁纸难免让人乏味。下面就教你如何设置动态壁纸，让你的桌面动起来炫起来。

Windows XP系统虽已退休多年，但在国内仍有大量的忠实用户，那我们就从它说起。其实Windows XP系统天生就支持动态桌面。

在桌面空白处点击右键，选择“属性”，切换到“桌面”选项卡，点击“浏览”，找一张动态GIF图片，点击“确定”返回桌面，看看是不是已经动起来了！网上找到的GIF图片一般尺寸较小，如果设置“位置”时选择“居中”或“拉伸”可能效果不是很好，但选择“平铺”可能会出现意想不到的效果。

小提示：

如果确实无法找到尺寸合适的GIF动画，我们还可以自己动手将任意视频录制为GIF动画。下载安装好GifCam后，打开你要录制的视频并调整到合适的大小，然后启动GIFCam，通过拖拽边框调整录制区域的大小，点击“录制”按钮即可开始录制，录制完毕点击“停止”按钮，最后点击“保存”即可生成需要的GIF动画了（图1）。

Windows 7系统可以将GIF图片作为壁纸，但无法实现动态效果。虽然无法使用GIF动画实现动态桌面的效果，但通过使用简单的插件，我们就可以将WMV影片直接作为桌面壁纸，使你的系统瞬间变得高大上。

下载Windows7-DreamScene，解压，以管理员身份运行“Windows7-Dreamscene.cmd”文件，系统会自动安装完成。在WMV文件上右键菜单中将多出“Set as Desktop Background”菜单，点击即可将此WMV影片作为桌面背景（图2）。

在桌面空白处点击右键，将多出“Pause DreamScene”菜单，点击可以暂停动态桌面，点击“Play DreamScene”可恢复播放（图3）。

如果点击“Set as Desktop Background”报错，可以按照以下方法解决：在桌面空白处点击右键，选择“个性化”，选择一个“Aero主题”。然后点击“开始”菜单，进入“控制面板”，选择“系统”，点击左侧“高级系统设置”，点击“性能”中的“设置”，点选“让Windows选择计算机的最佳设置”或“调整为最佳外观”即可（图4）。

如果使用的是Windows 10系统，会发现以上两种方法都失效了，但我们还有“曲线救国”的方法。使用VBS脚本定时更换壁纸就可以实现动态壁纸的功能。

首先我们要做的是拆分GIF动画。下载运行gifsplitter程序，选择要拆分的GIF文件，设置输出目录，点击“开始分离”，待分离完毕退出程序即可（图5）。

接下来打开记事本，输入以下内容，保存为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

以上代码可以在
http://pan.baidu.com/s/1jH5zQ9下载使用。需要注意的是：代码第三行“pt = "C:\Users\Administrator\Desktop\0.gif.ifl"”中的路径为上一步拆分的图片存放的位置，图片必须为BMP格式。第25行“wscript.sleep 100”为更换壁纸的时间间隔，单位为毫秒，数值越小更换速度越快，可根据实际情况自行修改。双击运行VBS文件就可以实现动态壁纸功能啦。