#Include CARDUTIL.DEF #Include COMMERR.DEF Declare Command &HFF &HCA UID(S$) Declare Command &HFF &H30 ICODE(S$) ComPort=102 REM Pour Omnikey 5321 avec driver 1.2.0.6 / XP (ou sup) CLS:PRINT"EASON (c)2010 Patrick GUEULLE":PRINT Call WaitForCard:ResetCard(S$):Call CheckSW1SW2 Print:Print Call UID(P1P2=&H0000,Lc=0,S$,Le=8):Call CheckSW1SW2 Print "UID : "; For F=1 TO Len(S$) C$=MID$(S$,F,1):C=ASC(C$):C$=HEX$(C) IF LEN(C$)=1 then C$="0"+C$ Print C$; Next F:Print:Print S$=Chr$(1)+Chr$(6)+Chr$(0)+Chr$(1) Call ICODE(P1P2=&H0001,Lc=4,S$,Disable Le):Call CheckSW1SW2 Call ICODE(P1P2=&H0600,Lc=0,S$,Le=32) R=0 For F=1 TO Len(S$) C$=MID$(S$,F,1):C=ASC(C$):C$=HEX$(C) IF LEN(C$)=1 then C$="0"+C$ Print C$;:R=R+1 If R=16 Then Print:R=0 Next F:Print:Print Call WaitForNoCard