http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&max_behot_time=0&count=100&as=A1B5382B95E4C02&cp=58B5747C80723E1实际获得的数据是大于七条的 且是100条
但是经过
Dim hc As New HttpClient("http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&max_behot_time=0&count=100&as=A1B5382B95E4C02&cp=58B5747C80723E1")
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)("title"))
Next
处理后就只能获取七条数据?求解!
以上如果将红色部分更换为For i As Integer = 0 To jo.Count + 100
会报错 因为实际数量大于100 当获取到101时候就出错了
[此贴子已经被作者于2017/4/12 22:32:06编辑过]