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

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
至於其中的网址及图片的名称,请自行更改。若是您开始使用以上的程序代码的話,也可以,您每天都可以看到一个动态的壁纸 !!
Android自绘GridView控件 Android平板开发注意事项 Android控件TextProgressBar进度条上显文字 Android内存管理-SoftReference的使用 反射在Android开发中的利弊 intent调用代码总结二 Android缩略图类源代码 Android多人项目开发指导 AsyncTask对比Thread加Handler Android Drawable叠加处理方法 android.os.Debug调试工具使用方法 Android多点触控开发原理 inent调用代码总结,不断完善中 onRetainNonConfigurationInstance和getLastNonConfigurationInstance Android中String资源文件的format方法 Android工程内嵌资源文件的两种方法 Android AIDL全攻略三 - AIDL框架 Android AIDL全攻略二 - Service绑定 自定义Android主题风格theme.xml方法 Android开发之模拟按下Home键的效果 Android AIDL全攻略一 Android Picture和PictureDrawable的用处 Android自定义View以及layout属性全攻略 Android通过Intent发送电子邮件含附件 Android调试技巧之Eclipse行号和Logcat Android Txt文本读写类源代码 Android游戏开发之旅20 双按事件捕获 Android游戏开发之旅19 分辨率大全 保护你的Android付费软件-LVL全攻略(二) 保护你的Android付费软件-LVL全攻略 android调试工具monkey压力测试实战 字段长度int(2) 这个2到底是什么意思? 那里有Microsoft DirectX SDK FOR DELPHI的下载 学生管理系统登录问题(ADO数据库的问题) *.dat文件用什么软件打开!! 哪有jsp写的论坛源程序 大家给个思路了!!! 如何传递两个参数!在线等! 小弟在开发一个软件时踫到了许多问题,想请各位大侠帮助!! 请问:如何从VARIANT类型的数组中取数据? TOMCAT+SQLSERVER连接池配置问题~高分请教 这个问题让我有点晕!——安装与部署项目! 空调有坏了!!!! 安装论坛过程中遇到的问题!!!!!! 关于使用TC35Modem发送短信的问题,用超级终端可以,用N多个程序连接端口都不行。 "native code outside the VM"是什么错误呀 win2000 VPN方式的网络的实现。 datagrid控件的数据绑定问题. 请高手教我如何搭redflag linux下JAVA开发环境,急,另给分 如何删除一个字符串的前10个字符? 资料档案库是用来干嘛的? 用EJB做后台的参数传递。高分请教! 在ASP中对数据库操作是否可以用事务提交啊? TOMCAT+SQLSERVER连接池配置问题~~高分请教~ 请教!!!如何在IntraWeb控制IE? 如何远程对局域网内的某一台计算机(假设其计算机名为comm1)实施关机操作? 为什么连不上CVS服务器? 如何用ASP读取XML中节点的属性值? 如何使用jspsmartupload 一个简单问题请进来look一下 我所知道的论坛常用语,自己以为算得上的可以往上加啊! 如何自画窗体或者PANEL,让小图象在上面排列,然后再根据顺序,一次改变小图象呢? asp.net 上传图片问题? xml中怎么取得这个值呀? 请大家给介绍一本学VC++.NET的书!谢谢 有谁用过solpartwebcontrols.dll控件来建立菜单的,请进! pcanywhere联机方式 高手请进,关于MFC的消息映射。 问一个可能是低级的问题:嵌在网页中的Windows Control能不能打印 请教:我用一个COMBOBOX作为存放表字段名,如何SELECT搜索满足条件 “三个代表”具体是指什么,希望各位JJGGMM帮忙解释一下了,谢谢!(90度鞠躬!!!!~~) 如何将装入到graphi字段的图片压缩?? 看过windows程序设计的朋友请进来 asp调用存储过程问题请教!!!!急!!!! IIS不能使用了该怎么解决? 请教C#问题(1)?? Oracle Intermedia Text支不支持中文的模糊查询 我是ORACLE菜鸟,现有一SQL语句(SQL Server语法),想转换成ORACLE语法,请指点 数据库连接问题??????????? 大虾,请看这里看看? 数控折弯机.往上有压力.往下没有.而且踩下根本就不动了. DA65 数控折弯机下降没压力,也不能上升什么情况 冬季几种钓饵的装钩方法 炸弹钩上的饵料状态关于炸弹钩的饵料,很多人都说需要饵料如水后5分钟左右能散开,但我看到有人直接把玉米面加水蒸熟后使用,5个小时也不一定能散开啊,他还收获了一5斤左右的大鲤.请问 饵料几种配料的使用 这条宽阔的马路怎么样 ABCDEF分别是什么物质? ABCDEF分别是什么? ()²+2分之3xy+y²=( )² (-4/3xy)(-3xy)² 个十百千万亿兆…下面是什么单位?从亿以上的单位进位是怎么样的? 北京今日将对“停车超3分钟须熄火”入慈溪夫妇8万元叫女儿代存 女儿身亡后18岁小姨子和姐夫好上了 以死要挟非慈溪两岁女童掉进大锅 全身严重烫伤送男子宁波路上擦肩而过时摸女孩胸 被行宁波出台国内首个网购争议处理办法非洲牛郎门谣言案落定 涉事网站被判侵俄印蒙三国总理同日访华非偶然 政治意同济大学开启中美共建全科医学系计划南京大学两位院士候选人就论文是否造假无业男子为供养情妇和私生子 诈骗父母岛内卡债族陈情盼降低利息 \"立委\杭州“房叔”受审候鸟扎堆来,房租嗷嗷涨我省通报十起违反八项规定典型问题已开政务微博近千趁人熟睡偷“苹果”先天性心脏病儿童可获救助今后到新坡可看夜行动物初二女生遭同学殴打离家出走网购成瘾还需心治贪腐1.7亿判无期
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘