主题：百度人脸识别api-v3，能弄个例子么？

1、把你的token发出来测试；

2、类似执行下面代码

Dim token As String = "24.296cf3e6260e3b213a5c1589b0c51c13.2592000.1547796082.282335-15209725" '定义,前面已经定义的内容
Dim ms As New IO.FileStream("d:\index.jpg", IO.FileMode.Open)
Dim arr(ms.length) As Byte
Dim count = ms.read(arr, 0, arr.length)
ms.Close()
Dim strbase64 As String = Convert.ToBase64String(arr)
msgbox("读取图片完毕")
Dim shenfzbh = "440881199103110638"
Dim shenfzxm = "张三"
Dim body As String = "{""image"":""" & strbase64 & """,""image_type"":""BASE64"",""id_card_number"":""" & shenfzbh & """,""name"":""" & shenfzxm & """,""quality_control"":""NONE"",""liveness_control"":""NONE""}"
Dim req = System.Net.WebRequest.Create("https://aip.baidubce.com/rest/2.0/face/v3/person/verify?access_token=" & token)
req.Method = "POST"
req.KeepAlive = True
req.ContentType = "application/json"
Dim aryBuf As Byte() = Encoding.utf8.GetBytes(body)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
Dim pos = req.GetResponse
msgbox("获取数据完毕")
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
Dim jo As JObject = Jobject.Parse(str)
msgbox(jo.ToString)

绝对是图片问题（百度那里的客服也太马虎了事了吧）。

我用92楼的代码，然后自己用手机拍了一张图片测试，没问题。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:index.zip

请自己用手机拍一张照片后测试吧。如果图片正常，绝对没问题。

随便一个地方都可以，比如命令窗口直接测试。

以下是引用lihe60在2018/12/19 22:24:00的发言：
放在命令窗口，有这个提示

此主题相关图片如下：无标题.png

正常情况，这个token没有调用的权限。因为调用需要申请，每次调用都要费用的。

你可以去测试那些不需要钱的功能。