将腾讯服务器下载的图片，转到百度工单，提交，对方可以验证通过。
说明还是有些地方，没做对，所以，还是先考虑公众号里微信服务器的图片，然后到百度验证。
这样可以省时间，也少麻烦你们。
以下是完整地验证身份处理过程，麻烦看下:
Dim bmp As new Bitmap("e:\web\daod\" & nianyue & "\" & NewName & ".jpg") ’这里成功获得了照片
Dim ms As new System.Io.MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()
Dim strbase64 As String = Convert.ToBase64String(arr)
bmp.dispose
'msgbox("读取图片完毕")
'Dim body As String = "id_card_side=front&image=" & UrlEncode(strbase64) & ""
Dim body As String = "{""image"":""" & UrlEncode(strbase64) & """,""image_type"":""BASE64"",""id_card_number"":""" & shenfzbh & """,""name"":""" & shenfzxm & """,""quality_control"":""NONE"",""liveness_control"":""NONE""}"
Functions.Execute("logtext","body=" & body)
'Dim token As String '定义,前面已经定义的内容
Dim req = System.Net.WebRequest.Create("https://aip.baidubce.com/rest/2.0/face/v3/person/verify?access_token=" & token)
req.Method = "POST"
req.C
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)
Functions.Execute("logtext","男生确认到达审核result=" & jo.ToString) '这是所有结果
上述代码写在附件里：其他情况见76楼
[此贴子已经被作者于2018/12/14 14:13:54编辑过]
加好友 
发短信
Post By：2018/12/9 21:33:00 [只看该作者]
此主题相关图片如下：qq图片20111109599999.png
