fkmodu.bas

一个用VB编写的IC卡读写各种操作的源程序

Attribute VB_Name = "Module1"
Option Explicit

Global icdev As Long
Global st As Long


Declare Function OpenComm Lib "dascard" (ByVal commport&) As Long
Declare Function CloseComm Lib "dascard" (ByVal icdev&) As Long
Declare Function Check_Reader Lib "dascard" (ByVal icdev&) As Long
'Declare Function Init_SysCard Lib "dascard" (ByVal icdev&, ByVal userpwd$, ByVal systype&, ByVal mjsec&, ByVal mjcardtype&, ByVal xfsec&, ByRef commpwd As Byte) As Long
Declare Function Init_SysCard Lib "dascard" (ByVal icdev&, ByVal userpwd$, ByVal systype&, ByVal mjsec&, ByVal mjcardtype&, ByVal xfsec&, ByVal commpwd As String) As Long

Declare Function Init_Pos_UserCard Lib "dascard" (ByVal icdev&, ByVal serno&, ByVal cardno$, ByVal usertype&, ByVal waitime&, ByRef cardserno&) As Long
Declare Function Init_Pos_UserCard_N Lib "dascard" (ByVal icdev&, ByVal serno As Byte, ByVal cardno$, ByVal usertype&, ByVal value&, ByVal usecount&, ByVal waitime&, ByRef cardserno&) As Long
Declare Function Init_Pos_OPTCard Lib "dascard" (ByVal icdev&, ByVal opt_num&, ByVal waitime&, ByRef cardserno&) As Long
Declare Function RST_Pos_UserCard Lib "dascard" (ByVal icdev&, ByVal cardserno&, ByVal waitime&) As Long
Declare Function RST_Pos_OPTCard Lib "dascard" (ByVal icdev&, ByVal cardserno&, ByVal waitime&) As Long
Declare Function WRT_Pos_UserCard Lib "dascard" (ByVal icdev&, ByVal value&, ByVal cardserno&, ByVal waitime&) As Long
Declare Function Query_Pos_Card Lib "dascard" (ByVal icdev&, ByRef cardtype&, ByRef opt_num&, ByRef serno&, ByRef cardno As Byte, ByRef cardserno&, ByRef value&, ByRef count&, ByRef usertype&, ByVal waitime&) As Long
Declare Function Init_Access_UserCard Lib "dascard" (ByVal icdev&, ByVal serno&, ByVal cardno&, ByVal usertype&, ByVal waitime&, ByRef cardserno&) As Long
Declare Function RST_Access_UserCard Lib "dascard" (ByVal icdev&, ByVal cardserno&, ByVal waitime&) As Long
Declare Function Init_Access_UserCard_UsePassword Lib "dascard" (ByVal icdev&, ByVal cardserno&, ByVal waitime&) As Long
Declare Function Query_Access_Card Lib "dascard" (ByVal icdev&, ByRef cardtype&, ByRef serno&, ByRef cardno&, ByRef cardsernko&, ByRef usertype&, ByVal waitime&) As Long

Declare Function Init_SysCard_N Lib "dascard" (ByVal icdev&, ByVal userpwd$, ByVal systype%, ByVal mjsec%, ByVal mjcardtype%, ByVal xfsec%, ByVal filename As String, ByVal commpwd As String) As Long
Declare Function Load_Author Lib "dascard" (ByVal name As String) As Long