销贴

[此贴子已经被作者于2017-1-15 05:10编辑过]

你说的这个方式我也试过 加载成文字信息 获取对应部分信息 貌似不行！所以再次请教！

是这样的！第一张图是我想获取百度快照的那10个绿色链接 ,第二张图是网页源码百度自转码的链接 其实都是他俩同一个链接只不过在源码里变得不同！ 我的问题是准确抓取那10个百度快照的链接！可是我怎么尝试都不知道怎么去过滤其他和准确的抓取！！！我写的代码也只是获取了百度里面的所有链接！却没有准确抓取想要的那10个链接！求源码过程！！十分感谢！我就是想做一个能每天检测我网站的排名动态！

是这样的！第一张图是我想获取百度快照的那10个绿色链接 ,第二张图是网页源码百度自转码的链接 其实都是他俩同一个链接只不过在源码里变得不同！ 我的问题是准确抓取那10个百度快照的链接！可是我怎么尝试都不知道怎么去过滤其他和准确的抓取！！！我写的代码也只是获取了百度里面的所有链接！却没有准确抓取想要的那10个链接！求源码过程！！十分感谢！我就是想做一个能每天检测我网站的排名动态！！！！

Private Sub Form_Load()
Web1.Navigate "https://www.baidu.com/s?wd=动态混胶机"
End Sub


'求解这段代码怎么貌似失效了似的！

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim n As Long, i As Long
n = Web1.Document.getElementsByTagName("A").Count '页面上总共几个链接
For i = 0 To (n - 1)
 List1.AddItem Web1.Document.getElementsByTagName( "A" )(i).innerText & "---" & Web1.Document.getElementsByTagName("A")(i).href '取它的文字和URL并放入list1列表
Next
End Sub

'求解这段代码怎么貌似失效了似的！

完美过关...昨天我也想到了用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

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