开机自动更换墙纸
在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享开机自动更换墙纸,希望可以对大家能有小小的帮助。
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页查看。)->