[الوليد ☺]

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

مثل ما قال أخوي سعود

بس المسألة طويلة الله يعينك

وهذه طريقة المقارنة والخروج من البرنامج إذا ما فيه تطابق، إن شاء الله يكون تمام،
أنا لم أجرب هذا الكود لأني لا أحتاج لهذا الموضوع حالياً

PHP كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    If SystemSerialNumber().ToLower <> "??????????????".ToLower Then
        MsgBox("لا يمكن تشغيل البرنامج على هذا الجهاز")
        Application.Exit()
    End If
End Sub

Public Function SystemSerialNumber() As String
    Dim serial_numbers As String = String.Empty
    Dim wmi As Object = GetObject("WinMgmts:")
    For Each board As Object In wmi.InstancesOf("Win32_BaseBoard")
        serial_numbers &= ", " & board.SerialNumber
    Next board
    If serial_numbers <> "" Then serial_numbers = serial_numbers.Substring(2)
    Return serial_numbers
End Function