حماية برنامجي بالرقم السري الخاص بالمعالج

الكود التالى يشرح كيفيه قراءة البروسيسور id

لا تنسى اضافة reference لSystem.Management

Imports System.Management

Module Module1
    Public Function GetCPUId() As String

        Dim id As String = String.Empty
	  
        Dim mgmt As ManagementClass = New ManagementClass("Win32_Processor")

        Dim objCol As ManagementObjectCollection = mgmt.GetInstances()
        For Each obj As ManagementObject In objCol
            If id = String.Empty Then
                id = obj.Properties("ProcessorId").Value.ToString
            End If

        Next
        Return id
    End Function
    Sub Main()
        Console.WriteLine("The Proccessor ID :{0}", GetCPUId())
        Console.Read()

    End Sub

End Module

تفضل

كود التحقق من رقم الهادرسك

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

من قائمة Project  فى الفيجول ستديو ستجد Add Reference

ستفتح نافذه  منها انقر على Assembleis فى مربع البحث اكتب Management  سيظهر لديك System.Management قم بعمل بتفعيل التشك بوكس واضغط موافق

حيث سيتم اضافة المكتبة الخاصة بفضاء الاسماء وبه الكلاسات التى نحتاجها لمعرفة الادى للبروسيسور 

بعد اضافة المرجع للمشروع نقوم بعمل Import  لفضاء الاسماء ليختصر علينا كتابة الكود

Imports System.Management

تم ارفاق مثال ًGetProccesorId.rar

أخي محمد مسافر،

واضح من ردك أنك مبتدئ جداً والدليل أنك لا تعرف تضيف Reference وبالتالي من المبكر جداً الدخول في مسألة حماية البرامج

تمنياتي لك بالتوفيق