VB中獲取網頁數據

以下是在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/

在網頁數據既可以獲取數據。