mCardSystem/文档/eye-U010及M1-U010读写器演示程序及开发包/Example/VB.net/RF/Module1.vb

Module Module1
    Public icdev As Int32
    Public st As Int16

    Declare Function rf_init Lib "mwrf32.dll" (ByVal port As Int16, ByVal baud As Long) As Int32
    Declare Function rf_beep Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal time As Int16) As Int16
    Declare Function rf_exit Lib "mwrf32.dll" (ByVal icdev As Int32) As Int16
    Declare Function rf_get_status Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal status As String) As Int16
    Declare Function rf_load_key_hex Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal mode As Int16, ByVal sector As Int16, ByVal key$) As Int16
    Declare Function rf_card Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal mode As Int16, ByRef snr As Byte) As Int16
    Declare Function rf_authentication Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal mode As Int16, ByVal sector As Int16) As Int16
    Declare Function rf_read Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal address As Int16, ByVal data$) As Int16
    Declare Function rf_read_hex Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal address As Int16, ByVal data$) As Int16
    Declare Function rf_write Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal address As Int16, ByVal data$) As Int16
    Declare Function rf_write_hex Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal address As Int16, ByVal data$) As Int16
    Declare Function rf_changeb3 Lib "mwrf32.dll" (ByVal icdev As Int32, ByVal sector As Int16, ByRef keyA As Byte, ByVal B0 As Int16, ByVal B1 As Int16, ByVal B2 As Int16, ByVal B3 As Int16, ByVal Bk As Int16, ByRef keyB As Byte) As Int16
    Declare Function rf_halt Lib "mwrf32.dll" (ByVal icdev As Int32) As Int16

    Declare Function hex_a Lib "mwrf32.dll" (ByRef hex As Byte, ByVal a As String, ByVal len As Int16) As Int16
    Declare Function a_hex Lib "mwrf32.dll" (ByVal a As String, ByRef hex As Byte, ByVal len As Int16) As Int16

    Declare Function rf_pro_rst Lib "mwrf32.dll" (ByVal icdev As Int32, ByRef reset_data As Byte) As Int16
    Declare Function rf_pro_trn Lib "mwrf32.dll" (ByVal icdev As Int32, ByRef send_data As Byte, ByRef return_data As Byte) As Int16

End Module