专家坐堂-获取网页或图片链接Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取网页或图片链接  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146083)

--  作者：114039247
--  发布时间：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)
。。。。。。

--  作者：有点蓝
--  发布时间：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