当前位置: 源码素材网 » VB教程 » 详情页

VB6.0读取HTML网页内的全部链接

  •   时间:2018-12-31
  • 概述:获取超链接

VB过滤出HTML网页中的超链接,可设定网址直接读取该URL页的所有链接,也可以指定本地一个HTM文件,代码将智能判断IMG标签和href链接,读取完毕将在最后列出所有链接,以下是核心代码:

Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Const LB_SETHORIZONTALEXTENT = &H194
Private Sub Form_Load()
  Text1.Text = App.Path & "\test.htm"   '设置默认网址,也可以像这里直接读取本地的HTML文件
  WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub Command1_Click()
  Dim TagName, str As String
  Dim count, i, k As Integer
  Dim cols
  List1.Clear
  Set cols = WebBrowser1.Document.All
  count = cols.length
  k = 0
  While i < count
    TagName = cols.Item(i).TagName
    If TagName = "A" Or TagName = "IMG" Then  '查找超链接和img图形
        str = k & "  " & TagName & "... " & cols.Item(i).href
        List1.AddItem (str)       '增加超链接
        SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, Me.TextWidth(str), ByVal 0&  '为list加水平滚动条
        k = k + 1
    End If
    i = i + 1
  Wend
  Label1.Caption = "本网页共有超级连接:" & k & "  个"
End Sub
Private Sub Command2_Click()
  End
End Sub

其它按钮自己加吧,就是放一个输入框和按钮,添加如上代码中的点击过程。

    相关声明:

      若“VB6.0读取HTML网页内的全部链接”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。