module1.bas

基于VB的非接触IC卡应用

Attribute VB_Name = "Module1"
Option Explicit
Public ans As Byte

Public cdsnr As Long
Public cdtype As Long
Public cardno As Long
Public cdmima As String * 12
Public cdpage As Long
Public cdblock As Long
Public mimacode As String * 12
Public cdvalue As Long
Public datainput As String * 32
Public cdvaluebk As Long
Public mimanum As Long
'
Public ycallmode As Long
Public status As Long
Public i As Long
Public ReadBuff(16) As Byte
Public wtdata As String * 32
Public inputdata As String * 32
Public mimaflag As Integer
Public readflag As Integer
Public datasector As Long
Public datablock As Long

Declare Function AutoLinkCom Lib "advic32.dll" (Port As Long) As Long
Declare Function LinkCom Lib "advic32.dll" (ByVal Port As Long) As Long
Declare Function UnLinkCom Lib "advic32.dll" () As Long

Declare Function RFMifare_Mcmno Lib "advic32.dll" (mcmno As Long) As Long
Declare Function DEVVER Lib "advic32.dll" (mcmver As Byte) As Long
Declare Function ALARM Lib "advic32.dll" (ByVal mode As Long, ByVal action As Long, ByVal intervaltime As Long, ByVal count As Long) As Long



Declare Function RFMifare_Authmode Lib "advic32.dll" (Authmode As Long) As Long
Declare Function RFMifare_TransKey Lib "advic32.dll" (ByVal sector As Long, Write_buff As Byte) As Long
Declare Function RFMifare_GetType Lib "advic32.dll" (cardtype As Long) As Long
Declare Function RFMifare_GetSnr Lib "advic32.dll" (CardSnr As Long) As Long
Declare Function RFMifare_ReadBlock Lib "advic32.dll" (ByVal blockno As Long, ByVal CardSn As Long, ReadBuff As Byte) As Long
Declare Function RFMifare_WriteBlock Lib "advic32.dll" (ByVal blockno As Long, ByVal CardSn As Long, WriteBuff As Byte) As Long
Declare Function RFMifare_ReadValue Lib "advic32.dll" (ByVal blockno As Long, ByVal CardSn As Long, Value As Long) As Long
Declare Function RFMifare_WriteValue Lib "advic32.dll" (ByVal blockno As Long, ByVal CardSn As Long, Value As Long) As Long
Declare Function RFMifare_IncrementValue Lib "advic32.dll" (ByVal blockno As Long, ByVal CardSn As Long, Value As Long) As Long
Declare Function RFMifare_DecrementValue Lib "advic32.dll" (ByVal blockno As Long, ByVal CardSn As Long, Value As Long) As Long
Declare Function RFMifare_WriteKey Lib "advic32.dll" (ByVal sector As Long, ByVal CardSn As Long, mima As Byte, ByVal ctr As Byte) As Long


Declare Function RFMifare_LoadKey Lib "advic32.dll" (ByVal mode As Long, ByVal sector As Long, Key As Byte) As Long
Declare Function RFMifare_Request Lib "advic32.dll" (ByVal mode As Long, cardtype As Long) As Long
Declare Function RFMifare_AntiColl Lib "advic32.dll" (CardSnr As Long) As Long
Declare Function RFMifare_Select Lib "advic32.dll" (ByVal CardSnr As Long) As Long
Declare Function RFMifare_Authentication Lib "advic32.dll" (ByVal mode As Long, ByVal sector As Long, ByVal blockno As Long) As Long
Declare Function RFMifare_Read Lib "advic32.dll" (ByVal blockno As Long, ReadBuff As Byte) As Long
Declare Function RFMifare_Write Lib "advic32.dll" (ByVal blockno As Long, WriteBuff As Byte) As Long
Declare Function RFMifare_Increment Lib "advic32.dll" (ByVal blockno As Long, ByVal Value As Long) As Long
Declare Function RFMifare_Decrment Lib "advic32.dll" (ByVal blockno As Long, ByVal Value As Long) As Long
Declare Function RFMifare_Halt Lib "advic32.dll" () As Long