vb获取网页的所有

1、打开VB 

新建工程

2、点菜单  工程  点  部件，勾选 Microsoft Internet Controls

然后点应用，点关闭

3、点菜单  工程  点   引用 ，勾选 Microsoft HTML Object Library

然后点确定

4、添加 webbrowser 控件，text 控件，command 控件如图摆主和，并将text1属性如图设置

5、双击 command1 打开，输入以下代码

Private Sub Command1_Click()

Dim theHTML As New HTMLDocument

Set theHTML = WebBrowser1.Document

' wb = ActiveX WebBrowser

' theHTML.All 就是它了！

……所以获得所有链接也就易如反掌了:

Dim collLink As IHTMLElementCollection

' Get all links

Set collLink = theHTML.All.tags("a")

For i = 0 To collLink.length - 1

Text1.Text = Text1.Text & "Link " & CStr(i + 1) & ": " & collLink(i) & vbNewLine

Next

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate "https://www.baidu.com/"

End Sub

然后保存运行，就可以了