module1.bas

这是一个读取银行卡上的磁条信息的例程

Attribute VB_Name = "Module1"
Option Explicit
'全检
Declare Function CheckCard Lib "IssueUCardDLL.dll" (ByVal fd As Long) As Long

'读卡号、姓名
Declare Function ReadPersonID Lib "IssueUCardDLL.dll" (ByVal fd As Long, ByVal sn As String, ByVal Name As String) As Long


'打开读写卡设备,0-成功,1-失败
Declare Function ICC_Open_Port Lib "IssueUCardDLL.dll" (ByVal port As String) As Long

'关闭读写卡设备
Declare Function ICC_Close_Port Lib "IssueUCardDLL.dll" (ByVal fd As Long) As Long

'初始化用户卡
Declare Function Init_WD_UserCard Lib "IssueUCardDLL.dll" (ByVal fd As Long, ByVal ResetData As String, ByVal flowNo As Integer, ByVal errmsg As String) As Long
                                            
'加密机发用户卡
Declare Function Issue_WD_UserCard Lib "IssueUCardDLL.dll" (ByVal fd As Long, ByVal InitData As String, ByVal SplitCode As Integer) As Long

'清除用户卡
Declare Function Erase_WD_UserCard Lib "IssueUCardDLL.dll" (ByVal fd As Long) As Long

'初始化用户卡
Declare Function Issue_TimeCOS_UserCard Lib "IssueUCardDLL.dll" (ByVal fd As Long, ByVal ResetData As String, ByVal SplitCode As Integer) As Long

'清除用户卡
Declare Function Erase_TimeCOS_UserCard Lib "IssueUCardDLL.dll" (ByVal fd As Long) As Long

'发old用户卡
Declare Function Send_UserCard Lib "IssueUCardDLL.dll" (ByVal fd As Long, ByVal ResetData As String) As Long

Declare Function gethmskey Lib "IssueUCardDLL.dll" (ByVal fd As Long, ByVal sn As String) As Long