module_mifare.bas

一个使用射频卡的考勤软件

Attribute VB_Name = "Module_Mifare"
'*********通用函数
Public Declare Function MCS_InitComm Lib "MCS_SR" (ByVal bPort As Byte, ByVal dwCommBaudRate As Long) As Integer


Public Declare Function MCS_ExitComm Lib "MCS_SR" () As Integer


Public Declare Function MCS_GetVersion Lib "MCS_SR" (ByVal bVersion As String) As Integer


Public Declare Function MCS_TestDevice Lib "MCS_SR" () As Integer


Public Declare Function MCS_TestDoor Lib "MCS_SR" () As Integer


Public Declare Function MCS_GetCapacity Lib "MCS_SR" (ByRef bCapacity As Byte) As Integer


Public Declare Function MCS_AutoTest Lib "MCS_SR" (ByRef bCardType As Byte) As Integer


Public Declare Function MCS_ErrorMsg Lib "MCS_SR" (ByVal wErrNo As Integer, ByVal bErrMsg As String) As Integer


Public Declare Function MCS_PushCard Lib "MCS_SR" () As Integer


Public Declare Function MCS_LED Lib "MCS_SR" (ByVal bOnOff As Byte) As Integer


Public Declare Function MCS_Buzzer Lib "MCS_SR" (ByVal bOnOff As Byte) As Integer


Public Declare Function MCS_SetStringMode Lib "MCS_SR" (ByVal bStringMode As Byte) As Integer


Public Declare Function MCS_GetStringMode Lib "MCS_SR" (ByRef bStringMode As Byte) As Integer


Public Declare Function IsCommOpened Lib "MCS_SR" () As Integer

 
'*************Mifare函数声明
Public Declare Function MCS_Request Lib "MCS_SR" (ByVal bMode As Byte, ByRef wTagType As Integer) As Integer


Public Declare Function MCS_Anticoll Lib "MCS_SR" (ByVal bBcnt As Byte, ByRef dwSnr As Long) As Integer


Public Declare Function MCS_Select Lib "MCS_SR" (ByVal dwSnr As Long, ByRef bSize As Byte) As Integer


Public Declare Function MCS_Authentication Lib "MCS_SR" (ByVal bMode As Byte, ByVal bSecNr As Byte) As Integer


Public Declare Function MCS_Halt Lib "MCS_SR" () As Integer


Public Declare Function MCS_Read Lib "MCS_SR" (ByVal bAdr As Byte, ByVal bData As String) As Integer


Public Declare Function MCS_Write Lib "MCS_SR" (ByVal bAdr As Byte, ByVal bData As String) As Integer


Public Declare Function MCS_Increment Lib "MCS_SR" (ByVal bAdr As Byte, ByVal dwValue As Long) As Integer


Public Declare Function MCS_Decrement Lib "MCS_SR" (ByVal bAdr As Byte, ByVal dwValue As Long) As Integer


Public Declare Function MCS_Restore Lib "MCS_SR" (ByVal bAdr As Byte) As Integer


Public Declare Function MCS_Transfer Lib "MCS_SR" (ByVal bAdr As Byte) As Integer


Public Declare Function MCS_Load_Key Lib "MCS_SR" (ByVal bMode As Byte, ByVal bSecNr As Byte, ByVal bNKey1 As Byte, ByVal bNKey2 As Byte, ByVal bNKey3 As Byte, ByVal bNKey4 As Byte, ByVal bNKey5 As Byte, ByVal bNKey6 As Byte) As Integer


Public Declare Function MCS_Reset Lib "MCS_SR" (ByVal wMsec As Integer) As Integer


Public Declare Function MCS_Config Lib "MCS_SR" (ByVal bMode As Byte, ByVal bBaud As Byte) As Integer


Public Declare Function MCS_Init_Value Lib "MCS_SR" (ByVal bAdr As Byte) As Integer


Public Declare Function MCS_Read_Value Lib "MCS_SR" (ByVal bAdr As Byte, ByRef lValue As Long) As Integer