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

开机,自动更换墙纸 -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页查看。)
IT基础设施与运维论坛:IT基础设施及运维经验分享 记华为HCC2013 Day1:发力高端存储 HCC 2013虚拟化论坛:虚拟化未来发展方向 Windows 8操作系统市场份额增至7.41% Windows 7仍最受欢迎 【开源专访】Sea.js创始人玉伯的前端开发之路 SDCC 2013:阿里周宝方谈“去IOE”战略及实施 百度和高德:最后谁是地图的王者? 【CTO论道】瑞智和康CEO陶建辉:软硬结合是消费电子新潮流 10大高效率原型设计工具 JIRA与敏捷:李小龙教给我们的敏捷开发之道 百度开放云:Light Up The World,与开发者共享云未来 有胆你就来!11个在线编码大赛 CTO如何避免决策失控:第一步-定义角色 后机械硬盘时代,那些引领风骚的闪存初创公司 致远文杰:传统企业如何实现移动化转型? 记华为HCC2013 Day2:SDN开放编程系统OPS打造生态圈 HCC2013:华为FusionCube融合至简,性能至优 已确认Stephen Elop候选微软下任CEO 英语对于软件开发者来说到底有多重要? SDCC 2013中国软件开发者大会成功落幕 新浪微博宋琦:PHP在微博优化中的“大显身手” 8月份浏览器份额:IE浏览器PC端出现反弹 移动端跌出前五 如何让Ruby项目速度提升10倍 跨平台进行到底:Facebook发布Unity SDK 云薪资管理初创公司ZenPayroll:年处理薪资超1亿美元,获多位知名CEO力挺 Twitter开源Summingbird:近原生编码下整合批处理与流处理 亚马逊推Matchbook 欲将顽固纸质书读者拉向电子书 Broadcom为可穿戴设备推新开发平台WICED 再战江湖 New Kodak还牛不牛? 郭理靖:公、私有云架构异同点与难点 美化代码的15个代码语法高亮工具 传值,三个窗体之间的传值,在线,请回答 斑竹,请教你一个问题:ASP与报表... 体提议意见 数据库中正常,在JSP中显示好象为十六进制数,帮忙解决 如何获取硬盘序列号? 请教高手,这个效果用CSS该如何实现? win2k如何实现桌面共享!! 可不可以怎么做? 当前提供者不支持索引必需的界面 没有马甲的来这里报到! linu和windows都不能启动了,怎么办,急急急!!! 请问,在PB中怎么为自定义窗体类定义一个虚拟方法? 熟悉memfile的朋友请进 php调VB程序?着急! vb 访问另一台sql server 的问题? 谁有flashmx,dreamwerver mx,firework mx 的注册吗。有100分 很急的问题? 断点无效?? 想给自己买一个数码相机做新年礼物!但对选中的品牌不是很熟!请师哥师姐给点建议!!! 如何对视图连接的表进行数据插入?? 谁会替用户负责?用“小灵通”还是小心为妙 做过考勤管理的请进………… 简单问题,麻烦各位高手!!! 请问delphi5中有没有delphi6中的object treeview功能 哪有关于网络安全方面的资料? 三层MIS中的中间件怎么用COM或EJB来实现. 请问哪里的个人主页控件支持JSP? 再次请教一个有关DataGrid不能显示而令人头晕的问题(在线等待)! 做过考勤管理的请进………… 在ASP.NET中怎样实现语句加入引用? 请问下面这个问题应该怎么解决最好?关于处理网页中的数据的 使用VB6自带的Sample中自动化示例应用程序时的一个问题 那位高手知道怎样实现曲线分析图... 一个简单SESSION 问题,请解决。在线等,没分了不好意思. 为什么在asp中使用ADODb的Connection对象的方法时不能使用事务处理 ====寂寞啊!谁帮介绍一个女孩啊(15-18)岁的!!万分感谢!==== 高分请教大虾,关于搜索的问题?。。。。 100分请教一个简单的问题?? runtime在JAVA中解释应该是什么意思? SCO上的ORACLE7建库?SOS 大家来看看,超级Bug?用DBExpress连接MSSQL,执行存储不能返回值,谁能解决,200分 高分请教,谢谢了/。。。。 我在程序中使用了MSXML,可是在干净的win98下无法运行,请问需要安装什么? 救急: SQL server的数据恢复 关于分辨率的问题。 在vb.net中能做dll吗?请大家可参与 下面的函数怎样声明? 能直接用alter语句修改某个字段的类型和长度吗? 如何做pci 插卡? 关于datalist绑定问题 我的前途???欢迎大家发表意见! 急求 巴西女医生为腾出病房床位 谋杀300上海男子杀害两亲属 又砍伤多名小学生高一男生寝室照走红网络 打造成“小资台湾宜兰罕见冷泉寻找代言人 可获奖金温州市委秘书长吴开锋被曝有婚外情 2钓鱼台国宾馆选拔服务人员 阵势犹如选香港举行“枕头大战”场面壮观习近平在海南会见多国总统 彭丽媛出席杭州举办健美健身锦标赛 上演力与美的杭州举办健美健身锦标赛 上演力与美的威廉王子携凯特访问苏格兰 遭可爱小萝神秘富二代与郭美美互掐 晒银行99亿高清:人民日报新大楼被吐槽造型别致凤凰古城收费引商户集体罢市抗议 官方张紫妍自杀前最后一部影片曝光 三级片钱江潮“一潮三看” 游客可追潮25公长沙一餐厅要求员工穿比基尼上班F1上海站举行车手巡游 赛车宝贝火辣广东茂名鸡价因禽流感大跌 市民疯狂抢美国波士顿马拉松赛发生爆炸窦靖童on the beach素颜自炒杏仁宫鲁鸣:国手要奉献,归化球员威胁中国先把孩子骗出家门再向家长谎称绑架索要小雪-养生的奥秘!I/O大会总结:一场没有高潮的发布会云南安宁一家三口住所遇害 尸体疑被分牛肉手抓饭早报:谷歌I/O大会盘点 传荣耀7六德赫亚:西班牙赢得有些幸运咖啡可可奶酪蛋糕携程回应宕机事件:系员工误操作所致德媒:埃芬博格即将执教德乙球队看看年薪百万的人的实际生活水平AI:我、沙克和乔丹能完成82胜0负博斯克:挑兵选将面临幸福的烦恼当心2015年10大投资陷阱!一家三口将纠纷者强行塞入车内 交警设最害怕的是找不到一个能说说话的人2015新浪商业思想OpenDay 长丰一男子“死性不改” 强奸抢劫三次联想TechWorld大会:联想秀肌
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘