玩轉動態壁紙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文件就可以實現動態壁紙功能啦。