主题：网页取数

改成

 

Dim wy As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim t1 As WinForm.Table = e.Form.Controls("Table1")

Dim web As System.Windows.Forms.WebBrowser = wy.basecontrol
'web.ScriptErrorsSuppressed = True
'web.Navigate(wy.Address)
'Do Until web.ReadyState = 4
'    Application.DoEvents
'Loop

Dim Cols() As String = {"序号","区域","坐落","面积","协议价格","成交日期" }

Dim elems As object = web.Document.GetElementById("grid_list").GetElementsByTagName("tr")

Dim m As Integer = 0
Dim k As Integer
For Each elem As object In elems
    Dim i As Integer = -1
    m = m + 1
    If m >=2 And  m<= elems.count  Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
    

            t1.Table.AddNew
  Dim tdelems As object =  elem.GetElementsByTagName("td")

            For Each tdelem As object In tdelems
                i = i + 1
                t1.Table.Current(Cols(i)) = tdelem.Innertext
            Next

       
    End If
Next

Dim wy As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim t1 As WinForm.Table = e.Form.Controls("Table1")

Dim web As System.Windows.Forms.WebBrowser = wy.basecontrol
'web.ScriptErrorsSuppressed = True
'web.Navigate(wy.Address)

Dim Cols() As String = {"序号","区域","坐落","面积","协议价格","成交日期" }
Dim Innertext = ""
Dim pg As Integer = 1
Do
    innertext = web.Document.GetElementById("grid_list").Innertext
    Dim elems As object = web.Document.GetElementById("grid_list").GetElementsByTagName("tr")
    Dim m As Integer = 0
    Dim k As Integer
    For Each elem As object In elems
        Dim i As Integer = -1
        m = m + 1
        If m >=2 And  m<= elems.count  Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
            t1.Table.AddNew
            Dim tdelems As object =  elem.GetElementsByTagName("td")
            For Each tdelem As object In tdelems
                i = i + 1
                t1.Table.Current(Cols(i)) = tdelem.Innertext
            Next
        End If
    Next
    Dim aas = web.Document.GetElementById("paging").GetElementsByTagName("a")
    aas(aas.count-1).InvokeMember("click")
    Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("grid_list").Innertext <> Innertext
        Application.DoEvents
    Loop
    pg += 1
Loop While pg <= 8 '测试8页数据