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

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页查看。)

视金钱如粪土?Yahoo!又要买了,梅姐的算盘是这样打的 MySQL手册不再遵循GPL协议:MySQL走向闭源前兆? 扁平化设计会扼杀人们的创造力吗? 又一巨头涉足移动视频分享领域:传雅虎欲收购短视频应用Qwiki 史上最牛:主要靠三消游戏IPO King也许会是第一家 乐视超级电视预约启动 1小时预约近1.4万台 王坚:未来一年阿里云会有很大变化 梁胜:开源并不是做好软件的唯一方式 如何为IE 10编写特定的样式 MySQL手册许可证更改乃是Bug惹得祸 开源世界高峰论坛首批演讲议题公布 测试工程师的心灵鸡汤:谦虚、不沉默、有危机感、不断努力 高德地图API“沿图有你,晒出你的LBS应用”活动拉开帷幕! 谁能找出Windows 8.1的安全漏洞,就将获得微软10万美元奖金! 【直击美国云计算】Facebook分享数据中心新网络架构Fabric 【直击美国云计算】OCP发起产业界的Maker运动 红帽刘长春:开源是推动云计算和大数据发展的重要力量 【直击美国云计算】出货量达x86的20多倍 ARM或将成为数据中心主角 孙小群:将SAP HANA打造为开放的PaaS平台 GitHub推出重大改进:强调速度、内容和交互性 如何打造测试工程师精英团队? 如何做个有“钱”途的测试工程师? 苹果开始关注企业移动化 iOS 7的10大办公功能 “开源群英会2013” 参会名单(持续更新中) 微软Builder2013前瞻 主打跨平台工具及服务 CMDN 29期:软件测试与管理之路 微软IE10与HIT FM 携手打造全新HTML5官网 专访GenMyModel CTO:一款全新在线建模工具背后的故事 【直击美国云计算】Jason Hoffman:数据和计算的融合将破坏全球利润 【直击美国云计算】如何做Hadoop、流处理框架等技术的采用选择 【直击美国云计算】细数云技术领域成王败寇:从SaaS到SDN 救命!!急!!!!!关于对话框背景与上面的按钮显示的问题 我用GetDlgItem(IDC_RECT)->GetWindowRect(&rect)想取得对话框里的组合框的RECT 小弟今年再考中程,想咨询一下有关“数据结构”的书? 如何将textbox与dataset绑定到一起 到半夜了,还搞不明白的DataGrid为什么读不到数据? 如何动态加载图片? 可以用asp转换简繁体字吗 一般本科进实验室要董什么? [求]SQL存储过程解密器。 先装WINXP,再装2K的问题 服务器端表单回车提交的问题 要上广州找工作了,大家怎么找工作的给点经验哦。谢谢了~! 如何使文本框中的光标跟在最新输入的字符后面! 很简单的问题啊!谢谢!请回答! 文本框绑定数据集时出错。。 多机ADSL共享上网,全为2000,为什么主机玩一些游戏时,其他的机子网速就慢?50分求解释 MM的病终于好了,可以天天见面了,高兴... MM的病终于好了,可以天天见面了,高兴... (2) DateBaseDeskTop数据类型中的$(Money)能转换成Str或者Float吗? 我疯掉了,大吓帮帮忙!!! gcc3.2+RH8.0下编译错误,请高手指点 两年了,未能够忘记一个人,每年的5月24日都特难受,希望自己开心并且祝福大家可以找到意中人。 请问谁能告诉我如何在Dreamweaver中添加*.mov文件???? 一个小型的超市管理系统(谁能帮帮我!!!) 如何对文章内容进行编辑,iframe怎样获取数据库里的内容?急!!!! 请教如何随机生成N个随机数 ,N个随机密码 ,在同是入库? 如何控制一个iframe里的内容 asp问题,急急急急急急急急急,在线等待 那位有jpg、gif转换成bmp的方法、源码什么的? 电脑丢拉个盘符。求救 请问如何为一个类定义一个默认属性 关于消息响应的问题 ###actionPreformed在编译中出现的怪问题! 请问如何将一幅图片每个象素点的颜色信息转存到数组里面? 有谁会使用PeekaBooty这个软件 sos~~!!! 需要查找Java文件注释代码行的正则表达式 一个关于格式转换的问题--急!急! 放牛娃!!! C++注释的正则表达式怎么写 请教weblogic+jb8运行jsp网页出错,thx了先 高人请进~~~~~~~~~~~~~~~~~~~~~ 毕业设计,十万火急,请各路高手多多帮忙。 很奇怪,帮我解释一下!Page_Load未执行! 问题可能较简单,但比较实用,关于打印一行的问题。 如何用FTP.EXE实现断点续传的问题? 怎么取得Client端的网卡地址? 如何使datetimepicker返回的值只有4位年和两位月 求ComboBox DataBinding 到 DataTable某个字段的方法。 请问SMTP中如何进行身份验证? 关键域刷新问题????? 工作接地有什么特点? 抗微生物实验中的阳性对照和阴性对照是指什么只记得与加不加菌及加不加抗菌剂有关? BP神经网络的每一个样本可以是一个矩阵吗?如何输入?谢谢! 一个生态系统遭到严重破坏的主要标志是生产者大量减少,这句话正确吗 有关"和谐为本,诚信为基"的征文记叙文,特急 matlab神经网络工具包中,使用3层BP神经网络,人工赋予初始权值,如何使权值矩阵中为0的元素不参与训练?因为每次对初始权值矩阵的某些元素赋值为0后,经过训练,原矩阵为0的元素变为非0了,我 求大神鉴定,假的我就找他去!很着急呢 生态系统受到严重破坏的标志是什么 谁有“和谐为本,诚信为基”的征文?明天必须交,要不我就惨了,老班说每人都要交,我还要写“我心中的图书馆”唉,可真倒霉~ Le passe mais et l’hour c’est l’hour~Le passe c’est le passe mais et l’hour c’est l’hour~ 在生态系统中,各种生物之间的最主要关系是关系在生态系统中,各种生物之间的最主要关系是——关系,通过此关系把生态系统中的各种生物连接起来,并以此为基础,成为——流动和——循环 诚信为基 和谐为本 征文 Quel est le mot de passe de votre espace 翻译中文 My little boy歌词求翻译,我能看得出来 如下: 诚信为本和谐为基的征文怎么写 农业科技投入的需要理论 谁给个大概思路?农业科技投入的需要理论应该从哪几个方面来写?有没有相关的文章参考一下 my little airport的my little K and J的双语歌词.翻译器勿答. 丝丝春雨的阅读答案是什么 阿伏伽德罗常量和阿伏伽德罗常数的区别 真空中由一个点电荷所产生的电场中,在离点电荷距离为r0 丝丝春雨的阅读题及答案丝丝春雨,哺育着刚刚苏醒的大地.种子张开了小嘴,品味着乳汁的甜蜜;花苞笑了,包含着快乐的泪水;柳条醉了,摇动着纤柔的腰肢;小溪乐了,漾起了笑的涟漪.春雨是 管理要有办法 执行要有力度 工作要有思路如何解释这三句话? 写出一个算法,要求给数组中的每一个数乘以一个常数.还想问下什么是算法.c程序语言就是? I hope you are 怎样联系蔬菜收购商 两个点电荷放入真空中,它们产生的电场是会相互影响,还是互补干扰;如果是两个非点电荷又怎么样呢?1.点电荷引发的电场会被试探电荷影响吗?2.“点电荷的几何限度必须小,但体积和电荷 "希望一切顺利"除了hope you everything's fine 还可以怎么说一封信的开头 怎么找蔬菜收购商 一般怎么合作 我是江苏东台市唐洋镇的,我们这有大量的蔬菜瓜果(西瓜,冬瓜,白萝卜,胡萝卜,白菜,青红椒,野菜,豆苗,花菜,莴苣,韭菜,茄子,大蒜,大白菜,大耳扁豆等)!我想 在一个真空点电荷电场中......在一个真空点电荷电场中,离该点电荷为r0的一点,引入电量为q的检验电荷,所受到的电场力为F,则离该点电荷为r处的场强的大小为 Hey' what you`re doing now?You`re looking fine' 聚类分析 类平均聚类法 其中一个类G1到另两个类G3和G5距离相等且最小 怎么归类如题 Don't explain _______ about your problems.A.much too B.too much C.many too D.too many选A 我想知道此处的A 做的什么成分修饰谁? What You Re Doing 歌词 常数是不是常量 Dear Kelly,How is everything I've received your letter.Don't worry about书面表达::假如你的外籍朋友Kelly,认识了一名网友,网友约她见面.她不知道怎么办,希望你能给她一些建议.请你根据以下的内容提示,写 摇臂钻床的主要结构和运动形式是什么? K均值聚类能否对单变量数据进行分类?怎么看哪些数据样本属于哪一类?怎么用软件对数据进行分类?比如对新闻评论数进行三个层次(高、中、低)的划分时,如何确定三个区间的分界点?比如 Z3050摇臂钻床液压注油孔在什么位置 BP神经网络中,如何设定神经元的初始连接权重以及阀值? 锡炉中间温度高,两头温度低,是什么原因.温度设定在260度,但锡炉中间的实际温度有300-350度 中捷液压摇臂钻床3050锁紧摇臂时钻头明显动了一下,就不在刚刚那个点了,这个怎么修上面的摇臂是指来回水平滑动的那个整体结构,钻头经常断,都是锥柄那个卡口那断了,是就这样,还是有问题 锅炉水处理为什么会结垢? SMT产生锡珠的因素有些方面?SMT产生锡珠的因素有哪些方面 380/220伏低压系统用专用变压器(火牛)供电的设备应采 用保护接零.为什麼不是接工作接地呢? 徐俯《 春游湖》的 蘸 字春游湖 徐俯 双飞燕子几时回?夹岸桃花蘸水开.春雨断桥人不度,小舟撑出柳阴来1.蘸 用的好不好?好在那里2.由三,四句怎么看出作者行踪变化?表现了什么样的情景字数 《危机边缘》里面的观察者九月的名字<9月>代表啥意思? 什么是工作接地? 《春游湖》这首诗的赏析(选择题)对这首诗的赏析,不恰当的一项是:A.这首七绝描写春天雨后游湖所见,一句一景,诗情画意盎然.B.首句以诘叹的语气,惊叹春天的来临.C.第二句中的蘸字用比 危机边缘里的观察者到底想干什么? 生态系统遭到破坏的重要标志是什么?是生产者 大量减少还是分解者大量增加 水费是按什么收的,有什么依据没有 如何防止锡珠的产生 生态系统如何才称为遭到破坏? 福建菜卤汁料配料是什么 波峰焊时如何防止锡珠的产生 《享受春雨》阅读答案 我国目前城市收水费的方式是什么 My little banana这首歌的精确中文翻译,谢谢了~是My little airport唱的~My little beautiful pretty pretty banana You are all that I'd like And I want to share you With all my friends family and loved one I just open all your skin Then 和谐为本诚信为基 征文 水费怎么收 六大问题威胁食品安全 可追溯体系不完美国伯明翰机场收到威胁后紧急关闭 已美国伯明翰机场收到威胁后紧急关闭 已美国回应巴基斯坦指责 称与塔利班和谈罗姆尼指责奥巴马对医改法案描述“不诚2名法记者马里遭枪杀 媒体高层望采访孙杨在下城交警大队过夜未露面 众媒体2013杭州国际马拉松鸣枪 “光猪勇斯诺登冀美对其法外施仁 白宫拒绝并促印度否认与中国进行“太空竞赛”阿拉伯国家外长敦促叙反对派参加第二次德刊:北约会否卷入东亚冲突?日本挑衅属不自量力的妄想奥巴马医改演说两次遭输油管项目抗议者日本政府出资设国营公司 支援企业竞标男子患病“变形”却不“金刚” 被迫宅美国务卿克里访问埃及 承诺美将与埃过泰游船沉没1名中国游客遇难2人受伤男子患病“变形”却不“金刚” 被迫宅埃及法老图坦卡蒙死因新解:或死于“车英国15岁少年欲滑雪闯南极 探险为筹南充首次举办少儿文化艺术节“六一”将糖尿病食谱:芝麻油拌芹菜小米 MIUI 8 这视觉效果,魅族国内成品油价或现“三连涨”原油投资愈5.24晚评;高位临界值 油价多空屏美国与中国开战零胜算?美军有一短板可美元强势库存下降支撑油价,API前沥伊拉克心急火燎率先出击,油价上冲无望俄罗斯油气出口创纪录,中俄关系唇亡齿专业烹饪|提拉米苏的初见倾心绝对真爱!31岁小伙来绍兴寻64岁女《亲爱的翻译官》开播 李允傲饰吴明剧台海局势未来走向何方?金禅解盘:伊朗恢复原油产量,长江油晚叶初阳:5月24现货原油、沥青多重利中国买啥它就买啥,越南攒十年装备竟为明日预测:周三A股必将成为中国股市的明日大盘预测:周三将上演雷霆般一击!“天上粮仓”美如画美联储鹰派6月加息之前,市场将迎震荡中国已掌握维护“三海”核心利益的战略
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘