others.bas

这个是我们为烟草行业出厂管理编写的RFID读写软件

Attribute VB_Name = "Others"
Option Explicit


'Public InnerPollingInterval As Long
'Public InnerDispatchMethodWhenGetID As Integer
'Public InnerSameIDinterval As Long
'Public InnerReaderResponseTimeout As Long
'Public InnerWorkingFolder As String

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Type IDInfo
    id As String
    LastReadTickCount As Long '上次读取到的tickcount
End Type

Public Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type