[emamtron2014]

السلام عليكم 
لوسمحتوا  عاوز اعرف كيف اعمل البرنامج لا يعمل الا علي جهاز واحد 
وجزاكم الله خير الجزاء

[عبد العزيز البسكري]

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

متابع إن شاء الله..

تحياتي

[khalid475]

توجد طريقة من خلال التأكد من سيريال البروسيسر أو المذربورد : 

كود :

Private Function SystemSerialNumber() As String
   ' Get the Windows Management Instrumentation object.
   Dim wmi As Object = GetObject("WinMgmts:")

   ' Get the "base boards" (mother boards).
   Dim serial_numbers As String = ""
   Dim mother_boards As Object = _
       wmi.InstancesOf("Win32_BaseBoard")
   For Each board As Object In mother_boards
       serial_numbers &= ", " & board.SerialNumber
   Next board
   If serial_numbers.Length > 0 Then serial_numbers = _
       serial_numbers.Substring(2)

   Return serial_numbers
End Function


Private Function CpuId() As String
   Dim computer As String = "."
   Dim wmi As Object = GetObject("winmgmts:" & _
       "{impersonationLevel=impersonate}!\\" & _
       computer & "\root\cimv2")
   Dim processors As Object = wmi.ExecQuery("Select * from " & _
       "Win32_Processor")

   Dim cpu_ids As String = ""
   For Each cpu As Object In processors
       cpu_ids = cpu_ids & ", " & cpu.ProcessorId
   Next cpu
   If cpu_ids.Length > 0 Then cpu_ids = _
       cpu_ids.Substring(2)

   Return cpu_ids
End Function

أتمنى إني أكون أفدتك ...

تحياتي ...

[emamtron2014]

اخي العزيز جزاك الله خير الجزاء
ولكن لا اعرف كيف استخدم الكود.هل اضعه في button ام ماذا
وجزاك الله خيرا

[khalid475]

يتم وضعه في 

Form1_Load