moddll.bas

Mifare SDK - VB Sample Program

Attribute VB_Name = "modDLL"
Option Explicit

Public Type udfTransKey
    udfbyteKey(0 To 5) As Byte
End Type

Public Type udfBlockData
    udfbyteData(0 To 15) As Byte
End Type

Public Declare Function MifUSB_OpenDevice Lib "UsbMiCard.dll" () As Long
Public Declare Function MifUSB_CloseDevice Lib "UsbMiCard.dll" () As Long
Public Declare Function MifUSB_SetBeep Lib "UsbMiCard.dll" (ByVal nFlag As Long) As Long
Public Declare Function MifUSB_SetRedLed Lib "UsbMiCard.dll" (ByVal nFlag As Long) As Long
Public Declare Function MifUSB_SetGreenLed Lib "UsbMiCard.dll" (ByVal nFlag As Long) As Long
Public Declare Function MifUSB_SetGreenLed_ON Lib "UsbMiCard.dll" () As Long
Public Declare Function MifUSB_SetGreenLed_OFF Lib "UsbMiCard.dll" () As Long
Public Declare Function MifUSB_GetCardType Lib "UsbMiCard.dll" (ByRef lngCardType As Long) As Long
Public Declare Function MifUSB_GetCardSN Lib "UsbMiCard.dll" (ByRef lngCardSN As Long) As String
' Public Declare Function MifUSB_GetCardSN Lib "UsbMiCard.dll" (ByRef lngCardSN As udfCardSN) As Long
Public Declare Function MifUSB_TransKey Lib "UsbMiCard.dll" (ByVal intSector As Integer, ByRef byteData As udfTransKey) As Long
Public Declare Function MifUSB_ReadBlock Lib "UsbMiCard.dll" (ByVal intBlock As Integer, ByVal lngCardSN As Long, ByVal intMode As Integer) As String
Public Declare Function MifUSB_ReadBlockEx Lib "UsbMiCard.dll" (ByVal intSector As Integer, ByVal intBlock As Integer, ByVal lngCardSN As Long, ByVal intMode As Integer, ByRef byteData As udfTransKey) As String
Public Declare Function MifUSB_WriteBlock Lib "UsbMiCard.dll" (ByVal intBlock As Integer, ByVal lngCardSN As Long, ByVal intMode As Integer, ByRef byteData As udfBlockData) As Long
Public Declare Function MifUSB_WriteBlockEx Lib "UsbMiCard.dll" (ByVal intSector As Integer, ByVal intBlock As Integer, ByVal lngCardSN As Long, ByVal intMode As Integer, ByRef byteData As udfTransKey, ByRef byteData As udfBlockData) As Long