USB迷 | 专注于互联网分享

    最新消息： USBMI致力于为网友们分享Windows、安卓、IOS等主流手机系统相关的资讯以及评测、同时提供相关教程、应用、软件下载等服务。
    你的位置： 首页 > IT圈 > VB.Net实现身份证读卡器调用读取身份证信息和社保卡信息

    VB.Net实现身份证读卡器调用读取身份证信息和社保卡信息

    IT圈 admin 0浏览 0评论

    VB.Net实现身份证读卡器调用读取身份证信息和社保卡信息

    VB.Net读取身份证效果图

     读取社保卡效果图

     

    VB.Net读身份证工程下载链接

    下面是EST-100系列身份证读卡器VB.Net的全部代码：

    Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDonsee_Open("USB")Donsee_Beep()If (Donsee_Open("USB") = 0) ThenDim pszVersion As StringpszVersion = Space(50)Donsee_Version(pszVersion)RichTextBox1.Text += "广东东信读卡器打开成功,返回值：" + Donsee_Open("USB").ToString + vbCrLfRichTextBox1.Text += "EST-100设备版本号：" + pszVersion.ToString + vbCrLfElseRichTextBox1.Text += "广东东信读卡器打开失败，请检查读卡器是否接好" + vbCrLfEnd IfEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickRichTextBox1.Text = ""End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickDonsee_Open("USB")If (Donsee_Open("USB") = 0) ThenDim pszUID As StringpszUID = Space(30)Donsee_ReadIDCardUid(pszUID)If (Donsee_ReadIDCardUid(pszUID) = 0) ThenDonsee_Beep()RichTextBox1.Text += "身份证ID读取成功：" + pszUID.ToString + vbCrLfElseRichTextBox1.Text += "身份证ID读取失败" + vbCrLfEnd IfElseRichTextBox1.Text += "读卡器打开失败，请检查读卡器是否接好" + vbCrLfEnd IfEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDonsee_Open("USB")If (Donsee_Open("USB") = 0) ThenDim t_nRe As IntegerDim idinfo As IDINFODim t_arrChMsg As Stringt_arrChMsg = Space(256)t_nRe = Donsee_ReadIDCard(1, "IDphoto.jpg", idinfo, t_arrChMsg)If (t_nRe = 0) ThenDonsee_Beep()RichTextBox1.Text += "身份证读取成功：" + idinfo.name + vbCrLfIf (idinfo.certType.ToString = "I") Then '外国人居住证RichTextBox1.Text += "读取成功，证件类型：外国人居住证" + vbCrLfRichTextBox1.Text += "证件类型标识：" + idinfo.certType.ToString + vbCrLfRichTextBox1.Text += "英文姓名：" + idinfo.ENfullname + vbCrLfRichTextBox1.Text += "性    别：" + idinfo.sex + vbCrLfRichTextBox1.Text += "永久居留证号码：" + idinfo.number + vbCrLfRichTextBox1.Text += "国籍或所在地区代码：" + idinfo.Nationality + vbCrLfRichTextBox1.Text += "中文姓名：" + idinfo.name + vbCrLfRichTextBox1.Text += "证件签发日期：" + idinfo.signdate + vbCrLfRichTextBox1.Text += "证件终止日期：" + idinfo.validterm + vbCrLfRichTextBox1.Text += "出生日期：" + idinfo.birthday + vbCrLfRichTextBox1.Text += "证件版本号：" + idinfo.certVersion + vbCrLfRichTextBox1.Text += "申请机关代码：" + idinfo.organs + vbCrLfElseIf (idinfo.certType.ToString = "J") Then '港澳台通行证RichTextBox1.Text += "读取成功，证件类型：港澳台通行证" + vbCrLfRichTextBox1.Text += "证件类型标识：" + idinfo.certType.ToString + vbCrLfRichTextBox1.Text += "姓名：" + idinfo.name + vbCrLfRichTextBox1.Text += "性别：" + idinfo.sex + vbCrLfRichTextBox1.Text += "出生日期：" + idinfo.birthday + vbCrLfRichTextBox1.Text += "住址：" + idinfo.address + vbCrLfRichTextBox1.Text += "公民身份号码：" + idinfo.number + vbCrLfRichTextBox1.Text += "签发机关：" + idinfo.organs + vbCrLfRichTextBox1.Text += "有效期起始日期：" + idinfo.signdate + vbCrLfRichTextBox1.Text += "有效期截止日期：" + idinfo.validterm + vbCrLfRichTextBox1.Text += "通行证号码：" + idinfo.passNu + vbCrLfRichTextBox1.Text += "签发次数：" + idinfo.signCount + vbCrLfElseRichTextBox1.Text += "读取成功，证件类型：居民身份证" + vbCrLfRichTextBox1.Text += "证件标识：" + idinfo.certType.ToString + vbCrLfRichTextBox1.Text += "姓    名：" + idinfo.name + vbCrLfRichTextBox1.Text += "性    别：" + idinfo.sex + vbCrLfRichTextBox1.Text += "名    族：" + idinfo.people + vbCrLfRichTextBox1.Text += "出生日期：" + idinfo.birthday + vbCrLfRichTextBox1.Text += "住    址：" + idinfo.address + vbCrLfRichTextBox1.Text += "发证日期：" + idinfo.signdate + vbCrLfRichTextBox1.Text += "有效日期：" + idinfo.validterm + vbCrLfRichTextBox1.Text += "证件号码：" + idinfo.number + vbCrLfRichTextBox1.Text += "发证机关：" + idinfo.organs + vbCrLfRichTextBox1.Text += "其    他：" + idinfo.Other + vbCrLfEnd IfElseRichTextBox1.Text += "身份证读取失败：" + t_arrChMsg + vbCrLfRichTextBox1.Text += "，返回值：" + t_nRe.ToString + vbCrLfEnd IfElseRichTextBox1.Text += "读卡器打开失败，请检查读卡器是否接好" + vbCrLfEnd IfEnd SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickDonsee_Open("USB")If (Donsee_Open("USB") = 0) ThenDim t_nRe As IntegerDim cardInfo As SSCard_IDINFODim arrChMsg As StringarrChMsg = Space(256)t_nRe = Donsee_ReadSSCard(17, cardInfo, arrChMsg)  '0x11 16进制填17进去表示SAM1If (t_nRe = 0) ThenDonsee_Beep()RichTextBox1.Text += "社保卡读取成功，返回值：" + t_nRe.ToString + vbCrLfRichTextBox1.Text += "姓名：" + cardInfo.name + vbCrLfRichTextBox1.Text += "性别：" + cardInfo.sex + vbCrLfRichTextBox1.Text += "民族：" + cardInfo.nation + vbCrLfRichTextBox1.Text += "出生日期：" + cardInfo.birthday + vbCrLfRichTextBox1.Text += "发证日期：" + cardInfo.signdat + vbCrLfRichTextBox1.Text += "有效日期：" + cardInfo.validterm + vbCrLfRichTextBox1.Text += "卡号：" + cardInfo.cardnumber + vbCrLfRichTextBox1.Text += "身份证号：" + cardInfo.idnumber + vbCrLfRichTextBox1.Text += "城市代码：" + cardInfo.city + vbCrLfRichTextBox1.Text += "社保卡版本：" + cardInfo.cardveVrsion + vbCrLfRichTextBox1.Text += "卡识别码：" + cardInfo.identityCode + vbCrLf'RichTextBox1.Text += "PSAM卡卡号：" + cardInfo.szTerminalNo + vbCrLfRichTextBox1.Text += "其他：" + cardInfo.Other + vbCrLfElseRichTextBox1.Text += "社保卡读取失败：" + arrChMsg + vbCrLfRichTextBox1.Text += "，返回值：" + t_nRe.ToString + vbCrLfEnd IfElseRichTextBox1.Text += "读卡器打开失败，请检查读卡器是否接好" + vbCrLfEnd IfEnd Sub
End Class

    VB.Net实现身份证读卡器调用读取身份证信息和社保卡信息

    VB.Net读取身份证效果图

     读取社保卡效果图

     

    VB.Net读身份证工程下载链接

    下面是EST-100系列身份证读卡器VB.Net的全部代码：

    Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDonsee_Open("USB")Donsee_Beep()If (Donsee_Open("USB") = 0) ThenDim pszVersion As StringpszVersion = Space(50)Donsee_Version(pszVersion)RichTextBox1.Text += "广东东信读卡器打开成功,返回值：" + Donsee_Open("USB").ToString + vbCrLfRichTextBox1.Text += "EST-100设备版本号：" + pszVersion.ToString + vbCrLfElseRichTextBox1.Text += "广东东信读卡器打开失败，请检查读卡器是否接好" + vbCrLfEnd IfEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickRichTextBox1.Text = ""End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickDonsee_Open("USB")If (Donsee_Open("USB") = 0) ThenDim pszUID As StringpszUID = Space(30)Donsee_ReadIDCardUid(pszUID)If (Donsee_ReadIDCardUid(pszUID) = 0) ThenDonsee_Beep()RichTextBox1.Text += "身份证ID读取成功：" + pszUID.ToString + vbCrLfElseRichTextBox1.Text += "身份证ID读取失败" + vbCrLfEnd IfElseRichTextBox1.Text += "读卡器打开失败，请检查读卡器是否接好" + vbCrLfEnd IfEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDonsee_Open("USB")If (Donsee_Open("USB") = 0) ThenDim t_nRe As IntegerDim idinfo As IDINFODim t_arrChMsg As Stringt_arrChMsg = Space(256)t_nRe = Donsee_ReadIDCard(1, "IDphoto.jpg", idinfo, t_arrChMsg)If (t_nRe = 0) ThenDonsee_Beep()RichTextBox1.Text += "身份证读取成功：" + idinfo.name + vbCrLfIf (idinfo.certType.ToString = "I") Then '外国人居住证RichTextBox1.Text += "读取成功，证件类型：外国人居住证" + vbCrLfRichTextBox1.Text += "证件类型标识：" + idinfo.certType.ToString + vbCrLfRichTextBox1.Text += "英文姓名：" + idinfo.ENfullname + vbCrLfRichTextBox1.Text += "性    别：" + idinfo.sex + vbCrLfRichTextBox1.Text += "永久居留证号码：" + idinfo.number + vbCrLfRichTextBox1.Text += "国籍或所在地区代码：" + idinfo.Nationality + vbCrLfRichTextBox1.Text += "中文姓名：" + idinfo.name + vbCrLfRichTextBox1.Text += "证件签发日期：" + idinfo.signdate + vbCrLfRichTextBox1.Text += "证件终止日期：" + idinfo.validterm + vbCrLfRichTextBox1.Text += "出生日期：" + idinfo.birthday + vbCrLfRichTextBox1.Text += "证件版本号：" + idinfo.certVersion + vbCrLfRichTextBox1.Text += "申请机关代码：" + idinfo.organs + vbCrLfElseIf (idinfo.certType.ToString = "J") Then '港澳台通行证RichTextBox1.Text += "读取成功，证件类型：港澳台通行证" + vbCrLfRichTextBox1.Text += "证件类型标识：" + idinfo.certType.ToString + vbCrLfRichTextBox1.Text += "姓名：" + idinfo.name + vbCrLfRichTextBox1.Text += "性别：" + idinfo.sex + vbCrLfRichTextBox1.Text += "出生日期：" + idinfo.birthday + vbCrLfRichTextBox1.Text += "住址：" + idinfo.address + vbCrLfRichTextBox1.Text += "公民身份号码：" + idinfo.number + vbCrLfRichTextBox1.Text += "签发机关：" + idinfo.organs + vbCrLfRichTextBox1.Text += "有效期起始日期：" + idinfo.signdate + vbCrLfRichTextBox1.Text += "有效期截止日期：" + idinfo.validterm + vbCrLfRichTextBox1.Text += "通行证号码：" + idinfo.passNu + vbCrLfRichTextBox1.Text += "签发次数：" + idinfo.signCount + vbCrLfElseRichTextBox1.Text += "读取成功，证件类型：居民身份证" + vbCrLfRichTextBox1.Text += "证件标识：" + idinfo.certType.ToString + vbCrLfRichTextBox1.Text += "姓    名：" + idinfo.name + vbCrLfRichTextBox1.Text += "性    别：" + idinfo.sex + vbCrLfRichTextBox1.Text += "名    族：" + idinfo.people + vbCrLfRichTextBox1.Text += "出生日期：" + idinfo.birthday + vbCrLfRichTextBox1.Text += "住    址：" + idinfo.address + vbCrLfRichTextBox1.Text += "发证日期：" + idinfo.signdate + vbCrLfRichTextBox1.Text += "有效日期：" + idinfo.validterm + vbCrLfRichTextBox1.Text += "证件号码：" + idinfo.number + vbCrLfRichTextBox1.Text += "发证机关：" + idinfo.organs + vbCrLfRichTextBox1.Text += "其    他：" + idinfo.Other + vbCrLfEnd IfElseRichTextBox1.Text += "身份证读取失败：" + t_arrChMsg + vbCrLfRichTextBox1.Text += "，返回值：" + t_nRe.ToString + vbCrLfEnd IfElseRichTextBox1.Text += "读卡器打开失败，请检查读卡器是否接好" + vbCrLfEnd IfEnd SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickDonsee_Open("USB")If (Donsee_Open("USB") = 0) ThenDim t_nRe As IntegerDim cardInfo As SSCard_IDINFODim arrChMsg As StringarrChMsg = Space(256)t_nRe = Donsee_ReadSSCard(17, cardInfo, arrChMsg)  '0x11 16进制填17进去表示SAM1If (t_nRe = 0) ThenDonsee_Beep()RichTextBox1.Text += "社保卡读取成功，返回值：" + t_nRe.ToString + vbCrLfRichTextBox1.Text += "姓名：" + cardInfo.name + vbCrLfRichTextBox1.Text += "性别：" + cardInfo.sex + vbCrLfRichTextBox1.Text += "民族：" + cardInfo.nation + vbCrLfRichTextBox1.Text += "出生日期：" + cardInfo.birthday + vbCrLfRichTextBox1.Text += "发证日期：" + cardInfo.signdat + vbCrLfRichTextBox1.Text += "有效日期：" + cardInfo.validterm + vbCrLfRichTextBox1.Text += "卡号：" + cardInfo.cardnumber + vbCrLfRichTextBox1.Text += "身份证号：" + cardInfo.idnumber + vbCrLfRichTextBox1.Text += "城市代码：" + cardInfo.city + vbCrLfRichTextBox1.Text += "社保卡版本：" + cardInfo.cardveVrsion + vbCrLfRichTextBox1.Text += "卡识别码：" + cardInfo.identityCode + vbCrLf'RichTextBox1.Text += "PSAM卡卡号：" + cardInfo.szTerminalNo + vbCrLfRichTextBox1.Text += "其他：" + cardInfo.Other + vbCrLfElseRichTextBox1.Text += "社保卡读取失败：" + arrChMsg + vbCrLfRichTextBox1.Text += "，返回值：" + t_nRe.ToString + vbCrLfEnd IfElseRichTextBox1.Text += "读卡器打开失败，请检查读卡器是否接好" + vbCrLfEnd IfEnd Sub
End Class

    与本文相关的文章

    发布评论

    评论列表 (0)

    1. 暂无评论