[asmarsou]

(24-08-22, 12:37 AM)حسام سلام كتب : برجاء منكم وضع سورس كود لاستخراج سيريال نمبر للمعالج
ثم سورس كود عمل سيريال نمبركود التفعيل للعميل ارجوكم ضروري لأنني تعبت كثيرا من كثرة البحث في النت

تفضل هذا مثال لجلب سيريال نمبر المعالج

كود :

Imports System.Management

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'Retrieve CPU Id
       Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("select * from Win32_Processor")

       For Each oReturn As ManagementObject In searcher.Get()
           TextBox1.Text = ("CPU ID" & Constants.vbTab & ": " & oReturn("ProcessorId").ToString)
       Next oReturn
   End Sub
End Class

ملاحظة يجب عليك ادراج مكتبة  ال System Management
بالطريقة التالية
من شريط الادوات في الاعلى اختر project ثم   Add Refference
ثم اخثر Framwork  وبعدها انزل الا غاية System Management علم عليها و اخيرا موافق
موفق ان شاء الله