blrf.bas

VB做的

Attribute VB_Name = "Module5"
Option Explicit

Declare Function rf_init Lib "blrf.dll" Alias "_rf_init@8" (ByVal port%, ByVal baud As Long) As Long
Declare Function rf_exit Lib "blrf.dll" Alias "_rf_exit@4" (ByVal icdev As Long) As Integer
Declare Function rf_card Lib "blrf.dll" Alias "_rf_card@12" (ByVal icdev As Long, ByVal mode%, ByVal secnr%) As Integer
Declare Function rf_load_key_hex Lib "blrf.dll" Alias "_rf_load_key_hex@12" (ByVal icdev As Long, ByVal secnr%, ByVal nkey As String) As Integer
Declare Function rf_read_hex Lib "blrf.dll" Alias "_rf_read_hex@12" (ByVal icdev As Long, ByVal Adr%, ByVal sdata$) As Integer
Declare Function rf_write_hex Lib "blrf.dll" Alias "_rf_write_hex@12" (ByVal icdev As Long, ByVal Adr%, ByVal sdata$) As Integer
Declare Function rf_halt Lib "blrf.dll" Alias "_rf_halt@4" (ByVal icdev As Long) As Integer
Declare Function rf_beep Lib "blrf.dll" Alias "_rf_beep@8" (ByVal icdev As Long, ByVal time1 As Integer) As Integer
Declare Function rf_changeb3 Lib "blrf.dll" Alias "_rf_changeb3@12" (ByVal icdev As Long, ByVal secnr%, ByVal nkey As String) As Integer
Declare Function rf_test Lib "blrf.dll" Alias "_rf_test@4" (ByVal icdev As Long) As Integer

'Const Retrun code
Public Const RF_NOCONNECTION = -8         '软件超时
Public Const RF_RECEIVECHECKFAILED = -7   '接收校验错
Public Const RF_NOREASONERR = -6          '未知错误
Public Const RF_OTHERERR = -5             '其它错误
Public Const RF_SENDCHECKFAILED = -4      '发送校验错
Public Const RF_WRITECARDVIOLATE = -3     '写密码违规
Public Const RF_AUTHENTICATIONERR = -2    '密码验证错误
Public Const RF_SENDTIMEOUT = -1          '硬件超时
Public Const RF_OK = 0                    '成功