[mohamed salah bashir]

السلام عليكم
اطلب المساعدة في كود لإظهار الرقم الفريد الخاص بالهارديسك Hard disk والمعالج

وشكرا

[kslawy]

http://social.msdn.microsoft.com/Forums/...0b336b8635
في الرابط اعلاه اذهب للمشاركة رقم 7 بها صورة توضيحيه .[url="http://www.codeproject.com/Articles/17973/How-To-Get-Hardware-Information-CPU-ID-MainBoard-I"]


روابط من موقع Codeproject :
http://www.codeproject.com/Articles/1797...ainBoard-I[/url]

http://www.codeproject.com/Articles/1694...ithout-WMI


****
***
**
*

[أسامة السالمي]

(30-11-12, 03:02 PM)kslawy كتب : http://social.msdn.microsoft.com/Forums/...0b336b8635
في الرابط اعلاه اذهب للمشاركة رقم 7 بها صورة توضيحيه .


روابط من موقع Codeproject :
http://www.codeproject.com/Articles/1797...ainBoard-I

http://www.codeproject.com/Articles/1694...ithout-WMI


****
***
**
*

هل هذا هو الرقم الخاص بالهارديسك ("S1ADMYADC09741")

[أسامة السالمي]

(09-08-16, 11:47 PM)الكاتب كتب :

(09-08-16, 11:35 PM)أسامة السالمي كتب : هل هذا هو الرقم الخاص بالهارديسك ("S1ADMYADC09741")

لا

أخي أنا استخدمت هذا الكود :

PHP كود :

   Dim MOS_HD As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim mo_HD As ManagementObject
        For Each mo_HD In MOS_HD.Get()
            TextBox1.Text = mo_HD("Model").ToString() 


[أبو عمر]

PHP كود :

Add Reference to the System.Management Assembly.

For this you have to do:

1.   Go to Project Tab

2. Click on Add References

3. Click on .NET tab

4. Select System.Management and press ok
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim HDD_Serial As String

        Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")

        For Each hd In hdd.Get

            HDD_Serial = hd("SerialNumber")
            MsgBox(HDD_Serial)
        Next
    End Sub 


[أسامة السالمي]

مشكور أخي،،
لكن أعطاني نفس الرقم اللي بالأعلى