VB中获取网页数据

Posted 2020-10-03 李奎

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

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

第一步：单击工程-->部件 选择Microsoft Internet Transfer Control(SP6)控件。

 

第二步：布局界面显示

在界面里面拖动相对应的控件。

 

第三步 编码开始

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, "<title>")(1)
    b = Split(b, "</title>")(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

　　

第四步：测试

在网页地址输入：https://www.cnblogs.com/

在网页数据既可以获取数据。