玩转动态壁纸Windows系统一个都不能少

李文明

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

小提示

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

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

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

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

下载Windows7-DreamScene，解压，以管理员身份运行“Windows7-DreamsceRe.cmd”文件，系统会自动安装完成。在WMV文件的右键菜单中将多出“Set as DesktopBackground”菜单，点击即可将此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=Create Object（"Scripting.FileSystemObject"）

pt="C：＼Users＼AdministratOr＼DesktOp＼0.gif.ifI"存放图片的文件夹

setbmpfol=fso.getfolder（pt）

for each flies in bmpfol.files

iffso.GetExtensionName（files.path）="bmp"thenbmppt=bmppt&flles.path&"I"

next

bmppt=left（bmppt，len（bmppt）-1）

ifbmppt=""then

msgbox”您选择的目录中不合有BMP图片，程序将退出！”，64

wscript.quit

end if

bmpar=split（bmppt，"I"）

Set WS=CreateO bJec（"WScript.Shell"）

for i=0 to ubound（bmpar）

pt=bmpar（i）

WS.RegWrite"HKEY_CURRENT_USER＼ControlPanel＼Desktop＼TileWallpaper"，"0"，"REG_SZ"

WS.RegWrlte"HKEY_CURRENT_USER＼ControlPanel＼DesktOp＼Wallpaper"，pt，"REG_SZ"

WS.RegWrlte"HKEY_CURRENT_USER＼ControlPanel＼Desktop＼WallpaperStyle"，"2"，"REG_SZ"

ws.RegWrite"HKEY_CURRENT_USER＼SOftwa re＼Microsoft＼Windows＼CurrentVersion＼Explorer＼Advanced＼ListviewShadow"，"1"，"REG_DWORD"

WS.run"gpupdate/force"，0

WS.run"RunDll32.exe USER32.DLL，UpdatePerUserSVstemPsrsmeters"

wscript.sleep 100 '更換壁纸的时间间隔，毫秒

if i=ubound（bmpar）then i=-1

Rext

以上代码可以在http：//pan.baidu.com/s/1iH52Q9下载后直接使用。

需要注意的是：代码第3行"Dt="C：＼Users＼Administrator＼Desktop＼0.gif.ifl""中的路径为上一步拆分的图片存放的位置，图片必须为BMP格式。第25行“wscript.sleep100”为更换壁纸的时间间隔，单位为毫秒，数值越小更换速度越快，可根据实际情况自行修改。双击运行VBS文件就可以实现动态壁纸功能啦。