| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1908 人关注过本帖
标题:已结贴
取消只看楼主 加入收藏
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
结帖率:90%
收藏
已结贴  问题点数:20 回复次数:5 
已结贴
销贴

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

2015-08-15 09:20
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分:0 
回复 2楼 风吹过b
你说的这个方式我也试过 加载成文字信息 获取对应部分信息 貌似不行!所以再次请教!
2015-08-15 13:27
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分:0 
回复 4楼 wmf2014
是这样的!第一张图是我想获取百度快照的那10个绿色链接 ,第二张图是网页源码百度自转码的链接 其实都是他俩同一个链接只不过在源码里变得不同! 我的问题是准确抓取那10个百度快照的链接!可是我怎么尝试都不知道怎么去过滤其他和准确的抓取!!!我写的代码也只是获取了百度里面的所有链接!却没有准确抓取想要的那10个链接!求源码过程!!十分感谢!我就是想做一个能每天检测我网站的排名动态!
2015-08-17 00:09
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分:0 
回复 5楼 风吹过b
是这样的!第一张图是我想获取百度快照的那10个绿色链接 ,第二张图是网页源码百度自转码的链接 其实都是他俩同一个链接只不过在源码里变得不同! 我的问题是准确抓取那10个百度快照的链接!可是我怎么尝试都不知道怎么去过滤其他和准确的抓取!!!我写的代码也只是获取了百度里面的所有链接!却没有准确抓取想要的那10个链接!求源码过程!!十分感谢!我就是想做一个能每天检测我网站的排名动态!!!!
2015-08-17 00:12
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分:0 
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

'求解这段代码怎么貌似失效了似的!
2015-08-17 01:03
a251357
Rank: 2
等 级:论坛游民
帖 子:42
专家分:14
注 册:2014-4-24
收藏
得分:0 
回复 10楼 风吹过b
完美过关...昨天我也想到了用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

值得学习,,,,谢谢了!
2015-08-17 13:38
快速回复:已结贴
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029447 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved