lixiaomingr

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/

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

 

posted on 2017-08-18 09:55  李奎  阅读(3480)  评论(0编辑  收藏  举报
 

分类:

技术点:

相关文章: