1. sm12dll.exe Driver
2. declare.txt File Contents

declare.txt Driver File Contents (sm12dll.exe)

Option Explicit

' Eror structure
'=======================
Type T0ErrorStruct
    SW12 As Integer
    Err As Integer
End Type

' ISO7816 ADPU Part4 command
'======================
Type ADPUStruct
    CLASS As Integer
    Instruction As Integer
    param1 As Integer
    param2 As Integer
    lc As Integer
    le As Integer
End Type

' ISO7816 T=0 read or write
'==========================
Type T0InsStruct
    CLASS As Integer
    Instruction As Integer
    P1 As Integer
    P2 As Integer
    P3 As Integer
End Type


'NEW DLL VERSION

' for SM1
'====================================================================================
Declare Function GisSMOpen Lib "GISSM12N.dll" Alias "_GisSmOpen@4" (ByVal com_port As Integer) As Integer
Declare Function GisSMClose Lib "GISSM12N.dll" Alias "_GisSmClose@4" (ByVal com_port As Integer) As Integer
Declare Function GisSMVersion Lib "GISSM12N.dll" Alias "_GisSmVersion@4" (ByVal Version As String) As Integer
Declare Function GisSMReaderStatus Lib "GISSM12N.dll" Alias "_GisSmReaderStatus@4" (ByVal port As Integer) As Integer
Declare Function GisSM7816Reset Lib "GISSM12N.dll" Alias "_GisSm7816Reset@12" (ByVal port As Integer, ByVal message As String, count As Integer) As Integer
Declare Function GisSMCardDisable Lib "GISSM12N.dll" Alias "_GisSmCardDisable@4" (ByVal port As Integer) As Integer
Declare Function GisSMT0WriteCmd Lib "GISSM12N.dll" Alias "_GisSmT0WriteCmd@16" (ByVal port As Integer, Instruction As T0InsStruct, ByVal BUFFER As String, T0Error As T0ErrorStruct) As Integer
Declare Function GisSMT0ReadCmd Lib "GISSM12N.dll" Alias "_GisSmT0ReadCmd@16" (ByVal port As Integer, Instruction As T0InsStruct, ByVal BUFFER As String, T0Error As T0ErrorStruct) As Integer
Declare Function GisSMPart4Cmd Lib "GISSM12N.dll" Alias "_GisSmPart4Cmd@20" (ByVal port As Integer, adpu As ADPUStruct, ByVal BuffOut As String, ByVal BuffIn As String, Part4Error As T0ErrorStruct) As Integer

' for SM2 reader
'====================================================================================
'Declare Function Cat3Setup Lib "sm2c3w_w.dll" (ByVal port As Integer, ByVal subtype As Integer) As Integer
'Declare Function Cat3ReadWord Lib "sm2c3w_w.dll" (ByVal port As Integer, ByVal addr As Integer) As Integer
'Declare Function Cat3WriteWord Lib "sm2c3w_w.dll" (ByVal port As Integer, ByVal addr As Integer, ByVal data_byte As Integer) As Integer
'Declare Function Cat3EraseWord Lib "sm2c3w_w.dll" (ByVal port As Integer, ByVal addr As Integer) As Integer
'Declare Function Cat3Read Lib "sm2c3w_w.dll" (ByVal port As Integer, ByVal addr As Integer, ByVal buffer As String) As Integer
'Declare Function Cat3Write Lib "sm2c3w_w.dll" (ByVal port As Integer, ByVal addr As Integer, ByVal buffer As String) As Integer
'Declare Function Cat3Erase Lib "sm2c3w_w.dll" (ByVal port As Integer, ByVal addr As Integer, ByVal length As Integer) As Integer
'Declare Function Cat3WriteDisable Lib "sm2c3w_w.dll" (ByVal port As Integer) As Integer
'Declare Function Cat3WriteEnable Lib "sm2c3w_w.dll" (ByVal port As Integer) As Integer
'Declare Function Cat3EraseAll Lib "sm2c3w_w.dll" (ByVal port As Integer) As Integer
'Declare Function Cat3WriteAll Lib "sm2c3w_w.dll" (ByVal port As Integer) As Integer