主题：[求助]能否抓取网页隐藏在源码中的文字？

要换一种方法处理，红色代码自己变通

Dim url As String = "http://data.eastmoney.com/stockcomment/"

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

rsps.Close
stm.Close
reader.close

Dim s1 As String = "defjson:{data:"
Dim s2 As String = "param: {"
Dim idx1 As Integer = str.indexof(s1) + s1.length
Dim idx2 As Integer = str.indexof(s2)
str = str.substring(idx1+1, idx2-idx1)
msgbox(str)

Dim ary() As String = str.split(",")
For i As Integer = 0 To ary.length-1
    output.show(i & "  " & ary(i))
Next

换一种方法

Dim web As new System.Windows.Forms.WebBrowser

web.Navigate("http://data.eastmoney.com/stockcomment/")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim sr As new IO.StreamReader(web.DocumentStream, Encoding.GetEncoding( web.Document.Encoding))
Dim str As String = sr.ReadToEnd()

Dim s1 As String = "defjson:{data:"
Dim s2 As String = "param: {"
Dim idx1 As Integer = str.indexof(s1) + s1.length
Dim idx2 As Integer = str.indexof(s2)
str = str.substring(idx1+1, idx2-idx1)
msgbox(str)

Dim ary() As String = str.split(",")
For i As Integer = 0 To ary.length-1
    output.show(i & "  " & ary(i))
Next