Foxtable(狐表)用户栏目专家坐堂 → 获取网页或图片链接


  共有188人关注过本帖树形打印复制链接

主题:获取网页或图片链接

帅哥哟,离线,有人找我吗?
114039247
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:99 积分:1585 威望:0 精华:0 注册:2016/5/11 0:19:00
获取网页或图片链接  发帖心情 Post By:2020/2/15 20:15:00 [只看该作者]


此主题相关图片如下:13.jpg
按此在新窗口浏览图片


此主题相关图片如下:12.jpg
按此在新窗口浏览图片



Dim lis As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("div") '获得当前页面的A标签HTML元素集合
Dim count As Integer = 0
For Each li As object In lis
    If li.GetAttribute("ClassName") = "main-content" Then
msgbox("找到类名为 main-content 的类")
output.show(li.Innertext)
。。。。。。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:46622 积分:236552 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/16 20:00:00 [只看该作者]

Dim lis As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("a") 
For Each a As object In lis
output.show(a.GetAttribute("href") )
next

Dim lis As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("img") 
For Each img As object In lis
output.show(img .GetAttribute("src") )
next

 回到顶部