21-04-15, 07:20 PM
Hard Disk Serial كيف أعرف سيريال الهاردسك الخاصي بي او الرقم التسلسلي ؟ 
21-04-15, 07:40 PM
منقول
Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each dvs As ManagementObject In hd.Get()
Dim serial As String = dvs("SerialNumber").ToString()
TextBox1.Text = serial
Next
Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each dvs As ManagementObject In hd.Get()
Dim serial As String = dvs("SerialNumber").ToString()
TextBox1.Text = serial
Next
21-04-15, 07:54 PM
يسلموووووووووووووووووووووووو ايديك يا محترم من فلسطين احييك
11-02-20, 05:13 AM
(21-04-15, 07:40 PM)tarek كتب : [ -> ]منقول
Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each dvs As ManagementObject In hd.Get()
Dim serial As String = dvs("SerialNumber").ToString()
TextBox1.Text = serial
Next
بيظهر عندي الخطأ دا
Error 1 Class 'Phone_Shop.ManagementObject' cannot be indexed because it has no default property. F:\projects\server\New folder\developer\saly\New folder\Phone Shop\Phone Shop\Form1.vb 15 36 Phone Shop
ايه الحل