Foxtable(狐表)用户栏目专家坐堂 → 网页代码没有反应


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

主题:网页代码没有反应

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


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
网页代码没有反应  发帖心情 Post By:2019/2/22 19:11:00 [只看该作者]

网址:  http://www.zjztb.gov.cn/TPFront/InfoDetail/Default.aspx?InfoID=64733fd1-e94c-421e-9b37-dbb0419eff6aGG&CategoryNum=028005009002

下面代码为什么没有数据出来?
Dim web As New System.Windows.Forms.WebBrowser()
web.scripterrorssuppressed = True
web.Navigate("http://www.zjztb.gov.cn/TPFront/InfoDetail/Default.aspx?InfoID=64733fd1-e94c-421e-9b37-dbb0419eff6aGG&CategoryNum=028005009002")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim elems As object = web.Document.GetElementsByTagName("table")(0).GetElementsByTagName("div")
For Each elem As object In elems
    Dim tds = elem.GetElementsByTagName("span")
    msgbox(tds(0).innerText)
    msgbox(tds(1).innerText)
Next


图片点击可在新窗口打开查看此主题相关图片如下:9999.png
图片点击可在新窗口打开查看

达到如下效果:

图片点击可在新窗口打开查看此主题相关图片如下:11111.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2019/2/22 19:16:06编辑过]

 回到顶部