mduscreader.bas

一个读写mifare卡VB编程事例,适合做IC卡应用开发.

Public Declare Function MF_Halt Lib "SCReader.dll" (ByVal hPort As Long) As Long
Public Declare Function MF_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte, pData As Byte) As Long
Public Declare Function MF_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte, pData As Byte) As Long
Public Declare Function MF_Increment Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte, ByVal lValue As Long) As Long
Public Declare Function MF_Decrement Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte, ByVal lValue As Long) As Long
Public Declare Function MF_Restore Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytBlock As Byte) As Long
Public Declare Function MF_Value Lib "SCReader.dll" (ByVal hPort As Long, ByVal argDDMode As Byte, ByVal argBlock As Byte, ByVal argValue As Long, ByVal argTBlock As Byte) As Long
Public Declare Function MF_ValueDebit Lib "SCReader.dll" (ByVal hPort As Long, ByVal argDDMode As Byte, ByVal argBlock As Byte, ByVal argValue As Long) As Long
Public Declare Function MF_SetBlockSize Lib "SCReader.dll" (ByVal hPort As Long, ByVal newVal As Byte) As Long
Public Declare Function MF_GetBlockSize Lib "SCReader.dll" (ByVal hPort As Long, pVal As Byte) As Long

'ST公司TypeB卡基本指令集
'SCREADER_API BOOL WINAPI STRAW_Initiate(long hPort,BYTE* pChipId);
Public Declare Function STRAW_Initiate Lib "SCReader.dll" (ByVal hPort As Long, pChipId As Byte) As Long
'SCREADER_API BOOL WINAPI STRAW_PCall16(long hPort,BYTE* pChipId);
Public Declare Function STRAW_PCall16 Lib "SCReader.dll" (ByVal hPort As Long, pChipId As Byte) As Long
'SCREADER_API BOOL WINAPI STRAW_SlotMarker(long hPort,BYTE slot,BYTE* pChipId);
Public Declare Function STRAW_SlotMarker Lib "SCReader.dll" (ByVal hPort As Long, ByVal slot As Byte, pChipId As Byte) As Long
'SCREADER_API BOOL WINAPI STRAW_Select(long hPort,BYTE chipId);
Public Declare Function STRAW_Select Lib "SCReader.dll" (ByVal hPort As Long, ByVal chipId As Byte) As Long
'SCREADER_API BOOL WINAPI STRAW_Complete(long hPort);
Public Declare Function STRAW_Complete Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI STRAW_Reset2Inventory(long hPort);
Public Declare Function STRAW_Reset2Inventory Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI STRAW_ReadBlock(long hPort,BYTE addr,BYTE* pdatabuf,BYTE* pLen);
Public Declare Function STRAW_ReadBlock Lib "SCReader.dll" (ByVal hPort As Long, ByVal addr As Byte, pDataBuf As Byte, pLen As Byte) As Long
'SCREADER_API BOOL WINAPI STRAW_WriteBlock(long hPort,BYTE addr,BYTE* pdatabuf,BYTE iLen);
Public Declare Function STRAW_WriteBlock Lib "SCReader.dll" (ByVal hPort As Long, ByVal addr As Byte, pDataBuf As Byte, ByVal iLen As Byte) As Long
'SCREADER_API BOOL WINAPI STRAW_Authenticate(long hPort,BYTE* pdatabuf,BYTE iLen,BYTE* pSig,BYTE* pSigLen);
Public Declare Function STRAW_Authenticate Lib "SCReader.dll" (ByVal hPort As Long, pDataBuf As Byte, ByVal iLen As Long, pSig As Byte, pSigLen As Byte) As Long
'SCREADER_API BOOL WINAPI STRAW_GetUID(long hPort,BYTE* pUID);
Public Declare Function STRAW_GetUID Lib "SCReader.dll" (ByVal hPort As Long, pUID As Byte) As Long
'SCREADER_API BOOL WINAPI STRAW_Anticoll(long hPort,BYTE* pChipList,BYTE* pCount);
Public Declare Function STRAW_Anticoll Lib "SCReader.dll" (ByVal hPort As Long, pChipList As Byte, pCount As Byte) As Long
       
       
'SRIX4K卡读写函数
'SCREADER_API BOOL WINAPI SRIX4K_Active(long hPort,BYTE* pChipId);
Public Declare Function SRIX4K_Active Lib "SCReader.dll" (ByVal hPort As Long, pChipId As Byte) As Long
'SCREADER_API BOOL WINAPI SRIX4K_Read(long hPort,long block,BYTE* pDatabuf);
Public Declare Function SRIX4K_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI SRIX4K_Write(long hPort,long block,BYTE* pDatabuf);
Public Declare Function SRIX4K_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI SRIX4K_Deactive(long hPort);
Public Declare Function SRIX4K_Deactive Lib "SCReader.dll" (ByVal hPort As Long)
'SCREADER_API BOOL WINAPI SRIX4K_Protect(long hPort,BYTE bMask);
Public Declare Function SRIX4K_Protect Lib "SCReader.dll" (ByVal hPort As Long, ByVal bMask As Long) As Long
'SCREADER_API BOOL WINAPI SRIX4K_GetUID(long hPort,BYTE* pSnrId);
Public Declare Function SRIX4K_GetUID Lib "SCReader.dll" (ByVal hPort As Long, pSnrId As Byte) As Long
'SCREADER_API BOOL WINAPI SRIX4K_CheckWrite(long hPort,long block,BYTE* pDataBuf);
Public Declare Function SRIX4K_CheckWrite Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI SRIX4K_CheckWrite0(long hPort,long block,BYTE* pDataBuf);
Public Declare Function SRIX4K_CheckWrite0 Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long

'SR176卡读写函数
Public Declare Function SR176_Active Lib "SCReader.dll" (ByVal hPort As Long, pChipId As Byte) As Long
Public Declare Function SR176_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pVal0 As Byte, pVal1 As Byte) As Long
Public Declare Function SR176_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, ByVal val0 As Byte, ByVal val1 As Byte) As Long
Public Declare Function SR176_Deactive Lib "SCReader.dll" (ByVal hPort As Long)
Public Declare Function SR176_Protect Lib "SCReader.dll" (ByVal hPort As Long, ByVal bMask As Long) As Long
Public Declare Function SR176_CheckWrite Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, ByVal val0 As Byte, ByVal val1 As Byte) As Long

'ICODE1
'SCREADER_API BOOL WINAPI I1_SetActiveMode(long hPort,BYTE slottag,BYTE basehash);
Public Declare Function I1_SetActiveMode Lib "SCReader.dll" (ByVal hPort As Long, ByVal slottag As Byte, ByVal basehash As Byte) As Long
'SCREADER_API BOOL WINAPI I1_Active(long hPort,BYTE bytFC,BYTE bytAI,BYTE* pCardNo);
Public Declare Function I1_Active Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytFC As Byte, ByVal bytAI As Byte, pCardNo As Byte) As Long
'SCREADER_API BOOL WINAPI I1_Read(long hPort,long block,BYTE* pDataBuf);
Public Declare Function I1_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI I1_Write(long hPort,long block,BYTE* pDataBuf);
Public Declare Function I1_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI I1_Deactive(long hPort);
Public Declare Function I1_Deactive Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI I1_CheckWrite(long hPort,long block,BYTE* pDataBuf);
Public Declare Function I1_CheckWrite Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI I1_Lock(long hPort,long block);
Public Declare Function I1_Lock Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long) As Long
'SCREADER_API BOOL WINAPI I1_UnselectRead(long hPort,long block,BYTE* pDataBuf);
Public Declare Function I1_UnselectRead Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI I1_ResetQuiet(long hPort);
Public Declare Function I1_ResetQuiet Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI I1_EAS(long hPort,BYTE bytFC,BYTE bytAI,BYTE* pEAS);
Public Declare Function I1_EAS Lib "SCReader.dll" (ByVal hPort As Long, ByVal bytFC As Byte, ByVal bytAI As Byte, pEAS As Byte) As Long

'ISO15693
'SCREADER_API BOOL WINAPI ISO15693_SetBlockSize(long hPort,BYTE blocksize);
Public Declare Function ISO15693_SetBlockSize Lib "SCReader.dll" (ByVal hPort As Long, ByVal blocksize As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_Inventory(long hPort,BYTE AFI,BYTE* pDSFID,BYTE* pSnr);
Public Declare Function ISO15693_Inventory Lib "SCReader.dll" (ByVal hPort As Long, ByVal AFI As Byte, pDSFID As Byte, pSnr As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_StayQuiet(long hPort,BYTE* pSnr);
Public Declare Function ISO15693_StayQuiet Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_Select(long hPort,BYTE* pSnr);
Public Declare Function ISO15693_Select Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte) As Long

'SCREADER_API BOOL WINAPI ISO15693_ResetToReady(long hPort);
Public Declare Function ISO15693_ResetToReady Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_GetSysInfo(long hPort,BYTE* pInfo,long* pLen);
Public Declare Function ISO15693_GetSysInfo Lib "SCReader.dll" (ByVal hPort As Long, pInfo As Byte, pLen As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_GetLockStatus(long hPort,long bBlock,long bLen,BYTE* pStatus);
Public Declare Function ISO15693_GetLockStatus Lib "SCReader.dll" (ByVal hPort As Long, ByVal bBlock As Long, ByVal blen As Long, pStatus As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_Read(long hPort,long bBlock,BYTE* pDataBuf);
Public Declare Function ISO15693_Read Lib "SCReader.dll" (ByVal hPort As Long, ByVal bBlock As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_Write(long hPort,long bBlock,BYTE* pDataBuf);
Public Declare Function ISO15693_Write Lib "SCReader.dll" (ByVal hPort As Long, ByVal bBlock As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_Lock(long hPort,long bBlock);
Public Declare Function ISO15693_Lock Lib "SCReader.dll" (ByVal hPort As Long, ByVal bBlock As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_WriteAFI(long hPort,BYTE AFI);
Public Declare Function ISO15693_WriteAFI Lib "SCReader.dll" (ByVal hPort As Long, ByVal AFI As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_LockAFI(long hPort);
Public Declare Function ISO15693_LockAFI Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_WriteDSFID(long hPort,BYTE DSFID);
Public Declare Function ISO15693_WriteDSFID Lib "SCReader.dll" (ByVal hPort As Long, ByVal DSFID As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_LockDSFID(long hPort);
Public Declare Function ISO15693_LockDSFID Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionRead(long hPort,long bBlock,BYTE* pDataBuf);
Public Declare Function ISO15693_OptionRead Lib "SCReader.dll" (ByVal hPort As Long, ByVal bBlock As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionWrite(long hPort,long bBlock,BYTE* pDataBuf);
Public Declare Function ISO15693_OptionWrite Lib "SCReader.dll" (ByVal hPort As Long, ByVal bBlock As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionLock(long hPort,long bBlock);
Public Declare Function ISO15693_OptionLock Lib "SCReader.dll" (ByVal hPort As Long, ByVal bBlock As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionWriteAFI(long hPort,BYTE AFI);
Public Declare Function ISO15693_OptionWriteAFI Lib "SCReader.dll" (ByVal hPort As Long, ByVal AFI As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionLockAFI(long hPort);
Public Declare Function ISO15693_OptionLockAFI Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionWriteDSFID(long hPort,BYTE DSFID);
Public Declare Function ISO15693_OptionWriteDSFID Lib "SCReader.dll" (ByVal hPort As Long, ByVal DSFID As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionLockDSFID(long hPort);
Public Declare Function ISO15693_OptionLockDSFID Lib "SCReader.dll" (ByVal hPort As Long) As Long

'SCREADER_API BOOL WINAPI ISO15693_ResetToReady2(long hPort,BYTE* pSnr);
Public Declare Function ISO15693_ResetToReady2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_GetSysInfo2(long hPort,BYTE* pSnr,BYTE* pInfo,long* pLen);
Public Declare Function ISO15693_GetSysInfo2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, pInfo As Byte, pLen As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_GetLockStatus2(long hPort,BYTE* pSnr,long bBlock,long bLen,BYTE* pStatus);
Public Declare Function ISO15693_GetLockStatus2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal bBlock As Long, ByVal blen As Long, pStatus As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_Read2(long hPort,BYTE* pSnr,long bBlock,BYTE* pDataBuf);
Public Declare Function ISO15693_Read2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal bBlock As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_Write2(long hPort,BYTE* pSnr,long bBlock,BYTE* pDataBuf);
Public Declare Function ISO15693_Write2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal bBlock As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_Lock2(long hPort,BYTE* pSnr,long bBlock);
Public Declare Function ISO15693_Lock2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal bBlock As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_WriteAFI2(long hPort,BYTE* pSnr,BYTE AFI);
Public Declare Function ISO15693_WriteAFI2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal AFI As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_LockAFI2(long hPort,BYTE* pSnr);
Public Declare Function ISO15693_LockAFI2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_WriteDSFID2(long hPort,BYTE* pSnr,BYTE DSFID);
Public Declare Function ISO15693_WriteDSFID2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal DSFID As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_LockDSFID2(long hPort,BYTE* pSnr);
Public Declare Function ISO15693_LockDSFID2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionRead2(long hPort,BYTE* pSnr,long bBlock,BYTE* pDataBuf);
Public Declare Function ISO15693_OptionRead2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal bBlock As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionWrite2(long hPort,BYTE* pSnr,long bBlock,BYTE* pDataBuf);
Public Declare Function ISO15693_OptionWrite2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal bBlock As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionLock2(long hPort,BYTE* pSnr,long bBlock);
Public Declare Function ISO15693_OptionLock2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal bBlock As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionWriteAFI2(long hPort,BYTE* pSnr,BYTE AFI);
Public Declare Function ISO15693_OptionWriteAFI2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal AFI As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionLockAFI2(long hPort,BYTE* pSnr);
Public Declare Function ISO15693_OptionLockAFI2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionWriteDSFID2(long hPort,BYTE* pSnr,BYTE DSFID);
Public Declare Function ISO15693_OptionWriteDSFID2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte, ByVal DSFID As Long) As Long
'SCREADER_API BOOL WINAPI ISO15693_OptionLockDSFID2(long hPort,BYTE* pSnr);
Public Declare Function ISO15693_OptionLockDSFID2 Lib "SCReader.dll" (ByVal hPort As Long, pSnr As Byte) As Long

'SCREADER_API BOOL WINAPI HTS_Active(long hPort,BYTE* pUID);
Public Declare Function HTS_Active Lib "SCReader.dll" (ByVal hPort As Long, pUID As Byte) As Long
'SCREADER_API BOOL WINAPI HTS_ReadPage(long hPort,long page,BYTE* pDataBuf);
Public Declare Function HTS_ReadPage Lib "SCReader.dll" (ByVal hPort As Long, ByVal page As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI HTS_WritePage(long hPort,long page,BYTE* pDataBuf);
Public Declare Function HTS_WritePage Lib "SCReader.dll" (ByVal hPort As Long, ByVal page As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI HTS_Deactive(long hPort);
Public Declare Function HTS_Deactive Lib "SCReader.dll" (ByVal hPort As Long) As Long
'SCREADER_API BOOL WINAPI HTS_ReadBlock(long hPort,long page,BYTE* pDataBuf);
Public Declare Function HTS_ReadBlock Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long
'SCREADER_API BOOL WINAPI HTS_WriteBlock(long hPort,long block,BYTE* pDataBuf);
Public Declare Function HTS_WriteBlock Lib "SCReader.dll" (ByVal hPort As Long, ByVal block As Long, pDataBuf As Byte) As Long