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

نسخة كاملة : السيريال نامبر(serial number) للقرص الصلب (hard disk)
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كيف يمكن الحصول على السيريال نامبر(serial number) للقرص الصلب (hard disk)
وقد عرفت أن هن
وقد حاولت الحصول على الدالة Interop.HWINFOCOMLib.dll فى ال system32 g لكنى لم أجدها
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.ObjectAs System.EventArgsHandles 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 
شكرا يا أخى لقد جربت الكود لكن حصلت على خطأ فى ال error list وهو
type 'managementobjectsearcher' is not defined

فى السطر الثالث من الكود


Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.
Click
    Dim HDD_Serial 
As 
String
   Angry   Dim hdd 
As New ManagementObjectSearcher("select * from Win32_DiskDrive"
) Angry
 
   For Each hd In hdd.
Get
        HDD_Serial 
hd("SerialNumber"
)
 
       MsgBox(HDD_Serial
)
 
   Next
End Sub 
شكرا جزيلا يا أخى لقد عمل الكود على visual basic 2008  بعد إضافة السطر Imports System.Management

,ولكنى أطلب منك طريقة الكود ل visual basic 6 لأن البرنامج الذى أعمل فيه الآن أعمله بواسطة  visual basic 6  إذا أمكن وشكرا
جزاكم الله خيرا
قمت بتشغيل الكود ل visual basic 6 ولكن لم تنجح عملية تسجيل ملف ال dll فى ال system32 وتظهر رسالة من command prompt.exe 
فهل من مساعدة؟
(27-06-17, 03:43 PM)مبرمج مصرى كتب : [ -> ]جزاكم الله خيرا
قمت بتشغيل الكود ل visual basic 6 ولكن لم تنجح عملية تسجيل ملف ال dll فى ال system32 وتظهر رسالة من command prompt.exe 
فهل من مساعدة؟

اذا نظامك اكس بي نفذ الكومند هذا
regsvr32 D:\WINDOWS\system32\HDDSN.dll
بعد ان تنقل الملف الى  المسار المحدد
طبعا غير المسار هااااااااااااااه Smile
الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال  serial number
أرجو الإفادة
(27-06-17, 04:53 PM)مبرمج مصرى كتب : [ -> ]الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال  serial number
أرجو الإفادة

هذا اللي مااقدر اعرفه لانه عندي ظهر ...
اتمنى احد يدلنا شلون نسوي ملف dll بالدوت نت ويتم تسجيله باكس بي

ممتاز وجدت الحل
https://support.microsoft.com/en-sg/help...y-from-vis
يافرحة ما تمتSad
الشرح ينجح حين يكون كل الاصدارين بنفس النظام...
(27-06-17, 04:53 PM)مبرمج مصرى كتب : [ -> ]الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال  serial number
أرجو الإفادة

السلام عليكم

شغل البرنامج  الفجوال بيسك كمسؤول 


ايضا ملف exe   بعد  الترجمة  يجب ان يشتغل كمسؤول