以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  网页代码没有反应  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131315)

--  作者：ZJZK2018 --  发布时间：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编辑过]