منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

انا استخدم هذه المكتبه لقراءة الحضور من جهاز البصمه ، وهي تعمل بكفاءه علي حوالي 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