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

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页查看。)

《近匠》酷传:解除App发布和监控痛苦 有道heX正式开源:用HTML5和NodeJS开发桌面应用 在3D空间创作:英大学生发明增强现实设计产品 2014年3月浏览器份额:Chrome终超Firefox 成市场第二大浏览器 2014年3月操作系统份额:Windows 7大涨,Windows XP仍未跌破27%大关 路透社:iPhone 6仅有4.7寸版本,将于5月量产,5.5寸遭冷冻 高端实战技术培训:OpenStack企业应用之路 据统计,Oracle已击败IBM跃居软件行业第二 【技术博客推荐】2014年值得关注的10个开源项目 Intel在深圳建立智能设备创新中心 将投入1亿美元 免费获得价值1200元Unity2014顶级盛会门票! IBM公布Softlayer中国业务落地时间表 推荐30款最佳的数据可视化工具 数据库迁移测试:选白盒还是黑盒? 东软发布首款英特尔架构企业级移动终端解决方案 英特尔与腾讯创立游戏创新实验室 推进RealSense技术 《近匠》系列沙龙之探寻绝密武器:移动跨平台开发 iOS走向开放:苹果新推iAd Workbench广告服务 腾讯薛伟:快速模型更新在精准广告推荐中的应用 微软Build2014第一天要点精华汇总(组图) Windows 8.1 Update 1五大改变:任务栏回归,增强鼠标支持(图) 【十大院士】怀进鹏:全球的计算模式可能重新形成 微软Build2014第一天应了解的15件事 TypeScript1.0发布,完美支持Visual Studio系列产品 欲与Android展开价格战,微软宣布在移动设备上免费开放Windows 2014深圳英特尔信息技术峰会次日要点汇总 4月4日:微软39周岁,生日快乐! 正式进军硬件市场 Atlassian发布可穿戴设备Bitband 云计算时代IT专业人员需具备的10项技能 【走近院士】李德毅:大数据是连接虚拟和现实世界的桥梁 微软Build2014大会第二天干货总结 Microsoft Azure拥抱Puppet、Chef、MongoDB... 2000提示:在系统启动时至少有一个程序或驱动程序发生错误,怎么解决 针对接口编程,而不是针对实现编程 请教:自定义查询 各位兄弟,帮帮手呀. 一时想不明白,请教一下。。。 500分求解答!关于数据库的发布!在线等候!!!! 我不会制作mschart.ocx文件,看过一些文章,介绍的太笼统,谁能有详细的制作步骤,或者告诉我哪里有mschart.cab文件下载最好了,谢谢 高分紧急求救(教)! 已知文件名,如何知道它是被哪个程序/进程打开的,并关闭相应的程序或进程? 简单:函数的参数列表问题(c) 在CDialogBar类的对象上按放一个按钮控件,运行时为什么该按钮控件是灰色的? 为中国头你神圣的一票 我在当前项目里要继承另一个项目里的一个类,在VS.NET里要调些什么才能实现。 关于c#中的数据库开发。 word打字时按空格键时留下小点 又是一年月圆夜,月下为你许三愿:一愿美梦好似月儿圆,二愿日子更比月饼甜,三愿美貌犹如月中仙。:) 我的IE字体不知怎么变大了,老也改不回来。 backup database shell error? 域的问题 大四的苦恼 一个小问题! 请教关于SESSION的问题! 准备贩卖人参去了?? 似乎感觉C++ Primer程序结构有点乱.... 谁知道哪儿有<<Pattern Hatching : Design Patterns Applied>> 这本书? 关于打印的问题 自考操作系统课件 今夜,缘份已不再,爱变得那么无聊。(和女友分手,女友与我分手。散分) 关于程序版权,知道的进 请问:KEIL 是个什么东西? 软件安装 大家知道应聘“项目管理”职务会问到什么问题? 关于ASP.net的学习 j er ee, j two ee, j two double ee? 你们公司怎么叫j2ee的? 大家知道应聘“项目管理”职务会问到什么问题? BCB中,我想使用自己定义的消息,但是不知道该如何使用 请问:FPGA 是什么啊? 表格怎样居中啊? ****一个我觉得比较困难的问题**** 如何实现select对象中的选项发生变化时页面提交? 在工程中加入自定义的结构,编译出现错误! 为中国投你神圣的一票 weblogic启动有问题,帮忙看看吧 weblogic启动老有问题,帮忙看看吧 求msdn 如今的WEB开发有些什么语言和工具?它们向那方面发展? csdn 有ftp 吗?那样传文件不就方便了!你们说呢? 各位看看,绑定的问题 一个数据查询方面的问题! 谁有.met的安装密匙啊?序列号,给我一个! 为什么c++builder6里按run,编译以后就没反应了? “不腆敝邑”是什么意思啊? 芒种杯的征文之 生于天空 怎么写 英语翻译如题 挖坑埋男人的意思 梦见挖坑埋人是什么意思? “挖坑埋萝卜”是什么意思? 金匮要略解释句意?中风篇里,“浮者血虚,络脉空虚,贼邪不泻,或左或右,邪气反缓,正气引邪,涡僻不遂.” 芒种杯作文比赛写什么啊要准啊,不准骗我啊 我送你们5分.谁要- - 人教版初一上下册语文书中的所有古诗!急吖!人教版初一上下册语文书中的所有古诗!急吖,知道的把所有古诗发上来吖.题目也行. 芒种杯该怎么写? 急需!哥哥姐姐帮帮我吧! 澳大利亚灭火消防飞机坠毁 驾驶员被证国考网上报名结束 37个职位报名比例专家称考公务员热反映收入分配、社保制东京举行国际数字博览会 显示器也能卷美媒曝美无人机行动得到巴默许 巴政府伊朗议员:伊朗已暂停提炼纯度20%浓国际社会讨论在南极建立迄今规模最大海世界泰拳王与中国功夫王广东见面会上大印度总理辛格:印中需要合作而不是对抗印度总理辛格:印中需要合作而不是对抗中国央行与美国联邦存款保险公司签署谅银发怡然 乐居羊城资讯速递营改增试点全年减税5000亿诺贝尔文学奖不是在一本正经开玩笑吧(老舍先生“归来”百年前华侨漂洋过海的见证(历史掌故)青岛:建东北亚国际航空都会联合国安理会通过涉朝鲜决议幸福村牧民 开启新生活“新家园”暖人心(链接)卢一心散文具有闽地历史文化特征权欲诱惑惟剑为极杨贵妃,嫁给我吧!星空传说之联邦篇迷情都市玄黄劫色中仙艳遇人生天美地艳汉墨胡尘开尽梨花仙乃日旅游珍珠海旅游冲古寺旅游尧庙旅游皇城相府旅游上海人民广场旅游千龟山旅游老君山黎明旅游东西寺塔旅游晋祠博物馆旅游武定狮子山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘