منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سؤال حول استخراج سيريال الهارد -المذر-المعالج

تحية طيبة ....
قمت بعمل برنامجي نسخة تجريبية يعمل لمدة 15 يوم فقط ولكن واجهتني في التفعيل حيث اني وجدت الكثير من الاكواد في هذا المننتدى وغيره التي تستخرج سيريال الهارد ولكن للاسف بعد تنصيب البرنامج على لابتوب اخر اعطاني نفس سيريال الهارد رغم ان الهارد مختلف
وقمت بتنصيب البرنامج على لابتوب مماثل لنوع لابتوبي ونفس المواصفات فاعطاني نفس سيريال المعالج
هل من حل...
هل لدى احدكم كود مجرب وموثوق
علما انها مشاركتي الاولى في المنتدى وشكرا

كود :

 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.Management

شكرا على ردك الكريم
بخصوص الجزء المتعلق بسيريال الهارد لم يعمل بشكل جيد حيث اني بعد تجربة البرنامج على جهاز لابتوب اخر اعطاني نفس السيريا
بخصوص الجزء المتعلق بسيريال الهارد تمت تجربته عمل بشكل جيد
وبهذا تم حل مشكلتي والحمد لله
شكرا alfaiz678

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابو انس

alfaiz678

ابو انس