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

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
至於其中的网址及图片的名称,请自行更改。若是您开始使用以上的程序代码的話,也可以,您每天都可以看到一个动态的壁纸 !!
让你望而却步的密码管理服务已获得100万美元的种子基金 SDCC 2013开始公开征集讲师和演讲主题 不用图片和JS,照样创建绚丽的动态CSS3菜单 是福还是祸?开发者饱经风雨的内心独白 设计师/开发者看过来,七月35款新工具速递! Hadoop进军机器学习:Cloudera收购Myrrix共创“Big Learning” 张民杰:三人团队的OpenStack机会 White Elephant:开发者必备的Hadoop利器 不及分析师预期:微软第四季财报揭晓 净利49.7亿美元 Facebook收购英国手机代码验证公司Monoidics Apache基金会废弃其C++标准库 鲍尔默宣称微软有一百万台服务器,这个数字真的靠谱吗? 全球6000开发者:iOS、Android、WP最痴情谁? 提升网站知名度的十大方法 IBM移动平台首席架构师Greg Truty:MobileFirst从底层架构开始 Hallo.js:一款所见即所得的Web编辑器 数据分析≠Hadoop+NoSQL,不妨先看完善现有技术的10条捷径 移动周报:百度收购91,19亿美金背后的博弈 植物大战僵尸2:“免费+内付费”模式引发争论 [CTO俱乐部第103期] 高德和四维图新技术高管谈地图导航的发展与挑战 Java 7爆最新漏洞,10年前的攻击手法仍有效 Twitter联合创始人Biz Stone谈Facebook用户体验 提倡零广告 英雄会:企业的人才漏斗 开发者的武林大会 一次错误估算带来的启示 苹果开发者中心被黑:开发者信息或被窃取 SIM卡加密存漏洞 将影响数亿计的手机用户 搜狗茹立云:探索引擎产品落地 浏览器+搜索模式会成主流吗? 大势所趋,IBM Acme Air至少使用Netflix的5个开源工具 【观察】跨越“朦胧期”的云计算:产业、核心技术、生态圈以及突破点 Rovio Account:平台化之路修成正果 甲骨文总裁马克•赫德采访实录:用软硬件集成一体机打垮对手 疑惑:为什么专家分会少?? 谁能给我连接sql2000数据库数据原的原代码===火急!!! 象素转换成毫米问题 为什么每个女孩都问我喜欢长头发呢,还是短头发? 如何用WIN98引导盘恢复系统的引导!!!!!! 怎么安装出来还是没有图标? 如何用WIN98引导盘恢复系统的引导!!!! 一个老问题 ?ACCESS2000的数据库有几行坏了,无法用ACCESS修复/无法删除,一读到该行ACCESS就直接退出,怎么办? 各位,感觉学数学难不难? 壹?ACCESS2000的数据库有几行坏了,无法用ACCESS修复/无法删除,一读到该行ACCESS就直接退出,怎么办? 号外:今天终于卖了侯捷的Inside The C++ Object Model ,休息时可以翻番,为了祝贺特灌水100 谁能给我连 接sql2000数据库数据原的原代码===火急!!! 高手帮忙,如何让我能用jbuilder5? 请问用Perl编写用户交互程序 请问各位大哥,上海的高程考试在哪里报名啊? dcom 服务器关闭时怎能捕捉异常 三戒,有请~~~ 谁知道websphere的试用版怎么做掉? 打印DataReport时怎样用API改变系统的纸型,急急急急急急急急急!!!! 新来的~~来报到了~~只能送20分~~希望大家不嫌弃~~ 请成功使用JBuilder5的朋友指教!! 激情放送 五位QQ号,100块,你会要吗? 555~~~~挂了PASCAL挂了,5555~~~~我学不好DELPHI 了5555谁帮我呀!!! 有编过游戏修改器的高手吗? jinesc领分~~~ 如何使UpDown每次增加或减少0.5? 有个问题很困惑,请教 上傳后,服務器端如何接收? 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!! 我快神经了,求救 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!!! 别笑我傻,又有简单问题 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!! 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!!!!!!! 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!!!! 大家都谈谈建立什么样的目录结构能更好的管理硬盘里的东东 lilo 如何设置??请赐教!! 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!!!!!!1 mts是什么? mts是什么?? 学习汇编要什么基础,要看什么样的书,有没有好的汇编的电子参考书下载呢? 腾讯的qq怎么不好用了? 有CCNA,Scjp2,高程的计算机本科生能卖多少?(答者有分,只能给33分,没办法) word的表格问题 如果开另外一个线程来进行注册码检验,是否比较难CRACK? 请问高程考试考试的难度 怎么让程序启动的时候接受参数? mts是什么??? 我也调查:这里有多少冠名以“独孤”的,为何独孤???? 英文翻译:《功夫精深》最新专访甄子丹(03年5月20日)【一】A Yen For Success Interview conducted by Mike LeederObviously, Horace Greeley didn’t know everything. Donnie Yen, son of the famous Bow Sim-Mark, went East to get out 我们明天将动身去杭州 用英语怎么说? 他们打算在那呆几天用英语怎么说 今天是几号?是五月五日.英语翻译.(快加5分) 帮我用英语翻译这句话" 减轻父母的负担" (我的女孩)求翻译英语, 他出生在1998年 英语翻译 英语翻译A jet lagged dreamer just back from a trying family get-together where,between forkful of lasagna and lapful of coffee cake crumbs “虽然我做不了第一个” 用英语咋说有好评 用英语翻译“你更愿意让谁来实施这个计划” 请帮忙用英语翻译一下“一个孩子对自己爸爸的认识”这句话 求翻译~第一个必好评!七年级英语! 制定工作计划(英文翻译) 用英语翻译:我和我的爸爸妈妈在周末去看动物 你在那里,请问英语怎么读. 英语翻译:制定一个计划 (四个单词的词组) 英语翻译 爸爸妈妈去哪了 你在那里干什么用英文怎么说 需要我们接机以及预订酒店吗 英语翻译 王叔叔用英语怎么说 你在那里用英语怎么讲 英语翻译哪位高手能帮我翻译一些下面的句子呢?(中译英) 采纳的话会重赏的哦(100),--------------------------------------------------------------------先生,不好意思!房号是要客人在办理入住时前台的同 王磊明天要动身去美国用英语怎么说? 问:你在那里读书?英语怎么说 请告诉我们您到上海的具体日期,是否需要我公司帮您预订酒店. 我叔叔不再住那儿了.用英语怎么说 帽子的英语怎么读, 你是什么时候到达上海的?英语翻译. 我叔叔住在北京 用英语怎么说 学霸用英文怎么读,学渣呢? “你知道我一直都在关注你吗?”用英语翻译 我叔叔自从那时以来就居住在镇南用英语怎么说? 昆虫英语怎么读?给好评 求“我一直都在”英文翻译,情侣之间说的 叔叔英语怎么说? 生物用英语怎么读, 改革开放30年优秀作品集的英文翻译怎么说呢~ 你需要我的时候我一直都在你的身边 这一句的英文翻译 你在上海住了几年英语怎么说啊 英语翻译This house has been built in 1996. 替我英文翻译一下.我一直都在等你给我的回答,可是你从没回答我. 和上海的朋友约好去北京用旅游英语怎么说 她朋友非常生气 英语翻译!急 我一直都在,但是你从不知道”用英语怎么说? 五年前你在北京还是上海 我在上海 用英语怎么说 我想做一个八岁的小孩子,英文翻译! 英语翻译对餐具进行分类是为了便于清洗,也可以避免餐具之间的相互污染.先清洗油污比较少的,再清洗油污重的餐具,这样可以使清洗发挥到最好效果. 上海到北京有直达飞机吗?英语怎么说? 这孩子不应该起床.英文翻译 谷歌英语翻译 我离开北京去上海用英语怎么说? 英语翻译:五月将要来临 英语翻译此时此刻,只有音乐是能帮我解决疲劳. 你到中国来已经多久了?英语怎么说你第一次什么时候来中国的? 今天是5月12日,英语翻译:( )may the( ) ( ) 英语翻译The first version of the PageRank technology was created while Larry and Sergey attended Stanford University,which owns a patent to PageRank.The PageRank patent expires in 2017.We hold a perpetual license to this patent.In October 2003,we 你来中国多少年了 用英语怎么说 英语翻译:7月19日 5月20日 写完整 我的爸爸已经去了北京他已经离开一周了用英语怎么说 你打算在大连呆多久.用英语怎么说还有:你来大连多久了?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn