+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37774)
سؤال حول استخراج سيريال الهارد -المذر-المعالج - ابو انس - 13-02-21
تحية طيبة ....
قمت بعمل برنامجي نسخة تجريبية يعمل لمدة 15 يوم فقط ولكن واجهتني في التفعيل حيث اني وجدت الكثير من الاكواد في هذا المننتدى وغيره التي تستخرج سيريال الهارد ولكن للاسف بعد تنصيب البرنامج على لابتوب اخر اعطاني نفس سيريال الهارد رغم ان الهارد مختلف
وقمت بتنصيب البرنامج على لابتوب مماثل لنوع لابتوبي ونفس المواصفات فاعطاني نفس سيريال المعالج
هل من حل...
هل لدى احدكم كود مجرب وموثوق
علما انها مشاركتي الاولى في المنتدى وشكرا
RE: سؤال حول استخراج سيريال الهارد -المذر-المعالج - alfaiz678 - 13-02-21
كود :
Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim mo_PR As ManagementObject
' Dim Proc As String
For Each mo_PR In MOS_PR.Get()
Proc.Text = mo_PR("ProcessorId").ToString()
Next
''========
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM win32_PhysicalMedia")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
For Each getnow As ManagementObject In queryCollection
If getnow.Item("Tag") = "\\.\PHYSICALDRIVE0" Then
Hard.Text = (getnow("SerialNumber").ToString())
End If
Nextكود :
Imports System.ManagementRE: سؤال حول استخراج سيريال الهارد -المذر-المعالج - ابو انس - 13-02-21
شكرا على ردك الكريم
بخصوص الجزء المتعلق بسيريال الهارد لم يعمل بشكل جيد حيث اني بعد تجربة البرنامج على جهاز لابتوب اخر اعطاني نفس السيريا
بخصوص الجزء المتعلق بسيريال الهارد تمت تجربته عمل بشكل جيد
وبهذا تم حل مشكلتي والحمد لله
شكرا alfaiz678