4442demo.prg

IC卡分为两种 一种是接触式的 还一种是非接触式的 此文件二种程序都有 希望能帮到会员们

SET TALK ON
PRIVATE ST,PASSWD,NEWPASSWD,ICDEV
DATA=SPACE(200)
SET LIBR TO C:\MWRD\FOXPRO.DOS\MWIC.PLB    

ICDEV=IC_INIT(1,9600)
IF ICDEV<=0
  ?"IC_INIT COM2 ERROR."
  RETURN
ENDIF

ST=GET_STATUS(ICDEV)
IF ST<0
  ?"GET_STATUS ERR"
  RETURN 
ENDIF

ST=CHK_4442(ICDEV)
IF ST<>0
  ?"CHK_4442 ERR"
  RETRUN
ENDIF

PASSWD=CHR(182)+CHR(35)+CHR(7)
ST=CSC_4442(ICDEV,3,PASSWD)
If ST<>0
  ?"CSC_4442 ERR"
  RETURN
ENDIF

*NEWPASSWD=CHR(255)+CHR(255)+CHR(255)
*ST=WSC_4442(ICDEV,3,NEWPASSWD)
If ST<>0
  ?"WSC_4442 ERR"
  RETURN
ENDIF

ST=RSC_4442(ICDEV,3)
If ASC(SUBSTR(ST,1,1))<>0
  ?"RSC_4442 ERR"
  RETURN
ENDIF
?"THE PASSWORD IS:",ASC(SUBSTR(ST,2,1)),ASC(SUBSTR(ST,3,1)),ASC(SUBSTR(ST,4,1))

ST=RSCT_4442(ICDEV)
If ST<0
  ?"RSCT_4442 ERR"
  RETURN
ENDIF

*ST=PRD_4442(ICDEV,4)
*If ASC(SUBSTR(ST,1,1))<>0
*  ?"PRD_4442 ERR"
*  RETURN
*ENDIF
*?"DATA IS:",ASC(SUBSTR(ST,2,1)),ASC(SUBSTR(ST,3,1)),ASC(SUBSTR(ST,4,1)),ASC(SUBSTR(ST,5,1))

DATA="SANNY520"
ST=SWR_4442(ICDEV,32,8,DATA)
IF ST<>0
  ?"SWR_4442 ERR"
  RETURN
ENDIF

ST=SRD_4442(ICDEV,32,8)
If ASC(SUBSTR(ST,1,1))<>0
  ?"SRD_4442 ERR"
  RETURN
ENDIF

***ONLY FOR AUTO_PULL_IC_DEVICE***
ST=AUTO_PULL(ICDEV)
IF ST<>0
  ?"AUTO_PULL ERR"
  RETURN
ENDIF

RETURN