以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [分享]提取网页中 URL的一种方法 (http://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 |