[محمد مسافر]

كود :

مهم جداً اضافة Add  Reference    قبل أي شي ويعدين ممكن ننسخ الكود
الكود الموضح في الاسفل لحمايه البرنامج عن طريق المعالج بحيث تدخل رقم المعالج الذي تريد ان يعمل فيه البرنامج فقط
واي جهاز اخر لن يعمل

Imports System.Threading
Imports System.Management
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
       Dim mo_PR As ManagementObject
       For Each mo_PR In MOS_PR.Get()
           TextBox1.Text = mo_PR("ProcessorId").ToString()

       Next

       If TextBox1.Text <> "رقم المعالج الذي تريد ان يعمل فيه البرنامج فقط" Then
           MsgBox("غير مصرح لك باستخدام البرنامج علي هذه الماكينة", MsgBoxStyle.Critical, "تحذير")
           Me.Dispose()
       End If
   End Sub