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