VB中擷取網頁資料

標籤：text   tps   www.   取資料   str   ring   url   protoc   .text   

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

VB可以抓取網頁資料，所用的控制項是Inet控制項。

第一步：單擊工程-->組件 選擇Microsoft Internet Transfer Control(SP6)控制項。

 

第二步：布局介面顯示

在介面裡面拖動相對應的控制項。

 

第三步 編碼開始

Option ExplicitPrivate 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 IfEnd SubPrivate 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 = cconnerror:End SubPrivate Sub Form_Load()  MsgBox "請首先輸入URL，然後點擊查看源碼，最後再點擊擷取資訊！", vbOKOnly, "提示："    End Sub

　　

第四步：測試

在網頁地址輸入：https://www.cnblogs.com/

在網頁資料既可以擷取資料。

 

VB中擷取網頁資料