Declare Function readcard Lib "ghc715.dll" (ByVal nPort As Long, ByVal nTrack As Long, ByVal sData1 As String, ByVal sData2 As String, ByVal nModel As Long) As Long
Declare Function writecard Lib "ghc715.dll" (ByVal nPort As Long, ByVal nTrack As Long, ByVal sData1 As String, ByVal sData2 As String, ByVal nModel As Long) As Long
///////////////// 以是是模块里的 //////////////
ghc715.dll 放在也.EXE 文件的 app.path 下即可!
Err = writecard(1, 2, s1, s2, 1)
If Err = 0 Then
MsgBox "写卡成功 "
////////// 以上是写的。。 S1 and S2 是你的变量 ! 其余是不用变的!!!
有的设备只有S1 没有S2 这是正常的! 功能不不需要S2也可以是 “” or NULL