USB接口ID卡读卡器oem软件（vb源代码）

 

 

详细代码如下：（如有疑问可13826029618进行相关提问解答）

 

 

轻松读卡

 

 

pserial=spac(5)
recu=idr_read(@pserial)
if recu=0
   = MESSAGEBOX('操作成功!卡号：'+allt(str(asc(subs(pserial,1,1))))+'-'+allt(str(asc(subs(pserial,2,1))))+'-'+allt(str(asc(subs(pserial,3,1))))+'-'+allt(str(asc(subs(pserial,4,1))))+allt(str(asc(subs(pserial,5,1))))+'其中第一个字节是ID卡原始代码，一般不做为卡号使用!',64,'提示:')
else
 if recu = 8
     = MESSAGEBOX('请将卡放在感应区!',48,'提示:')
 else
     = MESSAGEBOX('机器没连上，或驱动程序未安装!   ',48,'提示:')
    endif
endif

 

 

 

 

 

读设备号

 

pserial=spac(5)
recu=idr_read_once(@pserial)
if recu=0
   = MESSAGEBOX('操作成功!卡号：'+allt(str(asc(subs(pserial,1,1))))+'-'+allt(str(asc(subs(pserial,2,1))))+'-'+allt(str(asc(subs(pserial,3,1))))+'-'+allt(str(asc(subs(pserial,4,1))))+allt(str(asc(subs(pserial,5,1))))+'其中第一个字节是ID卡原始代码，一般不做为卡号使用!',64,'提示:')
else
 if recu = 8
     = MESSAGEBOX('请将卡放在感应区!',48,'提示:')
 else
     = MESSAGEBOX('机器没连上，或驱动程序未安装!   ',48,'提示:')
    endif
endif

 

 

CARDID=spac(4)
recu=pcdgetdevicenumber(@CARDID)
if recu=0
   = MESSAGEBOX(allt(str(asc(subs(cardid,1,1))))+'-'+allt(str(asc(subs(cardid,2,1))))+'-'+allt(str(asc(subs(cardid,3,1))))+'-'+allt(str(asc(subs(cardid,4,1)))),64,'提示:')
endif