查看完整版本: 如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸？

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

　　有些处理图片的软件，尤其是可以处理桌面图片的软件，会提供您每天自动到 Internet 上的某一个网址，去抓下它的网站所提供，每天更换的图片，来更改桌面的底图，这是一个很炫的功能，而我们用 VB 也可以很容易的做到这样的功能，您相信吗？
这个主題会动用到之前我们提过的几个功能：（都可以在本站中找到）
1: 如何让程式在 Windows 启动時自动执行？
2: 如何从 Internet 上抓回某一个网页的內容？
3: 如何移除或更改桌面背景的底色壁纸 (Wallpaper)？
让我们开始来练习吧！
'请在 .BAS 中加入以下声明：
** 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 =