declare.bas

15693 多功能射频卡 例程 里面提多语言的完整例子

Attribute VB_Name = "mo_declare"
'******************通讯命令 Port Commands ******************************************************************
'打开串口 int WINAPI rf_init_com(int port,long baud);
Public Declare Function rf_init_com Lib "MasterRD.dll" (ByVal port&, ByVal baud&) As Long
'关闭串口 int WINAPI rf_ClosePort();
Public Declare Function rf_ClosePort Lib "MasterRD.dll" () As Long



'**********************************   ISO 14443 MF1 *****************************************
'int WINAPI rf_request(unsigned short icdev, unsigned char model, unsigned short *TagType);
Public Declare Function rf_request Lib "MasterRD.dll" (ByVal icdev%, ByVal model As Byte, _
               ByRef TagType%) As Long
               
'int WINAPI rf_anticoll(unsigned short icdev, unsigned char bcnt, unsigned char *ppSnr,
'unsigned char* pRLength);
Public Declare Function rf_anticoll Lib "MasterRD.dll" (ByVal icdev%, ByVal bcnt As Byte, _
               ByRef ppsnr As Byte, ByRef pRLength As Byte) As Long
               
'int WINAPI rf_select(unsigned short icdev,unsigned char *pSnr,unsigned char srcLen,
'unsigned char *Size);
Public Declare Function rf_select Lib "MasterRD.dll" (ByVal icdev%, ByRef pSnr As Byte, _
               ByVal srclen As Byte, ByRef size As Byte) As Long

'int WINAPI rf_M1_authentication2(unsigned short icdev,unsigned char model,unsigned char block,
'unsigned char *key);
Public Declare Function rf_M1_authentication2 Lib "MasterRD.dll" (ByVal icdev%, ByVal model As Byte, _
               ByVal block As Byte, ByRef key As Byte) As Long
               
'int WINAPI rf_M1_read(unsigned short icdev, unsigned char block, unsigned char *ppData,
'unsigned char *pLen);
Public Declare Function rf_M1_read Lib "MasterRD.dll" (ByVal icdev%, ByVal block As Byte, _
               ByRef buff As Byte, ByRef pLen As Byte) As Long


'int WINAPI rf_M1_write(unsigned short icdev, unsigned char block, unsigned char *data);
Public Declare Function rf_M1_write Lib "MasterRD.dll" (ByVal icdev%, ByVal block As Byte, _
               ByRef buff As Byte) As Long

'int WINAPI rf_halt(unsigned short icdev);
Public Declare Function rf_halt Lib "MasterRD.dll" (ByVal icdev%) As Long

          
'int WINAPI ReadTime(unsigned short icdev,unsigned char *pData,unsigned char *pLen)
Public Declare Function ReadTime Lib "MasterRD.dll" (ByVal icdev%, _
               ByRef buff As Byte, ByRef pLen As Byte) As Long

'int WINAPI WriteTime(unsigned short icdev, unsigned char *data);
Public Declare Function WriteTime Lib "MasterRD.dll" (ByVal icdev%, _
               ByRef buff As Byte) As Long
               
'------------------  ISO 15693 Commands -------------------------

'int WINAPI ISO15693_Inventorys(unsigned short icdev, unsigned char  *pData,unsigned char  *pLen)
Public Declare Function ISO15693_Inventorys Lib "MasterRD.dll" (ByVal icdev%, _
               ByRef buff As Byte, ByRef pLen As Byte) As Long
               
'功能: ISO15693_Inventory (单张卡)
'原型：int WINAPI ISO15693_Inventory(unsigned short icdev,
'                                    unsigned char *pData,
'                                    unsigned char *pLen)
'参数: icdev: [In] 通讯设备标识符
'      pData:  [OUT]返回的数据，1字节DSFID+8字节UID
'pLen:         [OUT] Pdata长度
'返回: 成功则返回0
Public Declare Function ISO15693_Inventory Lib "MasterRD.dll" (ByVal icdev%, _
               ByRef buff As Byte, ByRef pLen As Byte) As Long

'原型：int WINAPI ISO15693_Get_System_Information(unsigned short icdev,
'                                                 unsigned char  model,
'                                                 unsigned char  *pUID,
'                                                 unsigned char  *pData,
'                                                 unsigned char  *pLen)

Public Declare Function ISO15693_Get_System_Information Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte, ByRef pData As Byte, ByRef pLen As Byte) As Long

'功能: ISO15693_Select
'原型：int WINAPI ISO15693_Select(unsigned short icdev, unsigned char *pUID)
'参数: icdev: [In] 通讯设备标识符
'      pUID:   [IN] UID 8字节
'返回: 成功则返回0
Public Declare Function ISO15693_Select Lib "MasterRD.dll" (ByVal icdev%, _
                ByRef pUID As Byte) As Long


'功能: ISO15693_Stay_Quiet
'原型：int WINAPI ISO15693_Stay_Quiet(unsigned short icdev, unsigned char *pUID)
'参数: icdev: [In] 通讯设备标识符
'      pUID:   [IN] UID 8字节
'返回: 成功则返回0
Public Declare Function ISO15693_Stay_Quiet Lib "MasterRD.dll" (ByVal icdev%, _
                ByRef pUID As Byte) As Long

'功能: ISO15693_Reset_To_Ready
'原型：int WINAPI ISO15693_Reset_To_Ready(unsigned short icdev,
 '                                        unsigned char model,
 '                                        unsigned char *pUID)
'参数: icdev: [In] 通讯设备标识符
'model:        [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:   [IN] UID 8字节
'返回: 成功则返回0
Public Declare Function ISO15693_Reset_To_Ready Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte) As Long


'功能: ISO15693_Get_Block_Security
'原型：int WINAPI ISO15693_Get_Block_Security(unsigned short icdev,
'                                             unsigned char  model,
'                                             unsigned char  *pUID,
'                                             unsigned char  block,
'                                             unsigned char  number,
'                                             unsigned char  *pData,
'                                             unsigned char  *pLen)
'参数: icdev: [In] 通讯设备标识符
'model:        [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:   [IN] UID 8字节
'block:        [In] 块号
'      number: [IN] 要读取的块数，< 0x40
'pData:        [OUT] 返回的数据
'pLen:         [OUT] 返回数据的长度
'返回: 成功则返回0
Public Declare Function ISO15693_Get_Block_Security Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte, ByVal block As Byte, ByVal number As Byte, ByRef pData As Byte, ByRef pLen As Byte) As Long



'功能: ISO15693_Read
'原型：int WINAPI ISO15693_Read(unsigned short icdev,
'                               unsigned char  model,
'                               unsigned char  *PUID,
'                               unsigned char  block,
'                               unsigned char  number,
'                               unsigned char  *pData,
'                               unsigned char  *pLen);'
'参数: icdev:   [In] 通讯设备标识符
'model:         [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:    [IN] UID 8字节
'block:         [In] 块号
'      number:  [IN] 要读取的块数，< 0x10
'pData:         [OUT] 读出的数据
'pLen:          [OUT] 读出数据的长度
'返回: 成功则返回0
Public Declare Function ISO15693_Read Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte, ByVal block As Byte, ByVal number As Byte, ByRef pData As Byte, ByRef pLen As Byte) As Long


'功能: ISO15693_Write
'原型：int WINAPI ISO15693_Write(unsigned short icdev,
'                                unsigned char  model,
'                                unsigned char  *pUID,
'                                unsigned char  block,
'                                unsigned char  *pData);
'参数: icdev: [In] 通讯设备标识符
'model:        [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:   [IN] UID 8字节
'block:        [In] 块号
'      pData:  [IN] 要写入的数据，4字节'
'返回: 成功则返回0
Public Declare Function ISO15693_Write Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte, ByVal block As Byte, ByRef pData As Byte) As Long



'功能: ISO15693_Write_AFI
'原型：int WINAPI ISO15693_Write_AFI(unsigned short icdev,
'                                    unsigned char  model,
'                                    unsigned char  *pUID,
'                                    unsigned char  AFI)
'参数: icdev: [In] 通讯设备标识符
'model:        [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:   [IN] pUID 8字节
'AFI:          [In] 要写入的AFI
'返回: 成功则返回0
Public Declare Function ISO15693_Write_AFI Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte, ByVal AFI As Byte) As Long


'功能: ISO15693_Lock_Block
'原型：int WINAPI ISO15693_Lock_Block(unsigned short icdev,
'                                     unsigned char  model,
'                                     unsigned char  *pUID,
'                                     unsigned char  block)
'参数: icdev: [In] 通讯设备标识符
'model:        [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:   [IN] UID 8字节
'block:        [In] 块号
'返回: 成功则返回0
Public Declare Function ISO15693_Lock_Block Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte, ByVal block As Byte) As Long



'功能: ISO15693_Lock_AFI
'原型：int WINAPI ISO15693_Lock_AFI(unsigned short icdev,
'                                   unsigned char model,
'                                   unsigned char *pUID)
'参数: icdev: [In] 通讯设备标识符
'model:        [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:   [IN] UID 8字节
'返回: 成功则返回0
Public Declare Function ISO15693_Lock_AFI Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte) As Long


'功能: ISO15693_Write_DSFID
'原型：int WINAPI ISO15693_Write_DSFID(unsigned short icdev,
'                                      unsigned char  model,
'                                      unsigned char  *UID,
'                                      unsigned char  DSFID)
'参数: icdev: [In] 通讯设备标识符
'model:        [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:   [IN] UID 8字节
'DSFID:        [In] 要写入的DSFID
'返回: 成功则返回0
Public Declare Function ISO15693_Write_DSFID Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte, ByVal DSFID As Byte) As Long



'功能: ISO15693_Lock_DSFID
'原型：int WINAPI ISO15693_Lock_DSFID(unsigned short icdev,
'                                     unsigned char  model,
'                                     unsigned char  *pUID)
'参数: icdev: [In] 通讯设备标识符
'model:        [In] bit0 = Select_flags, bit1 = Addres_flags
'      pUID:   [IN] UID 8字节
'返回: 成功则返回0


Public Declare Function ISO15693_Lock_DSFID Lib "MasterRD.dll" (ByVal icdev%, _
               ByVal model As Byte, ByRef pUID As Byte) As Long