mc32_24.bas

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

Attribute VB_Name = "MC3224"
'************************    operate at24c01a    ***************************
Declare Function swr_24c01a Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function srd_24c01a Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function chk_24c01a Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer
'************************    operate at24c02    ***************************
Declare Function swr_24c02 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function srd_24c02 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function chk_24c02 Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer
'************************    operate at24c04    ***************************
'************************    通过 byref 传递参数**********************************
Declare Function swr_24c04 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByRef data_buffer As Byte) As Integer
Declare Function srd_24c04 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByRef data_buffer As Byte) As Integer
Declare Function chk_24c04 Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer
'************************    operate at24c08    ***************************
Declare Function swr_24c08 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function srd_24c08 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function chk_24c08 Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer
'************************    operate at24c16    ***************************
Declare Function swr_24c16 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function srd_24c16 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function chk_24c16 Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer
'************************    operate at24c64    ***************************
Declare Function swr_24c64 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function srd_24c64 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function chk_24c64 Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer