网页功能: 加入收藏 设为首页 网站搜索  
如何在开机时自动更换墙纸
发表日期:2003-07-21作者:[] 出处:  

  每次开机都面对同样的墙纸,真让人感到单调乏味。是不是可以在每次开机的时候,都能给你一个意外的惊喜,自动地更换墙纸呢?笔者用VB 5.0编了一个小程序,可以轻松地解决这个问题。而其关键在于一个WINDOWS API函数的使用,该函数的功能是用来设置或询问系统范围参数的,其表达形式如下:

  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、第一个参数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的序号命名,每次开机自动抽取墙纸)

  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、在文件菜单下生成可执行文件,并把该可执行程序移入启动目录,便大功告成。

(特别注意在WIN98下运行时,活动桌面不能设置为按WEB页查看。)

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 如何在开机时自动更换墙纸
本类热点文章
  在VB中使用WMI获取系统硬件和软件有关信..
  在VB中使用WMI获取系统硬件和软件有关信..
  将繁体中文字转化成简体中文
  将繁体中文字转化成简体中文
  获取CPU的ID
  获取CPU的ID
  在vb程序中如何获取剪贴板中所复制的文..
  在vb程序中如何获取剪贴板中所复制的文..
  VB编程破解Windows屏幕保护密码
  更新桌面图片
  更新桌面图片
  让程序的鼠标支持滚轮
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2023 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00384