主题：[求助]抓取网页数据

参考代码

Dim web As new System.Windows.Forms.WebBrowser
web.Navigate("http://data.eastmoney.com/zjlx/detail.html")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("dt_1").innertext Like "*数据初始化*" = False
    Application.DoEvents
Loop

Dim trs = web.Document.GetElementById("dt_1").GetElementsByTagName("tr")
For i As Integer = 1 To trs.count - 1
    Dim tds = trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count - 1
        output.show(tds(j).innerText)
    Next
Next

参考代码

Dim web As new System.Windows.Forms.WebBrowser
web.Navigate("http://data.eastmoney.com/zjlx/detail.html")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("dt_1").innertext Like "*数据初始化*" = False
    Application.DoEvents
Loop

Dim pg = web.Document.GetElementById("gopage")
pg.SetAttribute("Value", "3")
For Each a As object In web.Document.GetElementById("PageCont").GetElementsByTagName("a")
    If a.GetAttribute("ClassName") = "btn_link" Then
        a.InvokeMember("click")
        Exit For
    End If
Next

Do Until web.Document.GetElementById("PageCont").GetElementsByTagName("span")(0).InnerText = 3
    Application.DoEvents
Loop

Dim trs = web.Document.GetElementById("dt_1").GetElementsByTagName("tr")
For i As Integer = 1 To trs.count - 1
    Dim tds = trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count - 1
        output.show(tds(j).innerText)
    Next
Next