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
要自动读取猫扑的帖子连接 http://dzh.
有翻页的 自动翻页 可以指定读取几页··求大神大帮忙···谢谢各位大神了.....

貌似我是论坛元老了```07年至今5年了```记得那时候写个喊话 的小玩意

结了吧  已经解决``

使用正则表达式来读出你要的内容后，再把指定的联接打开。

还有，元老？
我都不敢自称呢

无地自容了··