主题：各位大神 以下网页数据 怎么抓取， 请赐教

 测试了下，用webbrowser是获取不了数据的。应该是限制执行了js代码。

 用下面的代码

Dim ie As Object = CreateObject("InternetExplorer.Application")
With ie
    '.Visible = True
    .Navigate("http://data.eastmoney.com/zjlx/300556.html")
    Application.DoEvents
    Do While .Busy OrElse .Document.GetElementById("data_superlr").Gettype.name = "DBNull" OrElse .Document.GetElementById("data_superlr").innerText = ""
        Application.DoEvents
    Loop
    output.show(.Document.GetElementById("data_superlr").innerText)
    output.show(.Document.GetElementById("data_ddlr").innerText)
    .quit
    ie = Nothing
End With