كيف يمكن قراءة رقم hard disk

Code: vbnet:

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 للبرنامج

ممكن توضح أيه الفكرة من عمل هذا الموضوع و ربنا يسهل و نقدر نساعدك

أرجوا توضيح الملطوب

Imports System.Management



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

في فيجوال 2005 لا يوجد هذا الفضاء !!!!

Imports System.Management

هل هناك مشكلة او شي لدي؟

just add a reference to it

ابحث عن موضوع لي هنا باسم Windows Management Instrumentation وهترتاح خالص وتريح دماغك