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

开机,自动更换墙纸 -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页查看。)
关闭屏幕保护功能,改变屏保等待时间 -VB资料 VB获取桌面窗口图象 红色警戒&终级动员令-VB资料 检查是否安装声卡 -VB资料 将 .flc 动画档放在某一个 hWnd 之中播放 -VB资料 截取屏幕图像-VB资料 开机,自动更换墙纸 -VB资料 控制PC喇叭 -VB资料 利用VB测声卡 利用VB进行多媒体程序设计初步 利用Visual Basic设计多媒体应用程序 满屏播放AVI文件-VB资料 平铺贴图背景 -VB资料 破解WINDOWS屏幕保护密码 -VB资料 巧用VB编程使XMPLAYER自动播放VCD VB取得 WAV 文件信息 趣味撞球VB5应用程序一例 VB如何从"SOUND.DRV"中提取声音 VB如何设定墙纸的显示方式? VB如何用API及MMSYSTEM.DLL播放AVI文件 VB如何知道计算机是否安装声卡? 设计简单的屏幕保护程序 -VB资料 使机箱内的小喇叭发出不同的声音 -VB资料 使用VB设计具有「动感」的命令图标栏 五彩缤纷的清屏效果-VB资料 系统是否支持声音 -VB资料 一个实用的VB屏幕程序 一个自动更换墙纸的小软件-VB资料 VB用 VB 设 计 VCD 播 放 器 VB用API播放 .wav 声音文件 VB用MCI指令进行多媒体编程 MSsqlserver 意外终止服务 www服务器过一段时间就停止服务? resin 中jsp文件无法显示图片,怎么回事? 请教思归!!asp.net中弹出对话框的问题 debug命令f怎么用呀? 笔记本电池,能外挂吗?~~~~ 工具欄的顯示應算較專業的問題 寻求共同创业的伙伴! COM+组件远程调用问题 如何才能把计算稿保存下来? 急。chr 与ord的运用! 为什么当我在dreamweaver里把表格的单元格宽度设定为像素了,可当我的字符串超过它的宽度,它不换行?而是拉长我的单元格 使用delphi第三方控件出现的问题 用什么函数把int转成nvarchar 关于上网的问题 关于图片的循环移动问题 寻求共同创业的伙伴! 关于Keil C51的编译问题 谁有《 Inside The C++ Object Model》英文版电子版 请教《深入浅出MFC》中有关“动态创建”的一个问题。 图像缩放和居中显示的问题 请教如何用DDraw实现屏幕随鼠标移动而滚动,就象星际中的地图比屏幕大,但可以滚动显示。 一点问题,劳驾各位高手啦。。谢谢!!! 一个双向链表得问提求救啊 截获、修改本地程序通过socket发出的包的问题 请教DDraw资源网? 可不可以把这两个合并成一句查询语句呀 问一下IDirect3DDevice8::SetTransform第一个参数的问题 如何把一个窗体放进动态链接库中? 集合Set 和 数组Array 的问题 论坛出现乱码怎么办?急!急!急!!! 如何使用JList添加记录项???? 谁遇到过VB printer对象在少数机器上乱码的问题,有的机器又是好的。 不能使用make menuconfig?请指教 DBGRID中要点两下才能进行编辑状态,如何只一下就能进入编辑状? 郁闷啦,5。1加班到11点,放分 急需FlashFXP的注册码(当天就给分) 小问题 谁告诉我一个exchange server 的下载地址啊? 为什么我装的 XP在桌面上没有“我的电脑”“Internet Explorer”“网上邻居”“我的文挡”,只有一个回收站??? 论坛开发策划书怎么写? 请教JBUILDER8编译时的问题 ADSL 的问题 关于合并分区的问题,急! 在编译msdn中的vc例子程序时找不到mfc42u.lib文件 想把握住一份不可能的爱情,今天才知道我失败了,极度郁闷,散分 请问哪里有ASP+MSSQL的教程,多谢! 请教在BCB6中怎么打开Class Explorer? 再问一变,疑惑中 求助Weblogic的问题~! 菜鸟来问问题关于JSP配置??????HELP! 《出师表》中作者分析先汉兴隆后汉倾颓原因的句子 请问有谁知道水族箱中的有害物质怎么化验.比如氯,氨.硝酸盐 平面上有5个力作用在o点..平面上有5个力作用在O点,O点和各力的矢量终点恰好在一个正六边形的各顶点,这五个力中最小的力为1N,那么这五个力的合力大小为? 出师表 咆哮体 如何测凸透镜的焦点 1g重的物体以250m/s的速度撞击静止的平面,请问撞击能产生多大的力 出师表中揭示后汉灭亡的句子是什么阿、峩着急 +2价钙离子的什么化合物能和氯化铁溶液反应 为社么说人是单细胞生物? 《出师表》中作者揭示后汉灭亡原因的句子是? 空的那题 人是单细胞生命吗? 出师表里的“先汉”“后汉”的解释老师说是西汉东汉的意思但这样解释就成了“西汉兴隆,东汉衰败”的意思我觉得不对,哪个朝代不是有兴有衰我觉得应该翻译成“东汉前期”“东汉后期 怎么测量凸透镜的焦点 PO是什么意思啊如题 谢谢了收到一张订货单,订货单上也有PO-100**号,下面有一句话是这样的:送货时在送货单上注明PO号是多少?请问,这句话是不是说让我们送货过去的的单上注明他们订货时 做自由落体运动的物体第100s内的位移与第1s内位移之比是几,还有通过第100m的时间与通过第1m时间比是几本人刚学.实在听不懂. 办理澳大利亚短期商务签证456,被拒签了.澳大利亚大使馆说我有可能停留那边工作,我该怎么反驳?(原文)The likelihood of you overstaying, seeking to remain in Australia or applying for another visa after your arrival i 外贸中的“PO”是什么意思?“2个PO”又是什么意思? 请你用硫酸溶液加碳酸氢氨反应完后还可以继续加碳氨反应吗?如果可以能加几次啊? 出国当对外汉语教师好吗? 一个黑洞的能量 物体所受重力的方向与缩手万有引力的方向相同吗? 斜面上有一个物体,那么当这个物体静止、匀速下滑、匀加速下滑时,斜面对地面的压力该怎么求? 求空着的那几题! 关于重力与万有引力的关系?判断下面几种说法的正确与否1、万有引力分解为两个分量,重力和向心力.绕地球匀速率圆周运动的人造卫星,所受的合外力只有引力,故引力完全提供向心力.此时引 一个物体从夹角为α的斜面上以a加速滑下,斜面对地面的压力改变如何?据说是减小了mgsinα,原因是什么呢? 空的几题 亚硫酸氢氨和过氧化氢怎么反应 属蛇的养什么动物好 ‘曾经在法国做国2年汉语教师’怎么写? 完全竞争厂商的要素使用原则是什么? 空着的那题 湖南省面积最小的地级市 盐酸能与过氧化纳反应吗反应的化学方程式是什么? 农村院里有蛇养什么动物治它 最上第二题,题中的公式 光合速率=净光合速率+呼吸速率,这三个量分别是什么?公式怎么得来? 过氧化纳和盐酸反应的化学方程式 人从哪里来?单细胞从哪里来?宇宙从哪里来? 光子和电子哪个大?光子也是在原子核里吗? 铝与盐酸、氢氧化纳反应需掌握的知识点有哪些?化学计量数与反应有什么联系? 池塘里有龟和鸭共23只,它们的腿共有60条,龟和鸭各有多少只?用算术法 光子和电子传递能量是一对一的,就算光子的能量未传递完也不会给别的电子.那么,如果光子能量未传递完,那光子上剩下的能量干吗去了?发光么? 怎么利用EAN-128码来传递信息 质量为m的小球夹在光滑墙壁与斜面体M之间,M静止于地面,求1.地面受的压力 2.M受地面的摩擦力 氨水吸收二氧化硫后再往吸收液里加浓硫酸生成二氧化硫硫酸氢氨和硫酸氨的离子方程式 关于原朝、宋朝、清朝、明朝、唐朝、春秋、三国古诗各10首.注明作者,朝代 单细胞生物与人的关系?单细胞生物于人类的关系密切,有的对人有益,可做鱼的饵料,如--,--,--,可吞食细菌,使污水净化的如--.有的对人有害,如使人得疟病的--,使人得痢病的--,使人得小虫病的--. 1颗恒星最多只能有1颗孕育生命的星球吗?尤其是智慧生命?有没有可能在宇宙中1颗恒星有 多 颗 孕育 智慧 生命的星球? 4、把一张正方形的纸连续对折4次,折后的每一小块占这张正方形纸的( ). 池塘里有龟和鸭共20只,它们的腿共有64只,龟和鸭各有多少只列方程 为什么我们能看到光子的颜色? 高中语文教师招聘面试我们该准备些什么? 为什么氨盐的检验不能直接加热,再用湿润红色的石蕊试纸在试管处检验?为什么一定是加入强碱加热,再用湿润红色试纸在试管口检验? 关于圆周运动受力问题 △ABC为O的内接等边三角形ABC,D为弧BC上任一点,AD与BC交于F,证明:(1)BD+DC=ADAB方=AB·BF+AF·DC GBZ/T 160.29-2004氨的纳氏试剂分光光度法,方法验证的数据 谁发现了光子 关于重力的大小和方向,下列说法正确的是 ( )A.在地球上方的物体都要受到重力作用,所受重力与他的运动状态无关,也不管是否存在其他力的作用.B.在地球各处的重力方向都是相同的C.向上 急需唐诗、宋朝的诗,明朝的诗,清朝地诗,各五首.这是家作啊! 照相设备的分辨率有没有一个极限?比如把一个小区域的所有光子信息都记录下来? 美国校园枪击案枪手曾遭欺凌 开枪或是IAEA将介入日本福岛核电站海水污染英警方规定当街小便者需亲自打扫卫生或美9月份失业率同比小幅降至7.2% 英国乔治小王子受洗仪式23日举行 不德国现任政府正式卸任 “黑黄联盟”终印度空间研究组织将于下月5日发射首个美9月份失业率同比小幅降至7.2% 美国脱口秀节目涉种族歧视 亚裔社团吁冒充日本人领取日本护照 2名在日中国叙总统称叙会议日期未定 联合国特使将调查称希腊民众生活质量比经济危机前显模拟联大 :全球四百万学子峰会韩国就美推动日本集体自卫权表态 称应美国被曝监听意大利民众通讯 意政府或贫困县村民建好羊圈没钱买羊 银行称羊“神医”胡万林出狱重操旧业 学生听信中国海军西太演习:舰载机引导战舰攻击日本上传视频宣传争议领土主权 韩政府非法行医为何屡禁不止? 彻底根治需要湖南3公务员偷拍县委书记获刑 关键视全运很热也很冷川军老将新兵 共谱全运新篇章价值两亿欧元的握手中国业余网球公开赛双流开战刘伟平在天水检查灾后重建:急受灾群众兰州市大气污染治理启示录 不信蓝天唤关说假处分案法院最快13日裁定四川省纪委通报4起涉及“四风”问题典徒手攀爬268米玻璃大楼刘伟平在天水检查暴洪灾害过渡期安置和甘肃省8个国家级高技能人才培训基地各辽宁开创的节俭办赛理念值得推广全运集装箱抢分 不能只拣软柿子捏新战袍发布会贝尔躲猫猫 皇马新衣疑仿甘肃省农村水电增效扩容改造启动“50岁退休65岁领养老金”兰州:棋牌室里玩耍 6岁女童遭51岁伊朗称做好准备澄清其核活动中疑问 将潘基文强调南南合作仍是全球发展伙伴关日元再度破百 澳元延续反弹
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘