主题：有没有通过api识别身份证的例子？

 你指的识别身份证是什么意思？

https://www.baidu.com/baidu?wd=api+%E8%BA%AB%E4%BB%BD%E8%AF%81&tn=monline_dg&ie=utf-8

 每种api的调用方式都不同，具体你要去看人家调用的方式。

 http://www.foxtable.com/mobilehelp/scr/0163.htm

mark 识别身份证信息

Dim bmp As new Bitmap("d:\abc.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 = "{""inputs"": [{""image"": {""dataType"": 50,""dataValue"": """ & strbase64 & """},""configure"": {""dataType"": 50,""dataValue"": ""{\""side\"":\""face\""}"" }}]}"
Dim appcode As String = "278b315cabac4df9a39478de0a8321ad" '只有500次，改成自己的
Dim req = System.Net.WebRequest.Create("https://dm-51.data.aliyun.com/rest/160601/ocr/ocr_idcard.json")
req.Method = "POST"
req.ContentType = "application/json; charset=UTF-8"
req.Headers.Add("Authorization", "APPCODE " & appcode)
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)