如何每天抓取 Internet 上某一个网页中的图片来更

页面导航:首页 > 软件编程 > vb.net > 如何每天抓取 Internet 上某一个网页中的图片来更

如何每天抓取 Internet 上某一个网页中的图片来更

来源: 作者: 时间:2016-02-05 12:32 【

有些处理图片的软件,尤其是可以处理桌面图片的软件,会提供您每天自动到 Internet 上的某一个网址,去抓下它的网站所提供,每天更换的图片,来更改桌面的底图,这是一个很炫的功

 

 

有些处理图片的软件,尤其是可以处理桌面图片的软件,会提供您每天自动到 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

至於其中的网址及图片的名称,请自行更改。若是您开始使用以上的程序代码的話,也可以,您每天都可以看到一个动态的壁纸 !!

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<