每次開機(jī)都面對(duì)同樣的墻紙，真讓人感到單調(diào)乏味。是不是可以在每次開機(jī)的時(shí)候，都能給你一個(gè)意外的驚喜，自動(dòng)地更換墻紙呢?筆者用VB 5.0編了一個(gè)小程序，可以輕松地解決這個(gè)問(wèn)題。而其關(guān)鍵在于一個(gè)WINDOWS API函數(shù)的使用，該函數(shù)的功能是用來(lái)設(shè)置或詢問(wèn)系統(tǒng)范圍參數(shù)的，其表達(dá)形式如下：
　　Declare Function SystemParametersInfo Lib “user32"Alias “SystemParametersInfoA"(ByVal uAction As Long,ByVal uParam As Long, ByVal lpvParam As Any,ByVal fuWinIni As Long) As Long
　　1、第一個(gè)參數(shù)uAction是用來(lái)動(dòng)作設(shè)置的，該參數(shù)分GET和SET兩種行動(dòng)，有約80種不同的參數(shù)設(shè)置，其中設(shè)置墻紙的參數(shù)為SPI_SETDESKWALLPAPER=20。
　　2、第二個(gè)參數(shù)uParam的設(shè)置是隨第一個(gè)參數(shù)的設(shè)置作相應(yīng)調(diào)整的。這里置空值。
　　3、第三個(gè)參數(shù)lpvParam是用來(lái)設(shè)置要更換上去的圖片路徑。該參數(shù)的設(shè)置也是隨第一個(gè)參數(shù)作相應(yīng)調(diào)整的。
　　4、第四個(gè)參數(shù)fulWIni規(guī)定了在設(shè)置系統(tǒng)參數(shù)的時(shí)候，是否應(yīng)更新用戶設(shè)置參數(shù)。
　　可以是零(禁止更新)，或下述任何一個(gè)參數(shù)：
　　SPIF－UPDATEINIFILE：更新WIN.INI和注冊(cè)表中的用戶配置文件。
　　SPIF－SENDWININICHANGE：倘若也設(shè)置了SPIF－UPDATEINIFILE，將一條WM－WININICHANGE消息發(fā)給所有應(yīng)用程序，否則沒(méi)有作用。這條消息告訴應(yīng)用程序已經(jīng)改變了用戶配置設(shè)置。
　　自動(dòng)更換墻紙的具體實(shí)現(xiàn)如下：
　　1、啟動(dòng)VB，選擇STANDARD.EXE創(chuàng)建一個(gè)新項(xiàng)目，刪除FORM1的同時(shí)添加一個(gè)模塊(MODULE1)。
　　2、在模塊代碼窗口填代碼如下：(假設(shè)墻紙文件都在D：JX目錄下按1－20的序號(hào)命名，每次開機(jī)自動(dòng)抽取墻紙)
　　Private Const SPI_SETDESKWALLPAPER　　=20
　　Private Const SPIF_SENDWININICHANGE　　=＆H2
　　Private Const SPIF_UPDATEINIFILE=＆H1
　　Private Declare FunctionSystemParametersInfo Lib "user32"Alias "SystemParametersInfoA"
(ByVal uAction As Long, ByVal uParam As Long,ByVal lpvParam As Any, ByValfuWinIni As Long)As Long
　　Sub Main()
　　Dim myvalue
　　SPIFlags％=()
　　Ramdomize
　　myvalue=20＊Rnd
　　bmpfiles��=“D:JXx”＋CStr(Int(1＋myvalue))＋“.bmp"
　　ret＆=SystemParametersInfo(SPI_SETDES
　　KWALLPAPER,0,ByVal bmpfiles��,SPIFlags)
　　End Sub
　　3、在文件菜單下生成可執(zhí)行文件，并把該可執(zhí)行程序移入啟動(dòng)目錄，便大功告成。
(特別注意在WIN98下運(yùn)行時(shí)，活動(dòng)桌面不能設(shè)置為按WEB頁(yè)查看。)