win10壁纸拉伸-(win10壁纸拉伸平铺)

虽然壁纸可以经常更换，但总是看静态壁纸是不可避免的。教你如何设置动态壁纸，让你的桌面动起来炫耀。ZGjoffice教程网

Windows XP虽然该系统已经退休多年，但中国仍有大量的忠实用户，所以让我们从它开始。其实Windows XP该系统自然支持动态桌面。ZGjoffice教程网

单击桌面空白处的右键，选择属性GIF点击确定图片返回桌面，查看是否已移动！网上找到的GIF图片一般尺寸较小。如果在设置位置时选择中间或拉伸，效果可能不是很好，但选择平铺可能会产生意想不到的效果。ZGjoffice教程网

小提示：ZGjoffice教程网

如果找不到合适的尺寸，GIF动画，我们也可以自己录制任何视频GIF动画。下载安装好GifCam打开要录制的视频，调整到合适的大小，然后启动GIFCam，通过拖动边框调整录制区域的大小，点击录制按钮开始录制，点击停止按钮，点击保存生成所需的按钮GIF动画(图1)。ZGjoffice教程网

ZGjoffice教程网

Windows 7系统可以将GIF图片作为壁纸，但不能达到动态效果。虽然不能使用GIF动画实现了动态桌面的效果，但我们可以使用简单的插件WMV电影直接作为桌面壁纸，让你的系统瞬间变高。ZGjoffice教程网

下载Windows7-DreamScene，解压，作为管理员操作Windows7-Dreamscene.cmd系统将自动安装文件。在WMV文件右键菜单中会有更多的Set as Desktop Background菜单，点击这个WMV电影作为桌面背景(图2)。ZGjoffice教程网

ZGjoffice教程网

点击桌面空白处的右键，多出Pause DreamScene菜单，点击可以暂停动态桌面，点击Play DreamScene可恢复播放(图3)。ZGjoffice教程网

ZGjoffice教程网

如果点击“Set as Desktop Background错误报告可以通过以下方法解决：单击桌面空白处的右键，选择个性化Aero主题”。然后点击开始菜单，输入控制面板，选择系统，点击左侧的高级系统设置，点击性能中的设置Windows选择计算机的最佳设置或调整为最佳外观(图4)。ZGjoffice教程网

ZGjoffice教程网

若使用Windows 10系统会发现上述两种方法都失败了，但我们仍然有曲线救国的方法。使用VBS定期更换脚本壁纸可以实现动态壁纸的功能。ZGjoffice教程网

我们要做的是拆分GIF动画。下载运行gifsplitter选择要拆分的程序GIF设置输出目录，单击开始分离，待分离完成退出程序(图5)。ZGjoffice教程网

ZGjoffice教程网

然后打开记事本，输入以下内容保存VBS文件。ZGjoffice教程网

on error resume nextZGjoffice教程网

Set fso = CreateObject(//"Scripting.FileSystemObject//")ZGjoffice教程网

pt = //"Chttp://hao123w.com 存储图片的文件夹ZGjoffice教程网

setbmpfol = fso.getfolder(pt)ZGjoffice教程网

for each files in bmpfol.filesZGjoffice教程网

iffso.GetExtensionName(files.path) = //"bmp//" then bmppt = bmppt&files.path& //"|//"ZGjoffice教程网

nextZGjoffice教程网

bmppt = left(bmppt,len(bmppt) - 1)ZGjoffice教程网

ifbmppt = //"//" thenZGjoffice教程网

msgbox //"您选择的目录不包括在内BMP图片，程序退出！//",64ZGjoffice教程网

wscript.quitZGjoffice教程网

end ifZGjoffice教程网

bmpar = split(bmppt,//"|//")ZGjoffice教程网

Set ws = CreateObject(//"WScript.Shell//")ZGjoffice教程网

for i = 0 to ubound(bmpar)ZGjoffice教程网

pt = bmpar(i)ZGjoffice教程网

ws.RegWrite //"HKEY_CURRENT_USER//Control Panel//Desktop//TileWallpaper//",//"0//",//"REG_SZ//"ZGjoffice教程网

ws.RegWrite //"HKEY_CURRENT_USER//Control Panel//Desktop//Wallpaper//",pt,//"REG_SZ//"ZGjoffice教程网

ws.RegWrite //"HKEY_CURRENT_USER//Control Panel//Desktop//WallpaperStyle//",//"2//",//"REG_SZ//"ZGjoffice教程网

ws.RegWrite //"HKEY_CURRENT_USER//Software//Microsoft//Windows//CurrentVersion//Explorer//Advanced//ListviewShadow//",//"1//",//"REG_DWORD//"ZGjoffice教程网

ws.run //"gpupdate /force//",0ZGjoffice教程网

ws.run //"RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters//"ZGjoffice教程网

wscript.sleep 100 更换壁纸的时间间隔，毫秒ZGjoffice教程网

if i = ubound(bmpar) then i = -1ZGjoffice教程网

nextZGjoffice教程网

以上代码可在http://hao123w.com = //"Chttp://hao123w.com 更换壁纸的时间间隔为100，单位为毫秒，数值越小，更换速度越快，可根据实际情况自行修改。第25行“wscript.sleep 100是更换壁纸的时间间隔，单位为毫秒值越小，更换速度越快，可根据实际情况进行修改。双击操作VBS动态壁纸功能可以通过文件实现。ZGjoffice教程网