'''
Dim hc As New HttpClient("http://api.guaqb.cn/v1/AI/card.php?url=http://image2.sina.com.cn/dy/c/2004-06-02/1086134941_guaG6q.jpg&key=e3dbb1a8bacd081f45bd&secret=86ccfe5a2072204697eb")
Dim ret As String = hc.GetData()
ret = ret.SubString(1)
'请求方式get
Dim jo As JObject = JObject.Parse(ret)
'output.Show(jo("cards").ToString)
''遍历解析
'For Each jt As JToken In jo("cards")
'Output.Show(":" & jt("name").ToString )
'Output.Show(":" & jt("gender").ToString )
'Output.Show(":" & jt("id_card_number").ToString )
'Output.Show(":" & jt("birthday").ToString )
'Output.Show(":" & jt("type").ToString )
'Next
'
'解析第一个
Output.Show("姓名:" &jo("cards")(0)("name").ToString)
Output.Show("性别:" &jo("cards")(0)("gender").ToString)
Output.Show("身份证号:" &jo("cards")(0)("id_card_number").ToString)
Output.Show("生日:" &jo("cards")(0)("birthday").ToString)
Output.Show("民族:" &jo("cards")(0)("address").ToString)
Output.Show("地址:" &jo("cards")(0)("address").ToString)
Output.Show("证件类型:" &jo("cards")(0)("type").ToString)
Output.Show("正反面:" &jo("cards")(0)("side").ToString) '人像面front丶国徽面back
'接口地址http://help.guaqb.cn/742374
ok了
加好友 
发短信
Post By：2020/11/23 15:24:00 [只看该作者]
