USB接口ID卡读卡器oem软件（vb源代码）_id读卡器代码-优快云博客

本文链接：https://blog.youkuaiyun.com/car_reader/article/details/6552989

本文提供了一段用于读取卡片信息的编程示例代码，包括轻松读卡和读取设备号的功能实现。通过不同函数调用完成卡号读取，并根据返回结果给出相应的提示信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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