module1.bas

一个读取ic卡的读卡程序。一个读取ic卡的读卡程序一个读取ic卡的读卡程序

Attribute VB_Name = "Module1"
Option Explicit
'
'int WINAPI MCServer(int port, const char *qs, int second)
'//  int port :  串口号;
'//  int second: 等待时间,0为无限等待;
'//  return :    0--成功;
'//          -1--超时;
'//          1--fail to start communication;
'//          2--communication break;
'//          3--fail to end communication;
'//          11--fail to open file;
'//          12--record number format error;
'//          13--record type format error;
'//          14--record file end unexpected;
'//          21--fail to create file;
'//          22--record file format error;
'//          23--packet out of sequence;
'//          24--packet format error.
Declare Function MCServer Lib "c:\magcard.dll" (ByVal port As Integer, ByVal qs As String, ByVal second As Integer) As Integer