Private Declare Function SSR_GetGeneralLogData Lib "c:\Windows\System32\zkemkeeper.DLL" (ByVal dwMachineNumber As Long, _
ByVal dwEnrollNumber As String, ByVal dwSize As Long, ByVal dwVerifyMode As Long, _
ByVal dwInOutMode As Long, ByRef dwYear As Long, ByRef dwYear As Long, ByRef dwMonth As Long, ByRef dwDay As Long, ByRef dwHour As Long, ByRef dwMinute As Long, ByRef dwsecond As Long, ByRef dwWorkCode As Long) As Boolean
Dim ver As String
Dim vMachineNumber
Dim dwEnrollNumber As String
Dim dwVerifyMode As Long
Dim dwInOutMode As Long
Dim timeStr As String
Dim i As Long
Dim dwMachineNum As Long
Dim dwEMachineNum As Long
Dim dwYear As Long
Dim dwMonth As Long
Dim dwDay As Long
Dim dwHour As Long
Dim dwMinute As Long
Dim dwsecond As Long
Dim dwWorkCode As Long
Dim dwReserved As Long
Dim s As String
'DLL PARAMETERS
'[in] LONG dwMachineNumber,
'[out] BSTR* dwEnrollNumber,
'[out] LONG* dwVerifyMode,
'[out] LONG* dwInOutMode,
'[out] LONG* dwYear,
'[out]LONG* dwMonth,
'[out] LONG* dwDay,
'[out] LONG* dwHour,
'[out] LONG* dwMinute,
'[out] LONG* dwSecond,
'[out,retval] VARIANT_BOOL* pVal
If CZKEM1.ReadGeneralLogData(1) Then
BUFFER OVERRUN AFTER EXECUTING FOLLOWING LINE
While CZKEM1.SSR_GetGeneralLogData(1, dwEnrollNumber, dwVerifyMode, dwInOutMode, dwYear, dwMonth, dwDay, dwHour, dwMinute, dwsecond, dwWorkCode)
DoEvents
i = i + 1
'Write to database
'MsgBox strSQL
''''''' dbs.Execute strSQL, dbFailOnError
Wend
End If
MsgBox "Processed Successfully!"
End If
Dim dwEnrollNumber As String * 100