以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这个解析出来是空值，是哪里错了需要什么？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140796)
--  作者：zto001
--  发布时间：2019/9/14 15:53:00
--  [求助]这个解析出来是空值，是哪里错了需要什么？
以下是hc.GetData的值
["pdd.delete.draft.commit"...."pdd.goods.information.update"],"access_token":"aa3e8c3bbea3473093913059b5ed8a6002a1e924","expires_in":86362,"expires_at":1568532098,"refresh_token_expires_in":86362,"refresh_token_expires_at":1568532098,"r1_expires_in":86362,"r2_expires_in":86362,"w1_expires_in":86362,"w2_expires_in":86362,"r1_expires_at":1568532098,"r2_expires_at":1568532098,"w1_expires_at":1568532098,"w2_expires_at":1568532098,"refresh_token":"46edb469b4584c18abd2f0410d2714f463ffb780","owner_id":"545693808","owner_name":"pdd54569380810"}

我需要获取获取里面的access_token
"access_token":"aa3e8c3bbea3473093913059b5ed8a6002a1e924"
可以我获取出来的每次都是空值，这是为什么要怎么写
Dim hc As new HttpClient("http://open-api.pinduoduo.com/oauth/token")
hc.C
Dim jo As New JObject
jo("grant_type") = "authorization_code"
jo("code") = "[用户登录授权后获取的code"
jo("client_id" )= "client_id"
jo("client_secret")="client_secret"
hc.Content = jo.tostring
output.Show(hc.GetData)

output.Show(jo.("access_token"))
--  作者：linyunu
--  发布时间：2019/9/14 18:03:00
--  
hc.Content = jo.ToString()
hc.C
Dim ret As String = hc.GetData()
Dim jo As JObject = JObject.Parse(ret)
output.Show(jo("access_token"))