开机自动更换墙纸

原创 2001年08月07日 17:36:00

每次开机都面对同样的墙纸,真让人感到单调乏味。是不是可以在每次开机的时候,
都能给你一个意外的惊喜,自动地更换墙纸呢?笔者用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页查看。)

mtk平台 默认壁纸和壁纸修改

在framework/base/core/res/res/drawable-nodip/default_wallpaper.png下 ,default_wallpaper.png即为默认壁纸的名字 ,...
  • IWantADonkey
  • IWantADonkey
  • 2015年06月24日 16:53
  • 488

Delphi内更换墙纸

      Reg:=TRegistry.Create;      Reg.RootKey:=HKEY_CURRENT_USER;      Reg.OpenKey(Control PanelDesk...
  • belllab
  • belllab
  • 2007年04月06日 12:20
  • 647

Android 更换系统壁纸

1: 在alps\packages\apps\Launcher2\res\drawable-mdpi下面 default_wallpaper_small 为默认壁纸 wallpaper_01 ...
  • u014540181
  • u014540181
  • 2017年01月18日 10:56
  • 278

用脚本更换墙纸

BMPname = "c:/windows/WorldChina.bmp"Set WshShell = WScript.CreateObject("WScript.Shell")WshShell.Re...
  • leyvan
  • leyvan
  • 2009年10月28日 16:19
  • 336

开机自动更换GRUB背景图像

编写一个脚本每次开机后自动更换/boot/grub/splash.xpm.gz1)这里使用链接文件来实现,所以在脚本中修改链接解可以了2)批量生成数字编号的/boot/grub/splashimage...
  • leisure512
  • leisure512
  • 2009年08月26日 11:42
  • 794

Android MTK 锁屏图片和背景墙纸的修改

Z:\alps\frameworks\base\packages\Keyguard\res\drawable-hdpi 屏幕上锁屏界面背景图片:名字为: default_wallpaper.jpg ...
  • Mr_kings
  • Mr_kings
  • 2016年04月01日 18:48
  • 484

怎么自动换墙纸?

    SystemParametersInfo函数应用的一个例子---------------------------------------------【VB声明】  Private Declar...
  • SafeF8
  • SafeF8
  • 2004年09月05日 21:02
  • 1890

让您的Ubuntu桌面壁纸动态变化

    最近一直还Ubuntu的桌面背景动态变化的只有那么2个目录而烦恼,网上找了下资源,发现一xml脚本生成工具。这是因为要动态改变需要一个xml脚本语言,本perl脚本用于生成xml脚本文件。具体...
  • computer055maxi
  • computer055maxi
  • 2010年12月03日 20:31
  • 2792

Android修改开机Logo和开机动画

做车机一般都会修改开机Logo和开机动画,下面只是记录我项目中修改开机Logo和开机动画的方法,仅供参考: 关于开机logo的修改,是将一张分辨率合适的名字必须为boot_logo.bmp格...
  • wzh048503
  • wzh048503
  • 2018年01月11日 11:39
  • 71

电脑每次开机总是自动还原怎么回事?

1.1首先在键盘上找到”徽标“+”R“,同时按住,如图: 1.2之后会弹出下面这个对话框,如图: 1.3在运行里面输入gpedit.msc,如图: 1.4找到”用户配置——管理模板——...
  • hhxy_wlzx
  • hhxy_wlzx
  • 2017年12月24日 11:16
  • 165
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:开机自动更换墙纸
举报原因:
原因补充:

(最多只允许输入30个字)