主题：DOM 读取网页数据 请教 有点甜 老师

 如下代码，但是这个网页访问较慢，需要等候一段很长很长的时间

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.knfilters.com/search/applications.aspx?prod=69-9756TFK")
 

msgbox("开始访问")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

msgbox("开始读取")

Dim elems As object = web.Document.GetElementById("cph_dl_apps").GetElementsByTagName("table")

For i As Integer = 1 To elems.Count - 1
    Dim tdelems As object =  elems(i).GetElementsByTagName("Font")
    For j As Integer = 0 To tdelems.count - 1
        Dim str As String = tdelems(j).InnerHtml
        output.show(str)
    Next
Next