完美过关...昨天我也想到了用if来判断"百度快照"进行过滤
可是我过滤的效果比较差我是直接采取百度快照的直接链接
您这个已经完全达到了我想要的结果！
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
List1.Clear
List2.Clear
Dim Document, i, s1, s2
For i = 0 To WebBrowser1.Document.links.length - 1
s1 = WebBrowser1.Document.links(i).href
s2 = WebBrowser1.Document.links(i).innertext
    If InStr(1, s2, "百度快照") > 0 Then
    If s2 = "" Then
    Else
    List2.AddItem s1
    End If
    Else
    End If
List1.AddItem s2 & " : " & s1
Next
End Sub

值得学习,,,,谢谢了！