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

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
至於其中的网址及图片的名称,请自行更改。若是您开始使用以上的程序代码的話,也可以,您每天都可以看到一个动态的壁纸 !!
谈谈在VB6.0中如何使用资源文件进行编程 动画图像分解在VB动画设计中的应用 多重文档界面设计方法-VB资料 恢复回收站中的文件 -VB资料 VB获得位图文件的信息 VB获得文本框中光标所在行的内容 VB获取程序工作路径的方法 VB获取文件或文件夹属性 基于VB的通用折行打印程序 基于VB和EXCEL的报表设计及打印 VB建立多级目录 -VB资料 VB建立快捷方式-VB资料 VB建立文件关联 -VB资料 将RichTextBox 之中被选取的内容复制到剪贴簿-VB资料 将我的程序的文本直接送到WORD中(不用粘贴)-VB资料 开启文件属性窗口 -VB资料 快速读取 TextBox 第 N 行的资料 -VB资料 快速选择里List全部项目-VB资料 VB利用 App.Path 读取「应用程序所在之目录」 VB利用 EM_LINESCROLL 信息控制 TextBox 的卷动。 命名的技巧 -VB资料 目录所占的字节数-VB资料 VB判断文件是否在IE的缓存中 屏蔽文本框的右键菜单-VB资料 VB取得长文件名 VB取得临时文件名 VB取得某个目录底下所有文件大小总和 VB取得文件的扩展名 VB取得文件内容 确定 TextBox 有几行-VB资料 确定是 WINDOWS 的可执行文件-VB资料 关于中文显示的问题 !!!!!! 如何用SQLBulkoprations向表中加入数据,此时应如何设置游标??加急,在线等!! 急:treeview显示成一行文本 最简单的方法是?(问题简单,过来看看) 本人想考个SCJP认证,大家觉得如何???用处大吗??在找工作的过程中? 请教:对话框上的滚动条怎么使用?我设置了,然后将窗体大小缩小(于是对话框有一部分看不见了),可是单击滚动条,不起作用,怎么办?急, 问一个数据库公式的问题! 一个IP发布两个网站的问题(在线等待) 怎样改变资源文件里字体的颜色???菜单里的字体颜色我不会改?有专家指点吗? Python 网络教室采用多播好还是广播好? 下载的问题! 如何新建一个文件夹? 将html文件存放在备注字段中,然后再输出可以吗? 如何控制一个文本框的内容随另一个文本框的内容变化而同步变化? 一个关于窗口的小问题!!!小弟初学DELPHI请多多指教!! 求助 excel导入数据时出错.高手进 请问role是干嘛的? 自动生成图片 datawind如何与window联系起来啊 存储过程同时调用和数据库异地备份问题? 在xsl中如何调用javascript 误删系统盘,救命!!! 请问ACCP和高程考试相比哪个更有份量? 求LeapFTP V2.7.3.600的注册码 5月6日我来CSDN的二周年,散分,纪念。。。。 listbox (湖南)今年非典搞得这样,会耽误报高程吗?今年有人报了吗?怎样报的? ComboBoxEx在 SetImageList 时出错 在DBComboBox中脸上数据库后,为什么进行选择时会出现“违反了Primary 约束“ 关于传递多值的问题 如何从recordset得到数据库的行号 用<%@ include file="xxx.jsp"%>出现的怪问题!求教 有关server.mappath()的问题 J2EE基础问题两三问,追加200分。 问题很简单,但我很急,请帮忙各位。 可用的UDDI 急救!自动隐藏Panel 帮忙 哪里有数据库系统开发的文档下载 急待解决的问题 请问从socket发信息,连续发送几个小数据包出错的情况!! 紧急问题,在线等待! 救命——存取违例 请问在VB中使用DAO控件怎样打开ACCESS数据库? 请问装vc6的sp5主要有什么作用啊 双网卡的局域网,如何让 CSocket 使用指定的网卡与另一电脑通讯? SQL删除不了相同的记录 JBuilder7中的中文问题 谁知道计算机的本地时间与系统时间有什么区别? 人民币升值,钱却为何越来越不值钱埃及审判穆尔西或将引发新的流血冲突俄罗斯:严防“黑寡妇”袭击 确保冬奥俄称斯诺登可去德国协助调查窃听事件泰国沉船事故致一中国人遇难 渡轮超载苏格兰首席部长访华 推动双方经贸合作苏格兰首席部长访华 推动双方经贸合作缅甸穆斯林赴邻国避难遇海难 或死伤惨中国海外移民生存录:从\"卖猪仔\"美澳联手监听亚太 “特等舱”行动曝光印度女婴家传怪病 身体多毛酷似狼孩【深秋也会得热射病 永康男子差点没了命男子驾车时低头捡手机 一抬头开偏车道宁海男子欠前女友20万元不还 法官上曼德拉生平电影首映 前妻称反映其“苦英一医院误诊流产百例泰国沉船事故致一中国人遇难 渡轮超载武林CBD将启动推进11大项目 新增孙杨无驾照开豪车出车祸 致歉称将加强哪些中学的毕业生在清华成长性好 浙江宁波启动建设免费无线宽带 计划老三区中兴威武3凭啥成为有史以来最好的千元这些是2015年最新的汉字,你认识几我眼中的醉美咸宁之:通山大城山新年福利|ChinaMKT平台职位内诺基亚推360°摄影相机 进军虚拟现马骏:对PM2.5的经济学思考请让生活慢一点【duang!抄底石油必看!】凯丰找7月30日最新公告利好解读 20股或50周年前瞻:今晚巴菲特股东信6大看索尼Morpheus国内亮相 将向中中国农业进入末法时代证监会掀官员主动离职潮 肖钢反思关注《穹顶之下》——只是柴静与雾霾的私人假如阿里巴巴真的超越了沃尔玛…Duang!央行降息0.25百分点 我眼中的醉美咸宁之:斧头湖你若学会了这些,便是晴天!早盘:多头必须拿下的关键点位,今日将七幅图理清PTA、PE和PP的流程图死磕低价市场 魅族推双4G魅蓝2手机
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘