Attribute VB_Name = "Module1"
Option Explicit


'1.原函数
'AutoOpenComPort(long *Port, unsigned char *ComAdr, int *FrmHandle)
'转化后的函数
Public Declare Function AutoOpenComPort Lib "DL810_5510MUL.dll" (ByRef Port As Long, ByRef ComAdr As Byte, ByRef FrmHandle As Long) As Long
'2.原函数
'CloseComPort (void)
'转化后的函数
Public Declare Function CloseComPort Lib "DL810_5510MUL.dll" () As Long

'3.原函数
'GetReaderInformation(unsigned char *ComAdr,unsigned char *VersionInfo,unsigned char *ReaderType, unsigned char *TrType, unsigned char *InventoryScanTime, int FrmHandle)
'转化后的函数
Public Declare Function GetReaderInformation Lib "DL810_5510MUL.dll" (ByRef ComAdr As Byte, ByRef VersionInfo As Byte, ByRef ReaderType As Byte, ByRef TrType As Byte, ByRef InventoryScanTime As Byte, ByVal FrmHandle As Long) As Long

'4.原函数
'Inventory(unsigned char *ComAdr,unsigned char *State,unsigned char *AFI, unsigned char *DSFIDAndUID, unsigned char *CardNum, int FrmHandle)
'转化后的函数
Public Declare Function Inventory Lib "DL810_5510MUL.dll" (ByRef ComAdr As Byte, ByRef State As Byte, ByRef AFI As Byte, ByRef DSFIDAndUID As Byte, ByRef CardNum As Byte, ByVal FrmHandle As Long) As Long


'Public Declare Function FindWindowA Lib "user32.dll" (ByVal classname As Long, ByVal windowname As String) As Long
'handle=FindWindowA(nul,wtitle)
'Public Declare Function SetParent Lib "user32.dll" (ByVal childwin As Long, ByVal parentwin As Long) As Long
'SetParent(handle,Handle(w—main))
'5.读取单个块
Public Declare Function ReadSingleBlock Lib "DL810_5510MUL.dll" (ByRef ComAdr As Byte, ByRef State As Byte, ByRef UID As Byte, ByVal BlockNum As Byte, ByRef blockSecStatus As Byte, ByRef data As Byte, ByRef ErrorCode As Byte, ByVal FrmHandle As Long) As Long
'6.获取标签信息
Public Declare Function GetSystemInformation Lib "DL810_5510MUL.dll" (ByRef ComAdr As Byte, ByRef State As Byte, ByRef UIDI As Byte, ByRef informationFlag As Byte, ByRef UIDO As Byte, ByRef DSFID As Byte, ByRef AFI As Byte, ByRef menorySize As Byte, ByRef ICReference As Byte, ByRef ErrorCode As Byte, ByVal FrmHandle As Long) As Long
'7读多个块
Public Declare Function ReadMultipleBlock Lib "DL810_5510MUL.dll" (ByRef ComAdr As Byte, ByRef State As Byte, ByRef UID As Byte, ByVal startBlockNum As Byte, ByVal blockCount As Byte, ByRef blockSecStatus As Byte, ByRef data As Byte, ByRef ErrorCode As Byte, ByVal FrmHandle As Long) As Long
'8写透明命令
Public Declare Function TransparentWrite Lib "DL810_5510MUL.dll" (ByRef ComAdr As Byte, ByRef Option1 As Byte, ByVal RspLength As Byte, ByVal CustomDatalength As Byte, ByRef CustomData As Byte, ByRef FeedbackDataLength As Byte, ByRef FeedbackData As Byte, ByRef ErrorCode As Byte, ByVal FrmHandle As Long) As Long
'9读透明命令
Public Declare Function TransparentRead Lib "DL810_5510MUL.dll" (ByRef ComAdr As Byte, ByVal RspLength As Byte, ByVal CustomDatalength As Byte, ByRef CustomData As Byte, ByRef FeedbackDataLength As Byte, ByRef FeedbackData As Byte, ByRef ErrorCode As Byte, ByVal FrmHandle As Long) As Long
