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

开机,自动更换墙纸 -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页查看。)
数据会被清空:部分三星、魅族手机存安全漏洞 IE10简化文件访问 支持FileReader API 从MySQL迁移到MariaSQL Wikipedia力求开放 奥巴马筹款网站的制作过程 国内芯片厂商发力4G 新岸线2013年将推LTE方案 CMDN Club 23期:开放平台和O2O移动产品开发 花旗调低Apple股票评级 不信iPhone5会卖得好 2012年Linux Journal读者选择奖结果公布 百度云SiteApp:三步轻松创建移动网站 Twitter跨数据中心图片存储系统Blobstore解析 摩托罗拉携手中国移动发布Intel Inside智能机新锋丽i MT788 第五届“英特尔杯”全国大学生软件创新大赛圆满落幕 Appro推出液冷超级计算机 Dell:曾敦促微软WinRT放弃Windows品牌 IE10十大优点:渲染页面比Chrome快8% 法国电信:开放平台下的O2O移动产品怎么玩? 客如云创始人彭雷:寻找O2O“失落的半圆” 中国电信宋鹏飞:天翼开放平台的服务及架构解析 W3C小组宣布:HTML5标准制定完成 还记得DUQU吗?起因可能是Windows中存在了20多年的漏洞! API管理的五大规则 Google也节能:挖角美能源部Arun Majumdar博士 预测:云计算领域的5大变革 CTO俱乐部:移动信息化的创新实践及互联网创业 核心组图曝光:BlackBerry 10明年1月30日发布 “蛐蛐儿”创始人朱连兴:音频二维码的技术实现和应用场景 信恩科技创始人林兴陆:QR Code二维码的前世今生 2012移动开发工具盘点:傻瓜式游戏工具引擎 《福布斯》发布年度“未来之星” 扎克伯格上榜 Cloudera透露Impala发行版新功能及开源计划 Nokia落寞身影下 三星成为全球最大手机厂商 做个类似的邮件发送程序 快快就我 怎样同时新增主从两张表的数据? vb.Net中的几种类型集合中,那种适合于用Index和Key来索引?我怎么觉得.Net的CollectionBase还没有vb6的Collection好使? 为亚洲雪耻,为中国队加油!! 紧急求助:在那儿可以找到关于字体文件的文件格式!!! 测试adoconnection是否已关闭 请教各位大侠! 关于表设了密码的问题 开始了吗?开始了吗?北京的高程考试报名开始了吗? 如何自定义数据类型? 图片显示不了了 java 线程,对当前线程(非主线程)调用sleep,为什么主线程(窗口)也没反应了 各位大虾帮忙呀,哪位把下面的文字翻译成准确的英文,200分相赠!!!决不食言!!! 请教:PHP下的事件处理方法 如何通过ASCII码区分全角与半角字符?急! 触发器???:(拜托各位大哥大姐,大叔大伯! 字符串替换函数是什么? 送分 那位大虾帮我翻译一下 急 分不够可以加 为了忘却的纪念! 急急急急急!!!!!!!!!!,Band里的内容过长,如何让它自动的分页??? oicq的窗口title怎么为空了?如何得到句柄? session问题! 用dbgrideh控件,如何实现汇总结果的打印 有关ATL的最基础问题 怎样监控icmp包?用自编的程序 急急急急急!!!!!!!!!!,Band里的内容过长,如何让它自动的分页??? 使对话框最小化渐变到托盘区。 各位高手!!我用的是win2000工作组模式,为什么我能访问别人,而别人不能访问我呢??? 有关文件的读写问题。 大家讨论一下内存分配、释放的问题 关于在jsp中运用sqlserver的小问题!!! 怎么样可以将session的存活期限设置成“永远不死”?? 送分题,如何取得一个表的所有字段名? 那里可以下载Wrox系列书的英文版? 无法启动sqlserver的问题. DELPHI中dbgird的语句问题 关于控制动态产生Checkbox,并进行动态控问题 BCB中使用MSComm控件,无法定义动态数组变量,该怎么办?--急啊!在线等待 战神----巴蒂 两个问题! 用ADO访问DBASE数据库 百分求救:关于COM方法的reference参数不返回值的问题 请教各位高手 如何将程序中不同的查询结果写入报表? 怎样自编程序监控icmp包,应该截获什么消息,还是用别的方法? java本地化的问题(各位帮帮我!) 一个关于类型转换的菜鸟问题!! 招聘 Jpeg中FFd9可以有几个? ?????不同窗口中多个参数传递的问题,在线等待中........ 把铁钉放入硫酸铜溶液,能看到的现象有A、产生气泡.B、溶液颜色变浅 C、铁钉表面有红色物质.请说出理由 差压变送器校验的最大允许误差怎么计算 环氧树脂会对三元乙丙橡胶产生腐蚀吗环氧树脂的玻化温度大概是多少?当它在这个温度段时与三元乙丙橡胶或者其他橡胶接触,会发生什么样的情况? 1mol氢含有6.02×10的23次方个氢原子为什么不对我比较笨,难理解. 频率表示声源振动的( ),声源( )振动的次数叫做频率. 测量液体压力的变送器安装位置是否要高于取源点 氯气与碘化亚铁反应产物与其物质的量之比有关,有两个方程式,分别为什么 反应釜厂家想在郑州找一家质量好服务好有很大的做反应釜的公司! 华扬太阳能副水箱经常不能上水,每次都要跑到屋顶敲打上水管,才能上水,有没有办法解决?我怀疑副水箱有问题,哪位可告诉什么地方有副水箱卖不? 哪里的搪瓷反应釜修补材料最好 请问廊坊哪里有做反应釜的厂家?不好意思 我最近刚找到一家廊坊地区的叫万富容器的厂家 沥青漆耐氯腐蚀吗 请问“ 1 mol 水 ”这种写法正确吗?还是一定要写成“ 1mol H2O ” ? 进口反应釜厂家,进口反应釜哪里卖 耐氨水油漆保护铁质容器不被氨水腐蚀,并且在氨、乙醇、水的混合蒸汽中没有溶解其他物质. 聚碳酸酯怎么用化学方法鉴定需要用到的试剂,怎么操作,在鉴定中应该注意的事项. 请问现在邮局能寄火漆信件吗?就是欧洲中世纪常用的那种蜡封信件. 取暖费用是按建筑面积还是实用面积缴纳 求 中石化三菱化学聚碳酸酯(北京)有限公司 英文翻译 一定容量氢气做等压膨胀,从外吸收1000焦耳的热量,对外做了多少功?内能多少 写出一个你感兴趣的名人的名字并写出相关的作品 果冻是胶体吗那分散只是什么呢,分散剂有是什么呢, 这首诗的意思 有关伟人的文章(三篇)只要有题目就行 果冻是不是胶体 咏柳这首诗是什么意思 要测量管道的压力差,是选用差压变送器还是选择两个压力变送器测量两端压力后再求差值?那个精度高? 敞闭容器液体压力圆柱形的液体对容器的压力等于自身重力,敞口容器和闭口容器那个是大于自身重力,那个小于自身重力.为什么会出现这样的现象?一个是上大下小的容器,一个是上小下大的 咏柳这首诗中的妆是什么意思 磁力搅拌器注意哪些?VELP磁力搅拌器在使用时呢? 秋菊男是什么 咏柳意思 磁力搅拌器在使用时有什么要注意的么?购买了一个78-1磁力搅拌器,不知道该怎么使用,有没有什么要注意的? 菊花不是花么?难道还有别的意思?他们总说爆菊是啥意思? 咏柳这首诗的意思! 建筑面积74.45平方米供热费超高部分怎样计费 女生的菊花是什么位置啊? 下列实验均发生了化学反应:(1)将铁钉放在硫酸铜溶液中8.下列实验均发生了化学反应:①将铁钉放入CuSO4溶液中;②向FeSO4溶液中滴加浓HNO3;③将铜丝放入FeCl3溶液中.下列判断中,正确的是DA 根据此图材料绘制一个水箱自动与手动上水水泵电路控制图,要求低水位启动,水箱满停止. 封印的火漆可以换成蜡烛吗?请问火漆蜡可以用蜡烛代替吗?我知道这两样东西肯定是有不同的,但是我想说,如果我想要试一下我的火漆印章,要是蜡烛能代替火漆蜡,就没必要用火漆蜡了嘛.毕竟 硫酸铜和铁钉实验报告单科学实验报告单, 根据表中示例,写出对应物质的化学式及物质的名称. 不第后赋菊菊花特点是虾米? 比较稀硫酸和硫酸铜溶液与铁钉的实验 差压变送器压力波动有时从18点多,突然变成2点多或其他值,然后再变成18点多,波动也比较频繁 关于火漆蜡、蜡勺、蜡烛的几个问题打算在同学生日礼物的包裹上印(以后也这样),可是,毕竟是第一次用,火漆蜡保质期多久?怎么保存?【无芯火漆蜡】蜡勺用完以后怎么清理干净?烧火漆蜡 是否可以用磁力搅拌器代替反应釜? 写出有关物质的化学式A____________ B__________ C___________ E___________ H_________ 是否只有胶状物如胶水、果冻类的物质才能成为胶体? 240柴油机主轴瓦内径椭圆怎样测量才能准确算出瓦与曲轴的间隙? 写出各物质化学式在灰黑色粉末A和白色粉末B组成的化合物中加入水先看到溶液呈蓝色,经过一段时间溶液变成浅绿色并析出红色沉淀C 将沉淀滤出加入浓硫酸共热有气体放出反应后将溶液浓 建设部、化工部等有关部门规定,新建小区户外给水管必须使用塑料管,新建建筑不得再使用传统铸铁排水管.接上.国家推广使用塑料建材的主要目的是A.保护金属资源 B.金属易腐蚀,而塑料使用 咏柳这首诗的意思是什么 差压变送器测压力两端分别为什么压力 室外地下的塑料水管冻了怎么办 我要查“咏柳”这首诗的意思 压力于差压变送器的是如何选型的? 1mol H2O 含有多少mol氢原子?多少NA氢原子?3 mol H2O呢 经常被爆菊会怎么样?经常爆菊的话,菊花会不会比一般人松?虽然是有弹性的.但是弹性会不会比一般人小?拉的便便啊要粗很多么?会不会憋不住便便啊? 英语翻译大学体育(一)大学英语(一)计算机基础(一)思想道德修养形势与政策(一)中国近代史纲微积分1(经济类一)大学体育(二)大学英语(二)计算机基础(二)军训毛泽东思
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘