Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "图像文件|*.jpg" '设置筛选器
If dlg.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮
Dim IdCard As New Ocr_Vehicle
IdCard.AppCode = "0e97ae6d0a4d435883ba5a678f243da2"
Dim bit As New Bitmap(dlg.FileName)
Dim info As Ocr_Vehicle.Info = IdCard.Get(bit)
If info.success Then '识别流程是否出现异常, false表示识别失败,true表示识别成功, 类型为布尔型
With info
OutPut.Show(.owner) '所有人名称
OutPut.Show(.plate_num) '车牌号码
OutPut.Show(.model) '品牌型号
OutPut.Show(.vin) '车辆识别代号
OutPut.Show(.engine_num) '发动机号码
OutPut.Show(.register_date) '品牌型号
OutPut.Show(.vin) '注册日期
End With
End If
End If