主题：[求助]从指定网页下载数据

项目

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:幸运农场2.table

但是数据怎么也能获取下来了  就是获取下来的数据不是那么满意，

自己参考代码。

 

Dim web As New System.Windows.Forms.WebBrowser()

web.ScriptErrorsSuppressed = true

web.Navigate(http://trend.baidu.lecai.com/cqkl10/tailTrend.action?recentPhase=200&onlyBody=false&phaseOrder=up)

 

Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementById("chartTable").GetElementsByTagName("tr")
For i As Integer = 1 To elems.Count - 1
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    For j As Integer = 0 To tdelems.count - 1
        Dim str As String = tdelems(j).InnerHtml
        output.show(str)
    Next
Next