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