11-02-18, 10:48 PM
استخدمت الكود ين التالين لاظهر سريال الماذر بورد ولكن حدثت مشكلة
الكود يظهر سريال الماذر بورد باللابتوب نسخة 7 الخاص بي ولكن لا يظهر سريال pc
علما بان pc نسخة اكس بي ماذر بورد جيجا بايت يظهر فارغ وحاولت بكذا طريقة ولكن لاتاتي بشيء لا اعلم ما الخطا
برجاء التعديل بكود يعمل علي جميع الاجهزة فاعتمد علية لتفعيل برنامجي
سريال الهارد بنفس المشكلة يعمل علي اللابتوب ولا يعمل علي جهاز pc
الكود يظهر سريال الماذر بورد باللابتوب نسخة 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