منتدى فيجوال بيسك لكل العرب

نسخة كاملة : معرفة الرقم التسلسلى للهارد ديسك hard disck serial
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

الكود التالى يستخدم لجلب الرقم التسلسلى للهارد ديسك 

("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

ملاحظات 
1- يعمل الكود فى حالة وجود هارد واحد فقط للجهاز
2- يجب اضافة مكتبة systeme.managament عن طريق add reference

تحميل المشروع
(17-06-17, 05:06 PM)arbtech كتب : [ -> ]

الكود التالى يستخدم لجلب الرقم التسلسلى للهارد ديسك 

("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

ملاحظات 
1- يعمل الكود فى حالة وجود هارد واحد فقط للجهاز
2- يجب اضافة مكتبة systeme.managament عن طريق add reference

تحميل المشروع

شكرا اخى الكريم على الموضوع

تم وضع المشروع فى المرفقات للتيسير على الإخوة لان موقع الرفع يطلب الانتظار و التاكيد