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

开机,自动更换墙纸 -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页查看。)
【CTO俱乐部读书会】《人件》译者肖然:软件工程是社会学 错过就要等一年 深圳微信开发者大会不容错过的十大理由 【干货】国外程序员整理的 C++ 资源大全 一周消息树:被投资人“送”入看守所,创业人汪洁有罪还是无罪? 聚焦五大主题 Atlassian Summit 2014精华PPT下载 2014中国移动开发者大调查第四期获奖名单曝光 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(一) 【特惠倒计时两天】参加深圳微信开发者大会赠书及全套讲师讲义 《英雄联盟》支撑最高750万同时在线用户的聊天服务打造 深圳云软技术副总黄榕振:招行信用卡微信公众号开发高级篇 来自未来的你,MDCC 2014新奇智能硬件揭秘 Twitter开源云环境时间序列数据断层检测工具BreakoutDetection 浅析Facebook软件架构:Tao和BLOB的实现原理 【图文实录】CTO俱乐部:走近Keen Team,走近智能设备Hack 2014聚合开发者大会(JDDC)在京召开 专访腾讯反病毒实验室:揭秘TAV引擎,哈勃分析系统两大利器 Cocos Studio v2.0 Beta0正式发布!多维升级,合三为一 环信即时通讯云获3000万融资 用于研发运维 苹果谷歌都无力?前员工开发跨设备无缝同步应用 带你看会带你飞!MDCC 2014移动开发者大会参会指南 Meteor 1.0发布 构建更好的Web应用 【专访】敏捷专家吴穹:敏捷测试的行业应用与实战解析 英特尔中国研究院最新成果亮相 展示智能衣服瓷杯机器人等创新作品 Node.js 打造实时多人游戏框架 深圳微信开发者大会购票企业特征分析 上门汽车服务“e保养”完成A轮500万美元融资 Docker之父Solomon Hykes谈项目开发的初衷和挑战 浪潮是如何实现单日5000台x86服务器交付互联网的? Bootstrap 3.3.0发布 版本4不再支持IE8 漏洞预警:FTP曝严重远程执行漏洞 影响多个版本Unix 【简讯】W3C小组宣布HTML5标准制定完成 make文件是怎么回事? oracle中long类型是什么类型? PB简单画图?保存到库表中? 用程序代码建立表结构的问题 怎么在状态栏中加入竖线分隔,而且调整字体的大小? 请高手帮帮我!!!! jbuilder4的enterprise setup需要weblogic51,但我的是weblogic6,应该怎样才能让jbuilder支持6啊? 关于数据库的并发操作 谁知道哪里有vb下载? 哪有可下载的AUTOCAD2000 如何用VB实现存折的打印???? 请教给TImage加滚动条的问题 我和她在一起的话,会开心吗 请大家看看这条语句有什么错? 关于isdn在win2000下共享的问题 各位水友,有力的出力,没力的看看,拜托 请从位高手帮小弟解决一个棘手的问题……………………多谢!!!!!!! ALLTEC(荔枝)兄弟,兄弟我接帖太快 :( 請這邊來. ★★★ 救命啊! VC 用ODBC访问 Access 数据库的问题 guo->你在www.linuxforum.net中叫什么?有个guoemail是你吗? 软件发布:市场摊位租赁管理系统Ver1.0 软件发布:量和单位转换软件(免费版) 软件发布:五笔快打 在listview中的各个记录listitem中,有没有双击记录的事件 软件发布:伏羲服装鞋业购销存管理系统 软件发布:进销存商务管理pcft-jxc 征集各地童谣.唤醒儿时记忆! 今天我请客! 有关vb调用excel的问题! 有没有关于BDE的单独的分发程序? VB中报表预览打印能不能实现象EXCEL中一样的“按比例缩放”?如何实现? 单机版流量统计 关于Delphi6的安装问题 动态计算公式怎么实现?? 常用的英文字体是什么? 在通信过程中怎样做到防监听、防篡改? 各位大虾现欲用java开发一套网上投票表决系统 应该看什么书?用什么开发工具?(一定给分!) 关于winsock的问题,急急 怎样使用VB6中TREEVIEW控件? 我真的要疯了! 这里有很多Delphi6的控件! 如何在ASP中传递多个参数?displaymsg.asp?page=1在后面我还想加另外一个参数 有没有喜欢画漫画的? 如何得到ActiveX控件的窗口句柄 请问mif文件格式以及、读写方法?高分求解 sco unix的root口令忘了,谢谢. 在PowerBuilder中使用Microsoft Web浏览器控件 ,这个控件在ole中怎么没有啊? 急盼有人答复!!!!!! 急!急!编译exe时出现:link errors提示 具体提示:create of executable file failed? 小笨笨一问 年年岁岁花相似,岁岁年年人不同 某工作如果由第一、二、三小队合干需要12天才能完成;如果由第一、三、五小队合干需要7天才能完成;如果由第二、四、五小队合干需要8天才能完成;如果由第一、三、四小队合干需要42 求2道数学题的解法1.已知非空集合A={(x,y)|(a*2-1)x+(a-1)y=15},B={(x,y)|y=(5-3a)x-2a}.若A∩B=空集,求a的值.2.已知集合A={x|x*2-4mx+2m+6=0,x∈R},B={x|x<0,x∈R},若A∩B≠空集,求实数m的取值范围.a*2表示a 用方程和式子做,最好再简单的讲一下方法.张师傅加工一批零件,原计划每天加工50个,为了提前10天完成,他实际每天加工75个,张师傅实际多少天完成任务? 我想要小学一年级上学期的数学题在哪里找 面积为49平方米的长方形的周长是多少?.注意是长方形,不是正方形 给个准确的数啊,还有解法 1.如图a、b,是学校游泳池的平面图.比例尺都是1:1000.请观察这两个游泳池,并计算这两个游泳池的实际面积.如果你去游泳,现a有40人,b有100人,你准备到那个池中去游泳?(两问皆需算式) 三个人同时吃3个西红柿,用了3分钟吃完,6个人吃6个西红柿需要几分钟吃完?(仅用加减法列个式子) 下列结论错误的是()A.长度之比为1:2:3的三角形是直角三角形B.三个边长之比为3:4:5的三角形是直角三角形C.三个边长之比为8:16:17的三角形是直角三角形D.三个角度之比为1:1:2的三 小学六年级语文,数学题,急啊!谁帮帮我.回答得好我会加分的.数学:找规律:4,2,1,2分之1,4分之1,(),(),() 8分之1,32分之1,4分之1,16分之1,(),(),()应用题:1,一个长方形的宽是7分之5 0952873641 3的前面第三个的后面第五位是几?到底多少呀 能不能讲下 5555555 某公司托运物品,质量为a(a 1.有一堆圆锥形的沙土,底面周长37.68m,高5m,把这些土在宽15.7m的路上铺4cm厚,可以铺多少米?2.一个圆柱形玻璃容器的底面直径为12cm,它的里面装有一部分水,水中浸没着一个高9cm的圆锥形铁块,当 小学六年级奥数题,帮帮忙,最好有过程,谢谢!菜园里西红柿获得丰收,手下全部的八分之三是,装满一些筐还多24千克,收完其余部分时,又刚好装满6框,求共收西红柿多少千克? 在RT三角形ABC中,角C=90度,AD平行BC,角ABE=2角CBE,求证ED=2ABBD把角ABC分为角CBE和EBA,BE延长到D点,AD平行与三角形ABC底边BC,ADB也构成一个钝角三角形另外,不能用三角函数做,只能用几何 有浓度为30%的硫酸溶液若干,加了一定量的水后,稀释成浓度为24%的硫酸溶液,再加入同样多的水后,浓度将变成百分之几?能不能给我再详细点、我一定给多分。 小学六年级奥数题 要过程的在第16届广州亚运会上,中国代表团取得了金牌第一的成绩.获得的金牌数比铜牌数的2倍还多3块,如果金牌再多1块,那么铜牌就是金牌的49%,银牌是金牌数的59.5%.问 问一个初二的数学题,要解法! ! !有一个三位数,现将最左边的数字移到最右边,则比原来的数小45;又知百位数字的9倍比去掉百位数字后形成的两位数小3,试求原来的三位数是多少?要具体的解 )六(3)班男生人数比女生人数少20%,该班女生人数是男生人数的百分之几?男生人数是女生人数的百分之几?(急、、、、、) 1.一个数的9分之17倍是34.这个数是多少?2.甲数与乙数的和是16,甲数是乙数的3分之1.甲、乙两数个是多少?3.400减去它的4分之1后,正好等于一个数的5分之3,求这个数是多少? 两段圆柱的体积之差是314立方厘米.若将它们分别削成底面是最大正方形的长方体,则两个长方体体积之差是多少立方厘米? 小学三年级一题有多种解法的数学题 列式计算,红花有60朵:列式计算1.比黄花多1/5:2.是黄花的1/3:3.比黄花少1/6:4.黄花比红花多2/3:5.黄花比红花少1/6:6.黄花是红花的7/10:饲养场养鸡480只.鸡比鸭多1/8,鸭有多少只?一共有多少 实验室了有两个等高的容器,圆锥体容器的半径为9厘米,圆柱体容器的半径是6厘米,现在圆锥体容器装满水倒入圆柱体容器中,这是水深比容器的高度的6/7低3厘米,两个容器的高是多少厘米? 求助:三年级一道数学题的解法.有两个一样的信箴,如果一个信封里放1 张信纸,还剩50张信纸;如果每个信封放3张信纸,还剩50个信封.请问:有几个信封,有几张信纸?不要设未知数. 一道奥林匹克的数学题,一辆车从甲地到乙地.如果把速度提高20%,可比原定时间提前1小时到,如果以原定时间1小时到达,如果一原定速度,如果以原速度行驶120千米后,则可以提前40分钟到达,那么 :用10张同样长的纸条粘贴成一条长51厘米的纸条.如果每个粘贴处都重叠1厘米,那么每张纸条长多少厘米? 今年的8月份有5个星期日,4个星期一,那么今年的8月1日是星期几?我的方法是从31是星期日,倒推到3号是第一个星期日,那么1号就知道了.请问有没有更简便的方法? 六年级语文数学题!在线等!数学题:1:李叔叔去年按每股4元的价格买了民生银行股票2500股,到今年10月1日按每股6元的价钱卖出.在股票交易中,无论买卖都要缴纳0.3%的印花税和0.2%的其他费用. 1、一个长方体的长和宽都是5厘米,把它从长的中点截成两个相同的长方体后,得到的一个长方体表面积比原来大长方体表面积少120平方分米,原来长方体的体积是多少?2、两种商品的价格比试7:3 请帮忙解题:一个小学二年级的数学题2个小铅球比一个大铅球重1千克,8个小铅球比5个大铅球轻1千克,算一算,大小铅球各重多少千克?这是二年级的数学题,不能用方程解,但需要列出算式. 造句:鹅毛般的苇絮恶狼般的眼睛为了 ...为了...为了.哑然失笑:急中生智:名言名句大提问挫折:灵感:成功:上衣和裤子的价格各是多少元?裤子的价格是上衣的三分之一,一套衣服共320元 1.某单位食堂一月内购买了三次大米,后两次购买数量是前一次的两倍,由于数量增加,每次加个都比前一次优惠10%,共用去2536.8元.如果下月一次性购买同样多的大米,可至少节约多少元?2.一个长 小学五年级数学奥数题的答案?1.( )÷12=1:( )=3/( )=0.5=( )%2.把0.13万改写成以“一”为单位的数是( ),读作( ).3.在括号里填上合适的单位名称.(1)一个鸡蛋重50 一:忽然,像一阵风吹来的,远处的小丘上出现了一群马,马上的男女老少都穿个色的衣裳,群马疾驰,襟飘带舞,像一条彩虹朝我们飞来.“像一阵风吹来”说明________________,“彩虹”说明_____________ 丙在计算除法(有余数)是,吧除数137写作173,商多3,余数相同.求正确德商和余数 1.边长为自然数,面积为105的长方形.不同的长方形共有几种? 两人:A,B从甲地和乙地同时出发,相向而行.第一次相遇离甲地5千米,然后继续走.走到两地后立即返回,第二次相遇离乙地2千米.问:甲乙两地相距多少千米? 一辆汽车共载客50人,其中一部分人买A票,每张1.20元;另一部分人买B票,每张1.00元,售票员最后统计出所卖的A票比B票多收入16元.买A票的有多少人?绝对要有解法,带讲解的我可能会追加的!赶快, 几道小学五年级奥数题1、把一个小数的小数部分扩大4倍,这个小时就变成6.6,把这个小数部分扩大8倍,就变成例如9.2,原来这个小数是( )2、从1、2、3、4、5、6中选出四个数字组成一个四位 一辆车从甲地开往乙地,如果将车速提高20%,可以提前1小时到达,如果按原速行驶120千米后,再将车速提高25%,可以提前401分钟到达,甲、乙两地相差多少千米? 要把题目类型和解法写出来, 1、花生的出油率是30%,300千克花生可榨油多少千克?2、2.五年级2班今天有49人到校上课,出勤率为98%,全班共有学生多少人?3.风速在森林地带可比平原减低30%,如果风在森林地带速度每秒是4. 1、长72米的列车,追上长108米的货车到完全超过用了10秒,如果货车速度为原来的1.4倍,哪么列车追上到超过货车就需要15秒.货车的速度是每秒多少米?2、一座大桥长1275米,一列火车过这座大桥.从 一个羽毛球4元,一个乒乓球2元.买这些花了100元.如果把羽毛球都换成乒乓球,乒乓球都换成羽毛球,则需要花92元.原来买这些乒乓球和羽毛球各多少个? 几道小学五年级数学题1.办公桌抽屉的长是30厘米,宽50厘米,高15厘米.如果一张办公桌有2个这样的抽屉,做一张桌子需要木板( )平方米.2.“环球”牌涂料分大桶、小桶两中规格包装,大桶8升, 一列客车从甲城开往乙城,每小时行60千米,行了2小时后,从乙城往甲城开出一列货车,4小时与客车相遇,这时货车行了全程的3分之1,两城相距多少千米? 游乐中心内一个长方形游泳池,长25厘米,宽12.5厘米,深1.2厘米.如果用直径20厘米的进水管向游泳池内注水,水流速度按每分100厘米计算,注满一池水要多长时间? 一项工作,甲单独做要用10小时,乙单独做要用15小时,甲做完三分之一后,两人合作,还需要几小时完成? 请用算式答小李算长方形的体积时,误将宽多算了五分之一,高少算了四分之一,结果比正确答案少了40立方厘米,那么该长方形实际体积是多少?大家请用算式答!大家请不要回答的太深奥,我才 求助小学六年级寒假作业一道数学题解法甲、乙两人以匀速绕圆形跑道按相反方向跑步,出发点在直径的两个端点,如果他们同时出发,并在乙跑完100米时,第一次相遇,甲跑一圈还差60米时第二次 求十道五年级奥数题加答案题目短一点 小学(超难的)我国个人所得税规定;个人月收入超过800元的部分应缴纳个人所得税,超过部分中,个人所得税率为;超过部分 500元 501~1500税率 5% 10%叔叔上月的税后工资为1500元,他交纳了多少 求这2道数学题解法1:求f(x)=cosx-1/2cos2x的最大值(x属于R)2:求sin10°sin30°sin50°sin70°的值 急.写出详细的算式,不用解题思路.一、填空.(每空0.(1)800706502读作(),四舍五入到“万”位约是( ).(2)250平方千米=( )公顷 1又1/6时是( )小时( )分(3)1.2=72/( )=( )%.(4)一 甲乙二人分别从东西两村同时相向而行,第一次相遇于距东村36公里处.二人继续前行,至目的地后折返,在距东村54公里处第二次相遇.问::东西两村的距离. 求2道数学题的解法1:tan71+tan49-√3tan71·tan492:(1-tan17)/(1+tan17) + cos146/(1+sin34) 1.张大伯家有一堆小麦,堆成了圆锥形,张大伯量的其底面周长是9.42m,高是2m,这堆小麦体积是多少立方米?如果每立方米小麦的质量为700kg,这堆小麦有多少千克?2.小红去食品店买肉罐头,她看到有 ABCDE×ABCDE———————XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX———————XXXXXABCDE 求A+B+C+D+E=?A= B= C= D= E=ABCDE不可能是零 急求2道数学题的解法!1.一种书若定价每本10元,可盈利1/4,若想盈利2/5,则应定价为每本()元2.同一种商品,甲将原价降低10元后卖掉,用售价的10%作积累,乙将原价降低20元后,用售价的20%作积累, 要算式,不要方法6.某装订车间的三个工人要将一批书打包后送往邮局(要求每个包内所装书的册数同样多).第一次他们领来这批书的十二分之七,结果打了14个包还多35本.第二次他们把剩下的
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn