如何批量提取网站所有的URL链接

额。。提取全部网址链接的话，

试试这个吧

批量提取链接的工具：ht-tps://godtoolgitlabio/zh-cn/link-finder/f=d5

网址前面是错的，自己改一下吧

用法：复制网页内容，粘贴到这个工具中，链接就全部一次性批量提取出来了

是不是很方便？

VB读取链接，可以用webbrowser载入，然后用类似javascript的方法获取网页中的元素及其属性。

也可用inet或xml>

你需要一个叫vDoc的WebBrowser,两个LIST控件：LIST1和LIST2，两个LABEL控件:LABEL1和LABEL2,一个TEXTBOX控件。两个COMMAND控件。

代码如下，我调试过了。

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

(ByVal hwnd As Long, _

ByVal wMsg As Long, _

ByVal wParam As Long, _

lParam As Any) _

As Long

Private Const LB_SETHORIZONTALEXTENT = &H194

Private Sub Command2_Click()

vDocNavigate (Text1Text)

End Sub

Private Sub Command1_Click()

Dim TagName, str As String

Dim count%, i%, k As Integer

Dim cols As Object

List1Clear

'是创建一个 名称为vDoc 的WebBrowser1Document 对象

Set cols = vDocDocumentAll

count = colslength

' 循环窗体中的所有控件

While i < count

TagName = colsItem(i)TagName

If TagName = "A" Then '查找超链接和img图形

str = colsItem(i)href

List1AddItem (str) '增加超链接

SendMessage List1hwnd, LB_SETHORIZONTALEXTENT, MeTextWidth(str), ByVal 0& '为list加水平滚动条

k = k + 1

End If

i = i + 1

Wend

Label1Caption = "本网页共有超级连接：" & k & " 个"

Dim j

For j = 1 To k

If Left(List1List(j), 9) = ">

以上就是关于如何批量提取网站所有的URL链接全部的内容，包括:如何批量提取网站所有的URL链接、vb 获取一个网页内的链接和链接名称、vb获取网站的指定链接等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！