Public icdev As Long '---用于保存读卡当前状态(工作状态/非工作状态)
Public st As Integer '---保存当前函操作过后的状态,通常:=0 表示功能,<>0表示失败
Public Declare Function rf_init Lib "mwrf32.dll" (ByVal port%, ByRef baud As Long) As Long '--port% 是设备状态端口号=0
Public Declare Function rf_beep Lib "mwrf32.dll" (ByVal icdev As Long, ByVal time%) As Integer
Public Declare Function rf_get_status Lib "mwrf32.dll" (ByVal icdev As Long, ByRef status As String) As Integer
Public Declare Function rf_card Lib "mwrf32.dll" (ByVal icdev As Long, ByVal mode%, ByRef snr As Long) As Integer
Public Declare Function rf_halt Lib "mwrf32.dll" (ByVal icdev As Long) As Integer
Public Declare Function rf_anticoll Lib "mwrf32.dll" (ByVal icdev As Long, ByVal Bcnt%, ByRef bsnr As Byte) As Integer
-----------------------------------------------
icdev = rf_init(0, 9600)
If (icdev > 0) Then
st = rf_beep(icdev, 30)
'--发出一个声音,时长为50毫秒
messagebox.show("连接PC成功:"+str(icdev))
End If
---------------------------
此主题相关图片如下：fr_card_api-2.png
Dim status As new String(status, 18)
Dim cardtype As Integer
Dim snr As Long
Dim bsnr(5) As Byte
If icdev>0 Then
st = rf_anticoll(icdev, 0,bsnr(0)) '--激活读写器防冲突队列,icdev设备状态,读卡片0区0字节位置,snr装的IC卡序号
'Dim retcode = BS_FT("ASDFGHJK", IPCount(0))
Dim st1 = rf_anticoll(icdev, 0, bsnr(0))
If st1 = 0 Then
messagebox.show("设备号读状态成功!")
Else
messagebox.show("设备号读状态失败:"+str(st1))
End If
此主题相关图片如下：fr_card_api-1.png
Else
messagebox.show("设备没有连接PC")
End If
st = rf_halt(icdev)
加好友 
发短信
Post By：2017/4/11 22:17:00 [只看该作者]
