专家坐堂-[求助]能否抓取网页javascript链接中的数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim web As new System.Windows.Forms.WebBrowser

web.ScriptErrorsSuppressed = True

web.Navigate("http://data.10jqka.com.cn/market/lhbgg/code/000159/")

Do Until web.ReadyState = 4

Application.DoEvents

Loop

Dim trs = web.Document.GetElementById("ggsj").GetElementsByTagName("tr")

For i As Integer = 1 To trs.count - 1

Dim str As String = ""

Dim tds = trs(i).GetElementsByTagName("td")

For j As Integer = 0 To tds.count - 2

str &= tds(j).InnerText & " "

str &= tds(tds.count - 1).InnerText & " →" & tds(tds.count - 1).GetElementsByTagName("a")(0).GetAttribute("href")

output.show(str)

运行结果“→”后面“javascript: void(0)”中链接的数据,即点击相应行“明细”中链接的数据。