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

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

)

　　以下内容在Microsoft Visual Basic中6.0以中文版本制作

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

　　步骤1：单击项目--&gt；部件选择Microsoft Internet传输控制（SP6)控制

　　

　　步骤2：显示布局界面

　　在界面中拖动相应的控件

　　

　　步骤3开始编码

　　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：测试

　　输入网址：

　　数据可以在网页上获得