如题: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 & " "
Next
str &= tds(tds.count - 1).InnerText & " →" & tds(tds.count - 1).GetElementsByTagName("a")(0).GetAttribute("href")
output.show(str)
Next
运行结果“→”后面“javascript: void(0)”中链接的数据,即点击相应行“明细”中链接的数据。
[此贴子已经被作者于2017/4/5 17:15:45编辑过]