李文明

雖然壁紙可以經(jīng)常更換，但總是看著靜態(tài)壁紙難免讓人乏味。下面就教你如何設(shè)置動(dòng)態(tài)壁紙，讓你的桌面動(dòng)起來(lái)炫起來(lái)。

小提示

如果確實(shí)無(wú)法找到尺寸合適的GIF動(dòng)畫(huà)，我們還可以自己動(dòng)手將任意視頻錄制為GIF動(dòng)畫(huà)。下載安裝好GifCam后，打開(kāi)你要錄制的視頻并調(diào)整到合適的大小，然后啟動(dòng)GIFCam，通過(guò)拖拽邊框調(diào)整錄制區(qū)域的大小，點(diǎn)擊“錄制”按鈕即可開(kāi)始錄制，錄制完畢點(diǎn)擊“停止”按鈕，最后點(diǎn)擊“保存”即可生成需要的GIF動(dòng)畫(huà)7（圖1）。

Windows XP系統(tǒng)雖已退休多年，但在國(guó)內(nèi)仍有大量的忠實(shí)用戶，那我們就從它說(shuō)起。其實(shí)Windows XP系統(tǒng)天生就支持動(dòng)態(tài)桌面。

在桌面空白處點(diǎn)擊右鍵，選擇“屬性”，切換到“桌面”選項(xiàng)卡，點(diǎn)擊“瀏覽”，找一張動(dòng)態(tài)GlF圖片，點(diǎn)擊“確定”返回桌面，看看是不是已經(jīng)動(dòng)起來(lái)了！網(wǎng)上找到的GIF圖片一般尺寸較小，如果設(shè)置“位置”時(shí)選擇“居中”或“拉伸”可能效果不是很好，但選擇“平鋪”可能會(huì)出現(xiàn)意想不到的效果。

Windows 7系統(tǒng)可以將GlF圖片作為壁紙，但無(wú)法實(shí)現(xiàn)動(dòng)態(tài)效果。雖然無(wú)法使用GlF動(dòng)畫(huà)實(shí)現(xiàn)動(dòng)態(tài)桌面的效果，但通過(guò)使用簡(jiǎn)單的插件，你就可以將WMV影片直接作為桌面壁紙，使你的系統(tǒng)瞬間變得高大上。

下載Windows7-DreamScene，解壓，以管理員身份運(yùn)行“Windows7-DreamsceRe.cmd”文件，系統(tǒng)會(huì)自動(dòng)安裝完成。在WMV文件的右鍵菜單中將多出“Set as DesktopBackground”菜單，點(diǎn)擊即可將此WMV影片作為桌面背景（圖2）。

在桌面空白處點(diǎn)擊右鍵，將多出“Pause DreamScene”菜單，點(diǎn)擊它可以暫停動(dòng)態(tài)桌面，點(diǎn)擊“Play DreamScene”可恢復(fù)播放（圖3）。

如果點(diǎn)擊“Set aS Desktop Background”報(bào)錯(cuò)，可以按照以下方法解決：在桌面空白處點(diǎn)擊右鍵，選擇“個(gè)性化”，選擇一個(gè)“Aero主題”。然后點(diǎn)擊“開(kāi)始”菜單，進(jìn)入“控制面板”，選擇“系統(tǒng)”，點(diǎn)擊左側(cè)的“高級(jí)系統(tǒng)設(shè)置”，點(diǎn)擊“性能”中的“設(shè)置”，點(diǎn)選“讓W(xué)indows選擇計(jì)算機(jī)的最佳設(shè)置”或“調(diào)整為最佳外觀”即可（圖4）。

如果使用的是Windows 10系統(tǒng)，會(huì)發(fā)現(xiàn)以上兩種方法都失效了，但我們還有“曲線救國(guó)”的方法。使用VBS腳本定時(shí)更換壁紙就可以實(shí)現(xiàn)動(dòng)態(tài)壁紙的功能。

首先我們要做的是拆分GIF動(dòng)畫(huà)。下載運(yùn)行g(shù)ifsplitter程序，選擇要拆分的GIF文件，設(shè)置輸出目錄，點(diǎn)擊“開(kāi)始分離”，待分離完畢退出程序即可（圖5）。

接下來(lái)打開(kāi)記事本，輸入以下內(nèi)容，保存為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圖片，程序?qū)⑼顺?！”?4

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 '更換壁紙的時(shí)間間隔，毫秒

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”為更換壁紙的時(shí)間間隔，單位為毫秒，數(shù)值越小更換速度越快，可根據(jù)實(shí)際情況自行修改。雙擊運(yùn)行VBS文件就可以實(shí)現(xiàn)動(dòng)態(tài)壁紙功能啦。