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

李文明2017-08-11 13:30应用 标签:壁纸 Windows

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

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

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

小提示:

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

201705dtzm1

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

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

201705dtzm2

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

201705dtzm3

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

201705dtzm4

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

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

201705dtzm5

接下来打开记事本,输入以下内容,保存为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文件就可以实现动态壁纸功能啦。