开机自动更换墙纸

GGB0080_2015

GGB0080_2015

2016-02-19 20:15

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享开机自动更换墙纸,希望可以对大家能有小小的帮助。
每次开机都面对同样的墙纸,真让人感到单调乏味。是不是可以在每次开机的时候,都能给你一个意外的惊喜,自动地更换墙纸呢?笔者用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页查看。)->

展开更多 50%)
分享

猜你喜欢

开机自动更换墙纸

编程语言 网络编程
开机自动更换墙纸

一个自动更换墙纸的小软件

编程语言 网络编程
一个自动更换墙纸的小软件

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Win8如何自动播放更换喜欢的墙纸

windows系统
Win8如何自动播放更换喜欢的墙纸

Windows8中如何自动播放更换喜欢的墙纸

windows系统
Windows8中如何自动播放更换喜欢的墙纸

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

MAC下如何更换开机登录背景

电脑入门
MAC下如何更换开机登录背景

开机宽带自动连接设置

电脑入门
开机宽带自动连接设置

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

无框窗体移动最简法(程序)

无框窗体移动最简法(程序)

如何保障MAC磁盘内的隐私安全

如何保障MAC磁盘内的隐私安全
下拉加载更多内容 ↓