+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استخدام zkemkeeper.dll (/showthread.php?tid=36109)
استخدام zkemkeeper.dll - esam_gm - 14-08-20
انا استخدم هذه المكتبه لقراءة الحضور من جهاز البصمه ، وهي تعمل بكفاءه علي حوالي 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