详细代码如下(如有疑问可13826029618进行相关提问并解答)
'广州荣士电子,,定制13826029618 地址:--www.icmcu.com
'读卡函数声明
Private Declare Function idr_read Lib "OUR_IDR.dll" (ByVal serial As Long) As Byte
'读卡函数声明,仅读一次,重新取放卡才能读到第二次
Private Declare Function idr_read_once Lib "OUR_IDR.dll" (ByVal serial As Long) As Byte
'让设备发出声响函数声明
Private Declare Function idr_beep Lib "OUR_IDR.dll" (ByVal xms As Long) As Byte
'读取设备编号函数声明
Private Declare Function pcdgetdevicenumber Lib "OUR_IDR.dll" (ByVal devicenumber As Long) As Byte
Private Sub Command1_Click()
'轻松读卡
'技术支持:
'网站:
Dim status As Byte '存放返回值
Dim idserial(0 To 4) As Byte '//卡数据缓冲
status = idr_r