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

VB如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸

HTML文档下载 WORD文档下载 PDF文档下载
VB如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸
版本:VB6 / VB5

有些处理图片的软件,尤其是可以处理桌面图片的软件,会提供您每天自动到 Internet 上的某一个网址,去抓下它的网站所提供,每天更换的图片,来更改桌面的底图,这是一个很炫的功能,而我们用 VB 也可以很容易的做到这样的功能,您相信吗?

这个主題会动用到之前我们提过的几个功能:(都可以在本站中找到)

1: 如何让程式在 Windows 启动時自动执行?
2: 如何从 Internet 上抓回某一个网页的內容?
3: 如何移除或更改桌面背景的底色壁纸 (Wallpaper)?

让我们开始来练习吧!

'请在 .BAS 中加入以下声明:

Private 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

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2
'请在表单中放入一个 TextBox 及一个 Internet Transfer Control

Private Sub Form_Load()
Dim Pos As Integer
Dim Pos2 As Integer
Dim Bilden() As Byte
Dim NrString As String

Text1.Text = Inet1.OpenURL("http://www.unitedmedia.com/comics/dilbert/archive/") 'Download the page.
Pos = InStr(1, Text1.Text, "/comics/dilbert/archive/images/dilbert")
Pos2 = InStr(Pos, Text1.Text, ".gif")
NrString = Mid(Text1.Text, Pos, Pos2 - Pos)
Text1.Text = "http://www.unitedmedia.com" + NrString + ".gif" ' Debug filename
Bilden() = Inet1.OpenURL("http://www.unitedmedia.com" + NrString + ".gif", icByteArray) ' Download picture.

Open "C:\dilbert.gif" For Binary Access Write As #1 ' Save the file.
Put #1, , Bilden()
Close #1

Picture1.Picture = LoadPicture("c:\dilbert.gif") 'Reload it To PictureBox
SavePicture Picture1.Picture, "c:\dilbert.bmp" 'Converted To bmp..

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\dilbert.bmp", _
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) 'Change the wallpaper.
Unload Me ' Exit program
End Sub
至於其中的网址及图片的名称,请自行更改。若是您开始使用以上的程序代码的話,也可以,您每天都可以看到一个动态的壁纸 !!
VB取得短文件名 VB取得和设置计算机名 VB取得和设置系统颜色 VB取得计算机名 VB取得目前所有的输入法 VB取得应用所在的目录 趣味撞球——VB应用程序一例 缺省值和可选参数 -VB资料 确定当前 WIN95 的启动状态-VB资料 让TextBox的输入具备overwrite(覆盖)的功能 -VB资料 让密码轻松显示 -VB资料 让文本框输入完后,直接跳入下一行 -VB资料 VB如何编制带有不定个数参数的过程。 VB如何充分扩充VB功能 VB如何传递不固定个数的叁数? VB如何打开和关闭光驱门 VB如何导出收藏夹到文件或者导入文件到收藏夹 VB如何得到磁盘上剩余空间的值 VB如何得到应用程序的资料! VB如何调用chm格式的帮助文件 VB如何调用控制面版中的应用程序 VB如何动态更新数据报表 VB如何改变 NT 预设的打印机? VB如何改变 Windows 预设的打印机 VB如何关闭其他程序 VB如何过滤键盘录入 VB如何获得Windows95已经运行的时间 VB如何检测左右键同时按下? VB如何检查您的电脑是否打开 ActiveDesktop? VB如何将程序建立成“启动”文件夹的捷径? VB如何将程序建立成「启动」资料夹的捷径。 CTypedPtrList模板对象中,如何删除指定位置的元素??十分着急! ms sql server 的技术问题 怎样清除事务日志????????? 在那里改个人在cdsn.net注册信息(如名字,地秩)? 关闭窗口的事件如何触发?( 高手们请问deiphi如何实玩宏代换???????????十分火急!!!!!!! 请帮忙!!SOS!!! 请问如何实现宏代换????????????? 关于打印的一个不错的设想 我是新手,初次接触网络管理,请问要管理局域网需要具备哪些方面的知识,需要安装那些应用软件?有什么好书可以介绍吗?谢谢各位! 在VB中设计控件,其上放有uText1、Text2,当uText1失去焦点时,并不触发Validate事件 如何在程序中判断是否做了超级连接? 怎样使listview中的大图标左右居中,上下居中。 怎么样处理聊天室的退出问题? 比较大的问题,请做过JAVA系统集成方案的朋友指点!!! applet,这个霸道的家伙!怎么解决阿? c++类的一个小问题 一个大家都很棘手的问题 关天构造函数的问题 学习《windows程序设计》中的问题? pb8里的autoscript怎么弹出那么慢 消息:c++与Visaul c是不是有一定的区别呢? 怎样通过程序获得当前可用的拨号网络列表?? 高手在哪里?-------> 如何在第一时间里获得屏幕的变化呢?及获得屏幕变化的那部分?各位大师,帮帮我。谢了。 请问想具备基本的网络和数据库管理方面的知识,看什么书好啊?请大家帮忙推荐一下,谢谢! 请教W2k下使用Access的问题 大家帮帮忙,sql菜鸟问题, 各位兄弟帮忙看一下 谁知道高程分数线?拜托告知一声! 如何判断是否做了超级连接? vc中怎样调用dos下的代参数的可执行文件???请教! 如何让TreeView控件的每一个子节点前有一个多选框! jbuilder4中的JGL的问题 如何构建一个数据仓库(高分求救) 怎么样在NT里看到我的电脑装了哪些硬件? 查找数据不连系变化 招聘WINDOWS界面程序员(可兼职) 哪里有介绍cricheditview的中文文章,最好是详细一点的,谢谢! 怎么样将NT里的Temp这个文件移到别的分区? 刚买的机器回来却出了问题(请教高手) 小问题70分,谁解决了就送给谁 Server对象中,由两个方法跳转到其它网页,一个是 Execut() 另一个是什么?? 输入日期有误时,系统出现提示信息?如何避免这一现象,并且出现自己的提示信息呢? 怎样才能既不允许改变combox的值,又能给它的text属性赋值。也就是怎么指定它显示哪一项? 如何使用windows media 软件 WebBrowser控件的更多帮助信息到哪里找? VC中有关CListView的问题,请各位大侠指点 哪位老师知道.gra(据说是FOXPRO下使用的图表文件)如何打开?谢谢! DirectShow----WM_GRAPHNOTIFY怪问题!!! 到哪里可以找到DAO的最新的引擎? 拨号网络的原理是什么?请各位大哥赐教 有关于SQl_DMO. 求铜与硝酸银溶液的反应的化学方程式 方程式+离子方程式 初中化学物理知识要点来一份? 铜与硝酸银反映 化学方程式 高一所有化学方程式及其对应的离子方程式! 初中化学物理数学知识重点最好答案 铜与硝酸银反应 )右图中的物质都是初中化学中常见物质,其中A是一种 难溶的含钙化合物,B、C、D为氧化物,B、D元素组成相同,且B 常温下呈液态,固态C可用于人工降雨,E为可供动植物呼吸的气体 单质,F为实验 高一所有的化学方程式和它们各自的离子方程式!偶晓得这个比较麻烦,但是真的很重要滴,希望大家尽量帮助偶呀!一个方程式一个离子方程式```真的真的非常感谢! 硝酸银和铁还有和铜的反应的化学方程式 A,B,D,E,F都是初中化学中常见的化合物.其中A,D,是盐.E是酸.它们互相间在溶液中可发生如下反应:1.C+E=A+2F 2.2B+E=D+2F 3.A+2B=C+D,根据上述信息回答问题:1.写出下列物质的化学式F__,E__.2.写出下列 高一化学必修1化学方程式(铝和铁的化合物)1.向氯化铝溶液加入过量氢氧化钠溶液:__________离子方程式:__________2.向偏铝酸钠溶液中加入少量稀盐酸:__________离子方程式:__________3.向偏 用海水晒盐或用__,__煮盐,都是为了使__蒸发,使食盐溶液达到__,继续蒸发. 苯乙烯和高锰酸钾反应的化学方程式如题大虾相助阿-----在线等. [高中化学]请问NO能用浓硫酸干燥吗?无聊者请自重. 海水晒盐为什么要分结晶池和蒸发池 乙烯和高锰酸钾反应化学方程式. 干燥乙烯别用浓硫酸因为浓硫酸具有强氧化性,用浓硫酸干燥的话乙烯会被氧化成二氧化碳,所以乙烯不能用浓硫酸干燥.乙稀和浓硫酸作用,加成反应,CH2=CH2+H2SO4=CH3-CH2OSO2OH.所以不能用浓硫酸干 铁和硝酸银反应化学方程式 乙烯.高锰酸钾.稀硫酸三者反应的化学方程式 甲烷和乙烯的混合气体,将产物通过浓硫酸增重1.8克,再通过过量碱石灰增重3.08克求甲烷与乙烯比 铝与硝酸银反应的现象和化学方程式分别是什么 乙烯与高锰酸钾反应的方程式书上写的只有乙烯在酸性环境下与高锰酸钾的反应方程式.那在一般环境、碱性环境又分别是怎么样?方程式麻烦写详细一点.先谢谢了>>d(‧-‧)b 高一必修一化学所有方程和解题惯用方法 铝丝浸入硝酸银溶液化学方程式 乙烯与高锰酸钾反应生成什么,最好有方程式 求高1化学必修一所有方程式如题,求所有必修1化学方程式+离子方程式,要WORD文档的,格式要对,有的加我 海水晒成盐要多久? 乙烯 和 酸性高锰酸钾 反应方程 C2H4+KMnO4+H2SO4----CO2+H20+KSO4+MnSO4没心机配 好累 今天 睡了 和Na反应的所有化学式 盐酸与硝酸银反应的化学方程式 总结人教版化学必修一所有方程式 氯气漂白粉方程式? 盐酸能与硝酸银反应化学方程式()现象() 谁能帮我总结化学人教版必修一所有化学方程式!要求:离子反应要写出化学反应方程式和离子方程式氧化还原反应要写出氧化剂和还原剂只要必修一的, 高一化学中有关氯气和金属钠的反应方程式和反应现象 盐酸 与 碳酸钠 和 硝酸银 反应 的化学方程式向碳酸钠溶液中加入过量待测液,有气泡生成,说明待测液具有酸性,然后加入硝酸银,若有白色不溶沉淀生成,就便是盐酸了 这是检验盐酸的方法,我 酸性高锰酸钾会不会与乙烯反应,以及化学方程式 急需山东出版社出版的高一化学1(必修)对钠Na 氯气Cl2 物质的量n 的总结写出它们的物理性质和化学性质 分类 用途 还有和其他物态或碱和酸 与金属和非金属的反应 最好多写点 如果好的话 硝酸银与盐酸的反应方程式. 高一化学必修一人教版必背方程式及现象 将氯气通入烧碱溶液中,反应的化学方程式是? 要详细点的,最好有讲解,谢啦.. 乙烯能与浓硫酸反应吗 NAOH的浓溶液通入氯气的化学方程式 铜和浓硫酸的反应化学方程式 请写一下浓硫酸与乙烯反应的化学方程式 就是初中化学知识总结,自己的弄丢了,不仅是光化学反应,还有那个溶液,物体的颜色也总结一下谢谢 硒化亚铜与浓硫酸反应的化学方程式被氧化的元素是?有关硒的还有什么方程式?错了!Cu2Se+6H2So4浓》=焙烧=SeO2+2CuSO4+SO2气体+6H2O 关于高中化学氯的所有化学方程式有现象要现象.最好有离子式. 最好是表 利用浓硫酸制取乙烯的化学方程式利用浓硫酸制取乙烯的反映化学方程式 铜和浓硫酸反应的化学方程式是怎么配平的?我认为铜从零价变成正二价升了两价 硫从正六价变成了正四价 降了两价 所以两个反应物的物质的量应该是相同的呀 可为什么不是呢? 浓硫酸和木炭的化学反应方程式 乙醇和溴化氢发生取代反应的化学方程式详细一些啊,最好有讲解 高一化学方程式及离子方程式 硫与浓硫酸化学反应方程式 铜和硝酸银反应的化学方程式 几个高一的化学方程式(只要离子方程式)少量碳酸氢钠与足量的氢氧化钙足量碳酸氢钠与少量的氢氧化钙少量碳酸氢铜与足量的氢氧化钠足量碳酸氢铜与少量的氢氧化钠 乙醇与浓硫酸化学反应方程式
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn