说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

开机,自动更换墙纸 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
开机,自动更换墙纸 -VB资料
每次开机都面对同样的墙纸,真让人感到单调乏味。是不是可以在每次开机的时候,都能给你一个意外的惊喜,自动地更换墙纸呢?笔者用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页查看。)
Surface Watch?传微软正测试搭载Win 8的智能手表 又一美国造?联想在美设厂制造产品 软件定义未来 2013 SDCC中国软件开发者大会全面开启 可以直接拿来用的15个jQuery代码片段 程序员最害怕的5件事 你中招了吗? ····请教有关流的基本用法。(我懒所以我问^o^)···· 各位大哥~~请帮小弟一个忙好吗? 用ReadEventLog函数读系统日志文件 请教: win98下,要阻止页面调度该怎么做? DBGrid控件中的各行记录如何让它们按关键字(ID)的降序排列? 如何获得系统收藏夹的路径 请教如何把别人网站一个目录做为我网站的根目录。 关于vc的笔试题目 路过大侠请留步!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1 蚂蚁是如何生活的 我最敬佩的一个人 作文 写我哥的 快 蚂蚁是怎么生活 帮忙写一篇作文《最尊敬的人》要求:1:600字左右 “混合”中的“混”几声? 请问有没有这样的混泥土输送泵啊现在民宅预制都该混泥 混乱的混是几声 设f(X)是第一在R上的奇函数,且y=f(X)的图 已知函数f(x)是(﹣∝,+∞)上的奇函数,且f( 英国一女士患巨结肠病 腹部肿大好似怀格鲁吉亚总统大选结束 俄格关系或“有法国总理将赴俄罗斯会见俄总理 讨论核阿根廷执政党保住国会最大党地位 但选外媒:以色列空袭加沙地带 未造成人员福建严防台风“麦德姆” 全省停止群体甲午日少将攻下清军炮台得意拍照 被北18人分别记一等功二等功航企提升业绩冲刺三季度深圳必胜客52门店 4种原料来自福喜剑道独神我的身体有怪兽超级顺风耳代君筹纵剑天下罗姐寨旅游古大同寺旅游万象山旅游仙境源旅游欧亚之窗公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘