1、打开VB新建工程
2、点菜单 工程 点 部件，勾选Microsoft Internet Controls然后点应用，点关闭
4、添加 webbrowser 控件，text 控件，command 控件如图摆主和，并将text1属性如图设置
5、双击 command1 打开，输入以下代码Private Sub Command1_Cli罕铞泱殳ck()Dim theHTML As New HTMLDocumentSet theHTML = WebBrowser1.Document' wb = ActiveX WebBrowser' theHTML.All 就是它了！……所以获得所有链接也就易如反掌了:Dim collLink As IHTMLElementCollection' Get all linksSet collLink = theHTML.All.tags("a")For i = 0 To collLink.length - 1Text1.Text = Text1.Text & "Link " & CStr(i + 1) & ": " & collLink(i) & vbNewLineNextEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate "https://www.baidu.com/"End Sub然后保存运行，就可以了