إجمالي مرات مشاهدة الصفحة

الاثنين، 25 أبريل 2016

دالة لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial Number UDF Function

السلام عليكم ورحمة الله وبركاته

أقدم لكم دالة معرفة حصرية لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial Number ، وقد تفيد الدالة في أنه يمكن استخدامها في ربطها بفتح المصنف كنوع من أنواع الحماية.

استخدام الدالة :
ويمكن استخدامها من خلال ورقة العمل أو من خلال إجراء فرعي آخر.
 بالنسبة لورقة العمل في أي خلية ضع المعادلة التالية

=MBSerialNumber()

وأخيراً إليكم الدالة المعرفة UDF التي تستخرج الرقم التسلسلي للوحة الأم

Function MBSerialNumber(Optional strComputer As String = ".") As String
    Dim V, vName, vUUID
    With GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        For Each V In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48)
            vName = V.Name
            vUUID = V.UUID
        Next V
    End With
    MBSerialNumber = vName & ", " & vUUID
End Function


الاستفادة العملية من الدالة المعرفة :
يمكن بعد وضع المعادلة في الخلية A1 مثلاً والحصول على الرقم التسلسلي للوحة الأم ، يمكن أن تقوم بنسخ محتوى الخلية ثم تضع السيريال في الكود التالي والذي يوضع في حدث المصنف ، ويقوم الكود بمقارنة الرقم التسلسلي الذي في الكود بالرقم التسلسلي للوحة الأم لديك فإذا كان نفس الرقم يتم فتح المصنف ، وإلا يغلق المصنف (وهذا أحد وسائل الحماية للمصنف بحيث لا يستطيع أحد نقل الملف إلى جهاز آخر أي لن يعمل الملف إلا على جهازك فقط)

Private Sub Workbook_Open()
    Dim strMB As String
    
    'Put Your MotherBoard Serial
    strMB = "G41MT-S2PT, 00000000-0000-0000-0000-50E5498D43DB"
    
    If MBSerialNumber <> strMB Then
        MsgBox ("Data Security Failure. This Workbook Will Close")
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    End If
End Sub

إعداد / ياسر خليل أبو البراء

هناك 6 تعليقات:

  1. السلام عليكم بارك الله بكم كود ودالة رائعة ...جزاكم الله خيراً

    ردحذف
  2. وعليكم السلام أخبي الغالي أبو يوسف
    بارك الله فيك وجزيت خير الجزاء على تشجيعك الدائم لي

    ردحذف
  3. السلام عليكم استاذ ممكن ملف علية تطبيق الكود

    ردحذف
  4. لتطبيق الكود ضع الدالة المعرفة في موديول عادي .. وضع الكود الأخير في حدث المصنف ..
    ضع معادلة في أي خلية لتعرف الرقم التسلسلي للوحة الأم لديك ، ثم انسخ هذا الرقم وضعه في الكود الموجود في حدث المصنف

    ردحذف
  5. السلام عليكم
    الاخ الكريم والمعلم الفاضل .....ياسر خليل
    مبدع ...... وكده برضوا ابخس قدرك
    جزاك الله كل الخير والتقدير

    ردحذف
  6. وجزيت خيراً أخي الكريم أحمد بمثل ما دعوت لي
    وأي بخس لقدري !!! وهل لي قدر حتى تبخسه؟ !!!

    ردحذف