منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ارجو المساعدة ضروري - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ارجو المساعدة ضروري (/showthread.php?tid=42249)

ارجو المساعدة ضروري - حسام سلام - 24-08-22

برجاء منكم وضع سورس كود لاستخراج سيريال نمبر للمعالج
ثم سورس كود عمل سيريال نمبركود التفعيل للعميل ارجوكم ضروري لأنني تعبت كثيرا من كثرة البحث في النت

RE: ارجو المساعدة ضروري - asmarsou - 24-08-22

(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 علم عليها و اخيرا موافق
موفق ان شاء الله

RE: ارجو المساعدة ضروري - حسام سلام - 24-08-22

بارك الله فيك وجزاك جنة الفردوس

RE: ارجو المساعدة ضروري - asmarsou - 24-08-22

(24-08-22, 04:20 PM)حسام سلام كتب : بارك الله فيك وجزاك جنة الفردوس
اللهم اجمعين