IC卡读写器VB源代码

最新推荐文章于 2025-08-14 11:40:29 发布

原创

最新推荐文章于 2025-08-14 11:40:29 发布 · 1.9k 阅读

标签

#vb #byte #command #function #string

这段VB代码展示了如何使用动态库与IC卡读写器交互，包括读卡、写卡、修改密码和读取设备编号等功能。通过指定控制字、区号、密码等参数，实现了对IC卡的数据读写和安全操作。

IC卡读写器VB使用界面

详细代码

'广州荣士电子有限公司，联系电话020-82318861,82322852,定制13826029618 网址http://www.icmcu.com

'读卡函数声明
Private Declare Function piccreadex Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByVal serial As Long, ByVal area As Byte, ByVal keyA1B0 As Byte, ByVal picckey As Long, ByVal piccdata0_2 As Long) As Byte

'写卡函数声明
Private Declare Function piccwriteex Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByVal serial As Long, ByVal area As Byte, ByVal keyA1B0 As Byte, ByVal picckey As Long, ByVal piccdata0_2 As Long) As Byte

'修改单区函数声明
Private Declare Function piccchangesinglekey Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByVal serial As Long, ByVal area As Byte, ByVal keyA1B0 As Byte, ByVal piccoldkey As Long, ByVal piccnewkey As Long) As Byte

'让设备发出声响函数声明
Private Declare Function pcdbeep Lib "OUR_MIFARE.dll" (ByVal xms As Long) As Byte

'读取设备编号函数声明
Private Declare Function pcdgetdevicenumber Lib "OUR_MIFARE.dll" (ByVal devicenumber As Long) As Byte

'发送字符至读卡器显示
Private Declare Function lcddispfull Lib "OUR_MIFARE.dll" (ByVal lcdstr As String) As Byte

'控制字定义,控制字指定,控制字的含义请查看本公司网站提供的动态库说明
Private Const BLOCK0_EN = &H1
Private Const BLOCK1_EN = &H2
Private Const BLOCK2_EN = &H4
Private Const NEEDSERIAL = &H8
Private Const EXTERNKEY = &H10
Private Const NEEDHALT = &H20

Private Sub Command1_Click()
'轻松读卡
'技术支持:
'网站:
Dim status As Byte '存放返回