حماية برنامج برقم المذربورد- اللوحة الام

ملاحظة : كنت قد نشرت نفس الموضوع ( خطاءا مني ) في قسم ارشيف الحماية والامان فيرجى من الاخوة المسؤولين حذفه من هناك وابقائه هنا .... وتقبلوا اعتذاري

الوظيفة التالية تعيد الرقم التسلسلي الخاص BIOS

Function PC_SERIAL_NO()
    On Error Resume Next
    ComputerName = "."
    winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//" & ComputerName & ""
    Set SNSet = GetObject(winmgmt1).InstancesOf("Win32_BIOS")
    For Each SN In SNSet
       PCSN = SN.SerialNumber
    Next
    PC_SERIAL_NO = PCSN
End Function

وكيف اقارنها في الفورم ؟

كيف اسجل البرنامج يعني ..؟؟؟ ولكن بدون استخدام الجداول

هل هذه وحدة نمطية اخي العزيز ؟؟

يمكنك اولاً استخراج الرقم التسلسلي

ثم 

تضع شرط في الفورم الذي سيفتح مع فتح البرنامج انه اذا كان الرقم التسلسلي للكمبيوتر لا يساوي الرقم الذي استخرجته يتم اغلاق البرنامج لعدم توافق الرقمين

والله اعلم

الاخ عبد الله المجرب .... شكرا للرد .. اتمنى ان تتواصل معي اخي العزيز

ممكن ان تساعدني في دالة ( حدث عند الفتح ) التي اضعها في الفورم ؟

ماذا يتم الكتابة فيها ؟؟

الا يوجد رد ؟؟؟

انا محتاج جدا للحل

الخطوة الاخيرة الباقية في برنامجي

الاخت