55.htm

VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.

<p> 如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸？ </p>
<p>版本：VB6 / VB5 </p>
<p></p>
<p>有些处理图片的软件，尤其是可以处理桌面图片的软件，会提供您每天自动到 Internet 上的某一个网址，去抓下它的网站所提供，每天更换的图片，来更改桌面的底图，这是一个很炫的功能，而我们用 VB 也可以很容易的做到这样的功能，您相信吗？</p>
<p></p>
<p>这个主題会动用到之前我们提过的几个功能：（都可以在本站中找到）</p>
<p></p>
<p>1: 如何让程式在 Windows 启动時自动执行？ </p>
<p>2: 如何从 Internet 上抓回某一个网页的內容？ </p>
<p>3: 如何移除或更改桌面背景的底色壁纸 (Wallpaper)？ </p>
<p></p>
<p>让我们开始来练习吧！</p>
<p></p>
<p>'请在 .BAS 中加入以下声明：</p>
<p></p>
<p>Private Declare Function SystemParametersInfo Lib "user32" _</p>
<p>Alias "SystemParametersInfoA" _</p>
<p>(ByVal uAction As Long, ByVal uParam As Long, _</p>
<p>ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long</p>
<p></p>
<p>Const SPI_SETDESKWALLPAPER = 20</p>
<p>Const SPIF_UPDATEINIFILE = &H1</p>
<p>Const SPIF_SENDWININICHANGE = &H2</p>
<p>'请在表单中放入一个 TextBox 及一个 Internet Transfer Control</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>Dim Pos As Integer</p>
<p>Dim Pos2 As Integer</p>
<p>Dim Bilden() As Byte</p>
<p>Dim NrString As String</p>
<p></p>
<p>Text1.Text = Inet1.OpenURL("http://www.unitedmedia.com/comics/dilbert/archive/") 'Download the page.</p>
<p>Pos = InStr(1, Text1.Text, "/comics/dilbert/archive/images/dilbert")</p>
<p>Pos2 = InStr(Pos, Text1.Text, ".gif")</p>
<p>NrString = Mid(Text1.Text, Pos, Pos2 - Pos)</p>
<p>Text1.Text = "http://www.unitedmedia.com" + NrString + ".gif" ' Debug filename</p>
<p>Bilden() = Inet1.OpenURL("http://www.unitedmedia.com" + NrString + ".gif", icByteArray) ' Download picture.</p>
<p></p>
<p>Open "C:\dilbert.gif" For Binary Access Write As #1 ' Save the file.</p>
<p>Put #1, , Bilden()</p>
<p>Close #1</p>
<p></p>
<p>Picture1.Picture = LoadPicture("c:\dilbert.gif") 'Reload it To PictureBox</p>
<p>SavePicture Picture1.Picture, "c:\dilbert.bmp" 'Converted To bmp..</p>
<p></p>
<p>Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\dilbert.bmp", _</p>
<p>SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) 'Change the wallpaper.</p>
<p>Unload Me ' Exit program</p>
<p>End Sub</p>
<p>至於其中的网址及图片的名称，请自行更改。若是您开始使用以上的程序代码的話，也可以，您每天都可以看到一个动态的壁纸 !!</p>