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

حتى ياتي خبير يدلك على الافضل والامثل والاحوط ....اذكرك باستخدام تخزين رقم الهارد ديسك على قاعدة بيانات في خادم.

سعود كتب :حتى ياتي خبير يدلك على الافضل والامثل والاحوط ....اذكرك باستخدام تخزين رقم الهارد ديسك على قاعدة بيانات في خادم.

شكرا اخي .. لكن قرآت في منتديات اجنبية وجدت انه يمكنني ان اقوم باكتشاف رمز Mac للجهاز وهو لا يتغير مثل الايبي .. لكنهم لم يذكروا ماهي الطريقة ...

حتى نعرف الكود (ان قررت استخدامه)
لنفكر في كيف يتم تعيين كلمة مرور لكل جهاز؟؟ لابد ان يختلف بطريقة او باخرى...اذكر يوجد موضوع طويل بالمنتدى الاول عن الحماية

أولا- قم بالحصول وليكن على رقم هارد الجهاز أو بروسيسور الجهاز عن طريق دالة برمجيه ز
ثانيا- تشفير هذا الرقم
ثالثا- يقوم العميل بارسال هذا الرقم للك او باخبارك به
رابعا- يمكن حفظه في قاعدة البيانات بعد تشفيره
خامسا- تقوم بعمل دالة اخرى في برنامج صغير لديك لتشفير الرقم الذى سوف يعطيه للك العميل تقوم باعطاء العميل هذا الرقم وهى ما يسمى رمز التفعيل
سادسا- يقوم العميل بادخال هذا الرقم في شاشة تفعيل البرنامج يقوم البرنامج بالتأكد من أن تشفيرة الرقم الاول تساوى الرقم الثانى فان كان يتم تفعيل البرنامج والا لا يتم التفعيل

amgadtamer كتب :أولا- قم بالحصول وليكن على رقم هارد الجهاز أو بروسيسور الجهاز عن طريق دالة برمجيه ز
ثانيا- تشفير هذا الرقم
ثالثا- يقوم العميل بارسال هذا الرقم للك او باخبارك به
رابعا- يمكن حفظه في قاعدة البيانات بعد تشفيره
خامسا- تقوم بعمل دالة اخرى في برنامج صغير لديك لتشفير الرقم الذى سوف يعطيه للك العميل تقوم باعطاء العميل هذا الرقم وهى ما يسمى رمز التفعيل
سادسا- يقوم العميل بادخال هذا الرقم في شاشة تفعيل البرنامج يقوم البرنامج بالتأكد من أن تشفيرة الرقم الاول تساوى الرقم الثانى فان كان يتم تفعيل البرنامج والا لا يتم التفعيل

شكرا اخي بس للاسف لابد من مثال .. غريبة مع ان هذا الشئ مهم مو معقولة ما يوجد حل ..

المبرمج السعيد كتب :

كود :

Dim value, Root_WMI, BaseHard, ThisObj As Object
        Root_WMI = GetObject("winmgmts:")
        BaseHard = Root_WMI.InstancesOf("Win32_PhysicalMedia")
        For Each ThisObj In BaseHard
            value = ThisObj.SerialNumber
            'حلقة تكرر في حال وجود أكثر من هارد
            ' "سنأخذ الرقم الهارد الأول
            Exit For
        Next
        MsgBox(value) 'سيخرج لك رقم الهارد مباشرة بإذن الله

[COLOR="#FF0000"]شكرا آخي لكن الكود ظهر لي خطأ ؟
[/COLOR]

تستطيع ان تربط البرنامج برقم الفلاش ميموري ( الاصلي ) و تعطي كل برنامج فلاشة
و بذلك لا يمكن تشغيل البرنامج الا بهذه الفلاشة

aiman كتب :تستطيع ان تربط البرنامج برقم الفلاش ميموري ( الاصلي ) و تعطي كل برنامج فلاشة
و بذلك لا يمكن تشغيل البرنامج الا بهذه الفلاشة

فكرة جميلة.. لكن هل من مثال لانه صعب قليلا