mc32_28.bas

来自「IC卡分为两种 一种是接触式的 还一种是非接触式的 此文件二种程序都有 希望能帮」· BAS 代码 · 共 24 行

Attribute VB_Name = "MC3228"

'***********************    operate sle 4418    *************************
Declare Function srd_4418 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function swr_4418 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function rdwpb_4418 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function wrwpb_4418 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function pwr_4418 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function chk_4418 Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer

'***********************    operate sle 4428    *************************
Declare Function srd_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function swr_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function rdwpb_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function wrwpb_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function pwr_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal Offset As Long, ByVal le As Long, ByVal data_buffer$) As Integer
Declare Function chk_4428 Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer

Declare Function csc_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal le As Long, ByRef data_buffer As Byte) As Integer
Declare Function wsc_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal le As Long, ByRef data_buffer As Byte) As Integer
Declare Function rsc_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal le As Long, ByRef data_buffer As Byte) As Integer
Declare Function rsct_4428 Lib "MWIC_32.dll" (ByVal icdev As Long, counter As Integer) As Integer