開機，自動更換墻紙

2019-11-18 17:28:23

字體：大中小

供稿：網(wǎng)友

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