Foxtable(狐表)用户栏目专家坐堂 → [求助]能否抓取网页javascript链接中的数据


  共有1645人关注过本帖树形打印复制链接

主题:[求助]能否抓取网页javascript链接中的数据

帅哥哟,离线,有人找我吗?
dqlgood
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4399 威望:0 精华:0 注册:2011/7/5 9:38:00
[求助]能否抓取网页javascript链接中的数据  发帖心情 Post By:2017/4/5 16:57:00 [显示全部帖子]

如题:
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编辑过]

 回到顶部