14-08-20, 04:29 PM
انا استخدم هذه المكتبه لقراءة الحضور من جهاز البصمه ، وهي تعمل بكفاءه علي حوالي 45 جهاز ، ولكن مع بعض الاجهزه جهازين قدام نسبيا ، ترجع ببيانات encrypted وخصوصا idwEMachineNumber
وهذا هو الكود
حيث من المفترض ان يرجع idwEMachineNumber بكود الموظف
IsConnected = objCZKEM.Connect_Net(ip_mach, 4370)
If (IsConnected = True) Then
objCZKEM.RegEvent(objCZKEM.MachineNumber, 65535)
objCZKEM.EnableDevice(objCZKEM.MachineNumber, True)
objCZKEM.ReadGeneralLogData(objCZKEM.MachineNumber)
MsgBox("log " & objCZKEM.ReadGeneralLogData(objCZKEM.MachineNumber))
'
MsgBox("objCZKEM.MachineNumber " & objCZKEM.MachineNumber)
objCZKEM.RefreshData(objCZKEM.MachineNumber)
While objCZKEM.SSR_GetGeneralLogData(objCZKEM.MachineNumber, idwEMachineNumber, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute, idwsecond, workcod)
MsgBox(idwEMachineNumber)
End While
endif
وهذا هو الكود
حيث من المفترض ان يرجع idwEMachineNumber بكود الموظف
IsConnected = objCZKEM.Connect_Net(ip_mach, 4370)
If (IsConnected = True) Then
objCZKEM.RegEvent(objCZKEM.MachineNumber, 65535)
objCZKEM.EnableDevice(objCZKEM.MachineNumber, True)
objCZKEM.ReadGeneralLogData(objCZKEM.MachineNumber)
MsgBox("log " & objCZKEM.ReadGeneralLogData(objCZKEM.MachineNumber))
'
MsgBox("objCZKEM.MachineNumber " & objCZKEM.MachineNumber)
objCZKEM.RefreshData(objCZKEM.MachineNumber)
While objCZKEM.SSR_GetGeneralLogData(objCZKEM.MachineNumber, idwEMachineNumber, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute, idwsecond, workcod)
MsgBox(idwEMachineNumber)
End While
endif