Dim hc As New HttpClient("http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&count=100")
Dim str As String = hc.GetData()
'output.show(str)
Dim jo As JObject = JObject.Parse(str)
For i As Integer = 0 To jo.Count - 1
'output.show(jo("login_status"))
output.show(jo("data")(i)("abstract"))
output.show(jo("data")(i)("title"))
output.show(jo("data")(i)("source"))
output.show(jo("data")(i)("comments_count"))
output.show(jo("data")(i)("go_detail_count"))
output.show(jo("data")(i)("article_genre"))
output.show(jo("data")(i)("display_url"))
output.show(jo("data")(i)("behot_time"))
Next
可以实现如下啦：
近日，黔南州人民检察院刑事执行检察处孟熙敏处长一行来到瓮安县检察院，检查指导刑事执行检察工作。
黔南州检察院刑事执行检察处孟熙敏处长到瓮安检查指导工作
瓮安县人民检察院
2
642
article
http://mp.weixin.qq.com/s?__biz=MzA5NTg0ODMxMg==&mid=2652502458&idx=1&sn=9081120852643a89d5d16629a8f8adac
1491550100
来源：检察日报以色列当地时间4日中午，中国首席大检察官、最高人民检察院检察长曹建明与以色列司法部长沙凯德、最高法院院长瑙尔进行会谈。
曹建明同以色列司法部长最高法院院长举行会谈
瓮安县人民检察院
0
313
article
http://mp.weixin.qq.com/s?__biz=MzA5NTg0ODMxMg==&mid=2652502454&idx=1&sn=b20fd0e600d906795e97daae71b3e869
1491472101
请问这个地址
http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&count=100
只显示了第一个页面 有没有办法实现所有的页面都显示出来呢？
[此贴子已经被作者于2017/4/12 18:42:11编辑过]
加好友 
发短信
Post By：2017/4/12 17:45:00 [只看该作者]
