网址: 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编辑过]