[مبرمج مصرى]

كيف يمكن الحصول على السيريال نامبر(serial number) للقرص الصلب (hard disk)
وقد عرفت أن هن
وقد حاولت الحصول على الدالة Interop.HWINFOCOMLib.dll فى ال system32 g لكنى لم أجدها

[P39]

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 


[مبرمج مصرى]

شكرا يا أخى لقد جربت الكود لكن حصلت على خطأ فى ال error list وهو
type 'managementobjectsearcher' is not defined

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

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 

[مبرمج مصرى]

شكرا جزيلا يا أخى لقد عمل الكود على 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
بعد ان تنقل الملف الى  المسار المحدد
طبعا غير المسار هااااااااااااااه

[مبرمج مصرى]

الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال  serial number
أرجو الإفادة

[سعود]

(27-06-17, 04:53 PM)مبرمج مصرى كتب : الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال  serial number
أرجو الإفادة

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

---

ممتاز وجدت الحل
https://support.microsoft.com/en-sg/help...y-from-vis

[سعود]

يافرحة ما تمت
الشرح ينجح حين يكون كل الاصدارين بنفس النظام...

[sendbad100]

(27-06-17, 04:53 PM)مبرمج مصرى كتب : الأخ سعود
لقد نفذت ما قلته و اختفى الerror يعنى تم التسجيل
لكن لم يظهر ال  serial number
أرجو الإفادة

السلام عليكم

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


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