تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال حول استخراج سيريال الهارد -المذر-المعالج
#1
تحية طيبة ....
قمت بعمل برنامجي نسخة تجريبية يعمل لمدة 15 يوم فقط ولكن واجهتني في التفعيل حيث اني وجدت الكثير من الاكواد في هذا المننتدى وغيره التي تستخرج سيريال الهارد ولكن للاسف بعد تنصيب البرنامج على لابتوب اخر اعطاني نفس سيريال الهارد رغم ان الهارد مختلف
وقمت بتنصيب البرنامج على لابتوب مماثل لنوع لابتوبي ونفس المواصفات فاعطاني نفس سيريال المعالج
هل من حل...
هل لدى احدكم كود مجرب وموثوق
علما انها مشاركتي الاولى في المنتدى وشكرا
سورس كود برنامج مبيعات
الرد
تم الشكر بواسطة:
#2
كود :
 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
الرد
تم الشكر بواسطة: ابو انس
#3
شكرا على ردك الكريم
بخصوص الجزء المتعلق بسيريال الهارد لم يعمل بشكل جيد حيث اني بعد تجربة البرنامج على جهاز لابتوب اخر اعطاني نفس السيريا
بخصوص الجزء المتعلق بسيريال الهارد تمت تجربته عمل بشكل جيد
وبهذا تم حل مشكلتي والحمد لله
شكرا alfaiz678
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم