Foxtable(狐表)用户栏目专家坐堂 → [分享]提取网页中 URL的一种方法


  共有2470人关注过本帖树形打印复制链接

主题:[分享]提取网页中 URL的一种方法

帅哥哟,离线,有人找我吗?
tongliaozyr
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:648 积分:6060 威望:0 精华:0 注册:2013/10/22 12:15:00
[分享]提取网页中 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



 回到顶部