USB接口ID卡读卡器oem软件/读写卡测试程序及源代码/VB源代码

 

 

详细代码如下（如有疑问可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