主题：[求助]web.ScriptErrorsSuppressed = True，屏蔽数据

执行下面的代码，看弹出什么啊

Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://stock.n8n8.cn/flows?zjlx=110")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim div = web.Document.GetElementByid("flows_data")
Dim str As String = div.InnerText
msgbox(str)

Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://stock.n8n8.cn/flows?zjlx=110")
Do Until web.ReadyState = 4 andalso web.Document.GetElementByid("flows_data").InnerText > ""
    Application.DoEvents
Loop
Dim div = web.Document.GetElementByid("flows_data")
Dim str As String = div.InnerText
msgbox(str)

以前给你写过啊，参考以前的代码，要每一个都给你写吗？

参考代码。

Dim pg As Integer = 2
Dim count As Integer = 40

Dim url As String = "http://stock.n8n8.cn/index.php?m=data&c=index&a=getZjlx&begin=" & pg & "&amount=" & count & "&bAsc=0&board=1&sortType=110&r=0.3194321512699826"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm, EnCoding.Default)

Dim str As String = reader.ReadToEnd

output.show(str)
Dim data As object
Dim JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
Dim ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", str)
End With
For Each d As object In data.response.bodRptArray
    output.show(d.code & " " & d.name)
Next