主题：如何获取网页的数据

 ←帖子内容长度不能大于16240,您已经输入了66541个字

说源码内容太长，请大红袍直接在网页中看源代码。谢谢了。

Dim web As new windows.forms.webbrowser
web.Navigate("http://gsxt.zjaic.gov.cn/appbasicinfo/doViewAppBasicInfo.do?corpid=14FDA926DAE115ADE880A6797A51E2668A5F054CCCFEA9DAF7A91A03259D0D66")
Do Until web.ReadyState = 4 AndAlso web.Document.Window.Frames(0).Document.Body IsNot Nothing AndAlso web.Document.Window.Frames(0).Document.Body.innerText > ""
    Application.DoEvents
Loop

output.show(web.Document.Window.Frames(0).Document.body.innerhtml)

For Each tr As object In web.Document.Window.Frames(0).Document.GetElementsByTagName("tr")
    Dim th  = tr.GetElementsByTagName("th")
    If th.count > 0 AndAlso th(0).InnerText = "住所" Then
        msgbox(tr.GetElementsByTagName("td")(0).InnerText)
    End If
Next