以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能否抓取网页javascript链接中的数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98712)
--  作者：dqlgood
--  发布时间：2017/4/5 16:57:00
--  [求助]能否抓取网页javascript链接中的数据
如题：
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编辑过]
--  作者：有点色
--  发布时间：2017/4/5 17:59:00
--  

 不行。

 

 你可以先模拟点击，然后再获取某元素的值。

 

tds(tds.count - 1).GetElementsByTagName("a")(0).GetAttribute("href").InvokeMember("click")

 

 
--  作者：有点色
--  发布时间：2017/4/5 18:00:00
--  
 或者是，你检测一下点击js访问了哪个网址，传递了哪些参数，你自己模拟访问也行。