vb抓取网页内容(MicrosoftVisualBasic6.0中文版下做的VB可以抓取网页数据 )

　　vb抓取网页内容(MicrosoftVisualBasic6.0中文版下做的VB可以抓取网页数据

)

　　以下是在微软Visual Basic中文版下做的6.0

　　VB可以抓取网页数据，使用的控件是Inet控件。

　　步骤1：点击Project-->Components，选择Microsoft Internet Transfer Control(SP6)Control.

　　第二步：布局界面展示

　　在界面中拖动对应的控件。

　　第三步开始编码

　　Option Explicit

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "请输入要查看源代码的URL！", vbOKOnly, "错误！"

Else

MsgBox "网站服务器较慢或页面内容较多时，请等待！", vbOKOnly, "提示："

Inet1.Protocol = icHTTP

' MsgBox (Inet1.OpenURL(Text1.Text))

Text2.Text = Inet1.OpenURL(Text1.Text)

End If

End Sub

Private Sub Command2_Click()

On Error GoTo connerror

Dim a, b, c As String

a = Text2.Text

b = Split(a, "")(1)

b = Split(b, "")(0)

Text3.Text = b

c = Split(a, Label4.Caption)(1)

c = Split(c, "/>")(0)

Text4.Text = c

connerror:

End Sub

Private Sub Form_Load()

MsgBox "请首先输入URL，然后点击查看源码，最后再点击获取信息！", vbOKOnly, "提示："

End Sub

　　第 4 步：测试

　　输入网址：

　　数据可以从网络数据中获取。