每次開機都面對同樣的牆紙，真讓人感到單調乏味。是不是可以在每次開機的時候，都能給你一個意外的驚喜，自動地更換牆紙呢？筆者用VB5.0編了一個小程序，可以輕松地解決這個問題。而其關鍵在於一個WINDOWSAPI函數的使用，該函數的功能是用來設置或詢問系統范圍參數的，其表達形式如下：
DeclareFunctionSystemParametersInfoLib“user32"Alias“SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong
1、第一個參數uAction是用來動作設置的，該參數分GET和SET兩種行動，有約80種不同的參數設置，其中設置牆紙的參數為SPI_SETDESKWALLPAPER=20。
2、第二個參數uParam的設置是隨第一個參數的設置作相應調整的。這裡置空值。
3、第三個參數lpvParam是用來設置要更換上去的圖片路徑。該參數的設置也是隨第一個參數作相應調整的。
4、第四個參數fulWIni規定了在設置系統參數的時候，是否應更新用戶設置參數。
可以是零(禁止更新)，或下述任何一個參數：
SPIF－UPDATEINIFILE：更新WIN.INI和注冊表中的用戶配置文件。
SPIF－SENDWININICHANGE：倘若也設置了SPIF－UPDATEINIFILE，將一條WM－WININICHANGE消息發給所有應用程序，否則沒有作用。這條消息告訴應用程序已經改變了用戶配置設置。
自動更換牆紙的具體實現如下：
1、啟動VB，選擇STANDARD.EXE創建一個新項目，刪除FORM1的同時添加一個模塊(MODULE1)。
2、在模塊代碼窗口填代碼如下：(假設牆紙文件都在D：JX目錄下按1－20的序號命名，每次開機自動抽取牆紙)
PrivateConstSPI_SETDESKWALLPAPER =20
PrivateConstSPIF_SENDWININICHANGE =＆H2
PrivateConstSPIF_UPDATEINIFILE=＆H1
PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"
(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong
SubMain()
Dimmyvalue
SPIFlags％=()
Ramdomize
myvalue=20＊Rnd
bmpfiles=“D:JXx”＋CStr(Int(1＋myvalue))＋“.bmp"
ret＆=SystemParametersInfo(SPI_SETDES
KWALLPAPER,0,ByValbmpfiles,SPIFlags)
EndSub
3、在文件菜單下生成可執行文件，並把該可執行程序移入啟動目錄，便大功告成。
(特別注意在WIN98下運行時，活動桌面不能設置為按WEB頁查看。)->
