[abdalwahd]

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

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TxtWnd.Text = My.Computer.Info.OSFullName
       TxtMname.Text = System.Environment.MachineName
       TxtLang.Text = My.Computer.Info.InstalledUICulture.EnglishName
       Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
       Dim diskid As String 'DigitalID
       Dim SerialNumber As String ' this is we will call it the serial number for the time being
       Dim diskmodel As String ' serial unmber

       For Each cmicWmiobj As ManagementObject In cmicWmi.Get
           diskid = cmicWmiobj("signature")
           SerialNumber = cmicWmiobj("serialnumber")
           diskmodel = cmicWmiobj("model")
       Next
       Dim x As String
       TextBox1.Text = SerialNumber

       TextBox2.Text = diskid

       TextBox4.Text = Val(TextBox2.Text) + 13 + 1225 - 1650
       TextBox4.Text = TextBox4.Text * 1000 + 300 - 5 * 120

       x = TextBox4.Text
       Dim activekey As RegistryKey
       activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
       activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Progtest", True)
       If activekey Is Nothing Then

       End If
       activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
       activekey.CreateSubKey("Progtest")

       activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Progtest", True)
       activekey.SetValue("System_Key", x)
       activekey.Close()

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If TextBox3.Text = TextBox4.Text Then
           MsgBox("تمت عملية تفعيل البرنامج بنجاح")
       Else
           MsgBox("رقم تفعيل الدي ادخلته غير صحيح الرجاء مرجعة قسم المبيعات")
           Application.Exit()
       End If
   End Sub