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

开机,自动更换墙纸 -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页查看。)
海外游戏市场:Google与“开心农场”谈破局 2014年2月操作系统份额:Windows仍在增长 Win 7以47.31%稳居第一 2014年2月份浏览器份额:IE 8仍全球最受欢迎,Firefox跌破18%大关 跨平台2D游戏引擎V-Play:3天开发一款原生游戏 Appery.io:无编程经验,自己也能DIY移动应用 SAP携手Xamarin和Service2Media 提供移动应用开发框架 8个超实用的jQuery技巧攻略 美国国防部战略:大规模、分布式,构建数字化防御体系 针对小白的Python入门教程——Python使用说明书 耗资460亿美元,天价Olympic上广受诟病的监控和4G LSI AIS ASIA首次登陆中国 探讨最新大数据技术 “iOS in the Car”问世 苹果发布集成汽车服务CarPlay Pinterest联合创始人Evan Sharp:视觉网站标配“网格布局”的设计过程 微软Xbox Live或登陆iOS和Android平台 TIOBE 2014年3月编程语言排行榜:F#直逼Top10 Atlassian面向企业客户推出Git Essentials工具 Mt.Gox破产,都是错误编程惹的祸 Jamo创始人揭底AWS,棱镜阴影下的云行业态势 成本、创新、可靠:游戏公司FunPlus选择AWS的三大理由 全透明、可折叠,平板电脑概念机是这样的 插件大集合!开源包管理器Alcatraz迎来Xcode 5更新 Q语言:新型的数据定义语言 非响应式手机网站页面的优化 高薪必备:Hadoop求职者的6大攻略 微软或将于四月发布“返璞归真”的Windows 8.1 Update 1 《近匠》第14期:LiveCode——全民开发工具 美团梁堰波:用SQL-on-Hadoop构建互联网数据仓库与商务智能系统 程序员游戏Style:亚特兰大极客使用机器学习玩转Flappy Bird Gleasy CTO薛珂:成立3年,企业用户2万+,移动办公蕴藏较大发展机遇 Unity Awards展区“点亮”Unity亚洲开发者大会 DevBox:最实用的移动开发辅助工具包 高分求救!哪位哥哥能否帮我解决一下几道C编程的题目,我讲感激不尽!!!谢谢 我找到一个DELPHI的技术站点,还可以,请大家来LOOK 动态显示图片!!!!!! 本人是beginner for vc++,希望以后多交流。现请求一个vc++作的画图程序 大侠执教:投稿程序员杂志要多少时间才有回音? 有办法在控制台程序启动时,隐藏它的DOS窗口吗? 关于MFC中的Project Settings问题 两个编程的初级问题 谁能给我一个关于二叉树的完整的程序。 认识的进来聊天 , 我是东宝 (yeti_lee) 我是一名学生,学计算机(一个普通大学)。请教大家几个问题 大连成绩如何查??有人查到了吗?请聊聊 分是个累赘,我放完它~!来的就有,讲些凄惨的事情和遭遇,大家比谁惨,越惨的给分越多,兄弟我此举是为了找平衡。 怎样得到当前系统打印机的各项信息?????特别是打印纸张方向!!! 高分求救——我有几道C程序的编程题目,望各位高手帮忙解决!谢谢 哪位告诉我select语法,我忘了group by 的使用方法,谢谢! 请问哪儿有电子版的《COM编程精彩实例》,谢谢! 请问:要想学习vb和数据库的知识,哪些书比较好?请各位朋友帮忙推荐几本好书?谢了~! 请问有谁知道PB8编译后打包,PARADOX数据库驱动程序需那些啊????急!!!!!! 在oracle存储过程中怎么使用cursor作为返回值? [TIPS]Win9x和WinNT/2000下面都可以去掉OICQ广告的方法! 触发器问题 关于bdgrid的问题,高手请来,一定高分相送!!!!急 怎么建立WIN2000的域信任关系 用data控件连接DBf数据库时为什么出现“找不到可插入的ISAM”错误? 大家等会儿再吃饭!先看一看这里的送分大餐...... 他们怎么想的?居然没有bcb? 高手指教:如何在vc中控制刻录机和磁带机进行数据备份和恢复? 请问各位高手,怎样才能学好c语言。有没有什么好一点的网站和源码提供,多谢。 如何解决在向量位图背景下的窗口移动是的刷新置后问题?? 问一个问题!爱好or 程序员? 用VB如何设计好的报表,欢迎讨论! messagedlg能不能显示中文?例如显示“确定”,而不是“ok” 各位高手!!请教一个有关在oracle8i中建立表与表之间的关系? 请问哪里有无时间期限的Setup Factory 下载? 笨呆呆,拿分。 请问到那里可以下载uml工具,如果再有推荐的话是一定可以得分的 再次有请: playyuer 吴文智、袁飞、Jneu、Amoon、ttyp、icevi、progame、Jinesc 等各路高手 偶是初学者,问一个问题 SOS,很严重windows的问题,高手快进 复制Access数据库时出现的问题 如何动态添加TQuery的字段??? 编译一问 SOS,很严重windows的问题,高手快进 !!! 有人开发过基于winpcap的网络抓包程序么? SOS,很严重windows的问题,高手快进 ! 通过双网卡上网怎么设置? 一名初学者的问题? 各位老大,如何控制windows的资源管理器显示/不显示后缀名 问一下现在4000元可以买到大概什么配置的笔记本电脑 谁知道用VC++直接操作硬盘?告诉我一声,多谢了 浓硫酸与二氧化锰、氯化钠制氯气,为什么生成硫酸氢钠,而不是硫酸钠. 成语对对子:流芳百世()精雕细刻()守株待兔()望梅止渴()旗开得胜()瓜熟蒂落() 高中历史必修一的复习提纲全部 如何用氯化钠二氧化锰浓硫酸制氯气我将氯化钠二氧化锰和浓硫酸倒在一起时没有想这个视频一样的效果,这是为何?好像都没反应.而且这个视频人家一倒浓硫酸进去就反应了.视频地址:http:/ 成语对对子:流芳百世 19.某中学学生在课余探讨明清时期的“闭关锁国”政策时,得出了以下结论,其中正确的是( ).A.清朝时开放广州一处同外国通商,说明并不是真正“闭关锁国”B.“闭关锁国”这一政策产生的根 二氧化锰,浓硫酸,氯化钠制取氯气哪个是还原剂,哪个是氧化剂. 科代表怎样安排高中历史复习我们高二了,我是历史课代表,我们要复习必修1(人教版),每周早上有20分钟复习,怎么安排全班复习计划, 1.有人说洋务运动“无心插柳柳成荫”这里“柳”指的是什么?引进近代科学技术和出现新的经济因素和阶级力量为什么选后者?2.洋务运动有没有为资本主义发展开辟道路?为什么?3.中国近代资 用氯化钠和浓硫酸与二氧化锰共热制取氯气的方程式用什么方法配平 成语对对子(反义词) 例如:粗茶淡饭(山珍海味)守株待兔( ) 狗仗人势( )望梅止渴( )水落石出( ) 高中历史必修二复习提纲 刻舟求剑,守株待兔,指鹿为马,凿壁偷光,纸上谈兵,囊萤映雪,的主角是谁? 成语反义词对对子固若金汤( )指鹿为马( )伶牙俐齿( ) (1)NaCl晶体融化时需要克服的作用力是_____… (2)NaCl晶体中,离子键的键长为____,Na+的半径与Clˉ的半径之比为______ (3)NaCl晶体的每个晶胞中有____个Na+,____个Clˉ.(4)As的价电子排布式为___ 跟寓言故事中的任务对话、 刻舟求剑——() 郑人买履——()守株待兔——()拔苗助长——()填跟寓言故事中的人物对话、不好意思啊、打错字了、列、讳疾忌医——蔡桓公大王、您有 融化和熔化的区别? 由于预习阶段,有些概念还不懂,还请前辈们多多指教呢. 守株待兔和刻舟求剑这两则寓言都讽刺了那种人 融化和熔化有什么区别? 高中历史必修一复习提纲 人教版 刻舟求剑和守株待兔的意思要把故事简要概括(最好三四句话)在说蕴意! 融化、溶化、熔化的区别,并各造一句话 融雪剂NaCl使冰雪融化是什么变化? 已知实验室制氯气的化学方程式为:MnO2+4Hcl(浓)=MnCl2+Cl2+2H2O.现用足量浓盐酸在加热条件下跟17.4克二氧化锰反应制氯气.(1)产生的氯气在标况下的体积.(2)把反应后的溶液稀释到100ml,从中 融化,熔化的区别是什么 融化氯化钠的颜色如果将氯化钠加热融化后是什么颜色的?氯化钠熔点800多度呢2l不可以吧 ﹝﹞凿壁偷光 ﹝﹞闻鸡起舞 ﹝﹞指鹿为马 ﹝﹞纸上谈兵 高中历史总复习提纲 化学有机选择题一题,麻烦详细讲解下,有图 纸上谈兵,四面楚歌,指鹿为马,口蜜腹剑,闻鸡起舞,江郎才尽,乐不思蜀,凿壁偷光这些成语的主人公是谁? 熔化状态和熔融状态有什么区别?(化学方面)RT,看到一本书上写离子反应在溶液或熔融状态下反应,另一本说溶液或熔化…… NaCl熔化算不算化学键被破坏?为什么? 凿壁偷光,精忠报国,指鹿为马,纸上谈兵,闻鸡起舞,破釜沉舟,程门立雪,写出 熔化 溶化 融化 都有什么不同?熔化是一样的吗?溶化是一样的吗?融化 融解是一样的吗? 为什么熔融NaCl会破坏化学键?不太,不太明白, 凿壁偷光 指鹿为马 纸上谈兵 精忠报国 闻鸡起舞 入木三分 鞠躬尽瘁 破釜沉舟 高山流水 黄袍加身 的主人公 材料一 天下多男人,尽是兄弟之辈;天下多女子,尽是姐妹之群,何得存此僵彼界之私,何可起尔吞我并之念.——洪秀全《原道醒世训》,1843年材料二 逆贼洪秀全杨秀清称乱以来,於今五年矣.荼 关于熔化时破坏化学键的一道题现有 1.氯化钡 2.金刚石 3.氯化铵 4.硫酸钠 5.干冰 6.碘片 一 熔化时不需要破坏化学键的是熔化时需要破坏共价键的是熔点最高的是 最低的是 二 属于离子化合 指出在中国实现民族独立后,共产党为实现民主政治所做的努力 谁有下面这个高中历史第一轮复习的文件? 融化时破坏的化学键 氯化氢 蔗糖 为什么融化不会破坏化学键?怎么判断融化会不会破坏化学键?还有怎么判断溶解破不破坏化学键?氯化氢不是共价键吗?完全搞不清楚. 各位!溶化,融化,熔化这三个词怎么区别? 熔融 熔化 溶解区别是什么? NaCl溶解在水中时,化学键有没有断? “融化”,“溶化”,“熔化”,三词的区别如题 溶解和熔化有什么区别嬷?从化学角度咯,最好举例子嘞~ 盐撒在冰上,请问冰为什么能融化成水, "溶化"和"熔化"这两个词有什么区别? 水落石出现一五十是什么生肖 磁流体是电子材料的新秀,它既具有固体的磁性,又具有液体的流动性.制备时将含等物质的量的FeSO4和Fe2(SO4)3的溶液混合,再滴人稍过量的氢氧化钠溶液,随后加入油酸钠溶液,即可生成黑色的、 溶化,熔化,融化的区别是什么? 熔化和溶解有什么区别? 高中历史内容与初中联系大主要讲什么有必定接洽点然则高中汗青是从理论上开端分析初中纯感性熟悉 .至于内容大年夜体是差不多的但有些处所会加深外国史相对初中而言变多根本上就如 流芳百世,良药苦口,水落石出,雪中送炭,精雕细琢,守株待兔,卸磨杀驴,伶牙俐齿的反义词. 高中历史必修一的复习 高中历史有哪几块内容? 成语对对子 流芳百世( ) 井然有序( ) 精雕细刻( ) 固若金汤( )(注意对仗要工整,意思要相对) 高中历史必修一复习提纲简洁,易懂 就是在有材料的简答题后回答的那种
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn