求大神帮忙，读取内指定格式的链接··

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.
有翻页的 自动翻页 可以指定读取几页··求大神大帮忙···谢谢各位大神了.....