05-10-12, 03:44 AM
اولا ننقل مشاركة الاخ mali الى هنا لمراجعتها من قبل الاخوة المتابعين
هذا الكود يفضل لأنه له مطلق الحرية في الاختيار السيريال للهارد ديسك وحفظه في مكان والتحكم به
Imports System.Management
Imports System.Management.Instrumentation
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*******
Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim HD As ManagementObject
For Each HD In HDinformation.Get()
TextBox1.Text = HD("SerialNumber").ToString()
Next
هذا الكود يفضل لأنه له مطلق الحرية في الاختيار السيريال للهارد ديسك وحفظه في مكان والتحكم به
Imports System.Management
Imports System.Management.Instrumentation
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*******
Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim HD As ManagementObject
For Each HD In HDinformation.Get()
TextBox1.Text = HD("SerialNumber").ToString()
Next
