[分享]提取网页中 URL的一种方法 Post By:2020/7/30 11:38:00 [显示全部帖子]
提取网页中 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