mc32_gl.bas

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

Attribute VB_Name = "MC32Gl"

Public icdev As Long
Public st As Integer

Declare Function ic_init Lib "MWIC_32.dll" (ByVal port%, ByVal baud As Long) As Long
Declare Function get_status Lib "MWIC_32.dll" (ByVal icdev As Long, card_S As Integer) As Integer
Declare Function set_baud Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal baud As Long) As Integer

Declare Function cmp_dvsc Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function srd_dvsc Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal length As Long, ByVal data_buffer$) As Integer
Declare Function swr_dvsc Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function setsc_md Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal mode As Integer) As Integer
  
Declare Function turn_on Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer
Declare Function turn_off Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer
Declare Function srd_ver Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal le As Integer, ByVal data_buffer$) As Integer
Declare Function auto_pull Lib "MWIC_32.dll" (ByVal icdev As Long) As Integer
Declare Function dv_beep Lib "MWIC_32.dll" (ByVal icdev As Long, ByVal time As Integer) As Integer
Declare Function ic_exit% Lib "MWIC_32.dll" (ByVal icdev As Long)