以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [分享]提取网页中 URL的一种方法  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153071)

--  作者：tongliaozyr --  发布时间：2020/7/30 11:38:00 --  [分享]提取网页中 URL的一种方法 提取网页中 URL的一种方法 Dim web As New System.Windows.Forms.WebBrowser() web.Navigate("https://gaokao.chsi.com.cn/zsgs/zhangcheng/listVerifedZszc--method-index,lb-1,start-0.dhtml") Do Until web.ReadyState = 4     Application.DoEvents Loop Dim Asc As object =  Web.Document.links For Each esa As object In Asc     Output.Show(esa.outerhtml) Next web.dispose