[محمد اسماعيل]

استخدمت الكود ين التالين لاظهر سريال الماذر بورد ولكن حدثت مشكلة

الكود يظهر سريال الماذر بورد باللابتوب نسخة 7 الخاص بي ولكن لا يظهر سريال pc

علما بان pc نسخة اكس بي ماذر بورد جيجا بايت يظهر فارغ وحاولت بكذا طريقة ولكن لاتاتي بشيء لا اعلم ما الخطا

برجاء التعديل بكود يعمل علي جميع الاجهزة فاعتمد علية لتفعيل برنامجي

كود :

 Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
       Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       For Each getserial As ManagementObject In MOS.[Get]()
           TextBox1.Text = "Your motherboard serial is : " & getserial("SerialNumber").ToString()
       Next

   End Sub

   Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
       Dim q As New SelectQuery("Win32_BaseBoard")
       Dim search As New ManagementObjectSearcher(q)
       Dim info As New ManagementObject

       For Each info In search.Get
           MessageBox.Show("Serial Number: " & info("serialnumber").ToString & vbNewLine & vbNewLine & "motherboard Version: " & info("version").ToString)
       Next
   End Sub

سريال الهارد بنفس المشكلة يعمل علي اللابتوب ولا يعمل علي جهاز pc

كود :

   Dim HDD_Serial As String = ""
       Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")
       For Each hd In hdd.Get
           HDD_Serial = hd("SerialNumber")
       Next
       TextBox1.Clear()
       TextBox1.Text = HDD_Serial

[MOSTAFA.KAMEL]

http://vb4arb.com/vb/showthread.php?tid=14845
شوف ده

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

إبحث أخي " محمد اسماعيل " في هذا الجزء .. لعلّ و عسى ..