03-07-17, 12:04 PM
الأخوة الكرام
أنا أحاول منذ فترة معرفة طريقة الحصول على رقم الهارد ديسك فى بيئة ويندوز7 بواسطة فيجوال بيسك 6 دون جدوى
الكود المستخدم بعد إضافة الأداة إلى المشروع هو
Private Sub Command1_Click()
Dim oHDD As Object
Set oHDD = CreateObject("HDSNLib.HDSN")
Text1.Text = oHDD.GetSerialNumber
Set oHDD = Nothing
End Sub
وقد قمت بتسجيل الأداة
hddsn.dll
فى
d:\windows\system32
بعد أن فشل تسجيلها فى ال
c
فهل من مساعدة؟ وشكرا
أنا أحاول منذ فترة معرفة طريقة الحصول على رقم الهارد ديسك فى بيئة ويندوز7 بواسطة فيجوال بيسك 6 دون جدوى
الكود المستخدم بعد إضافة الأداة إلى المشروع هو
Private Sub Command1_Click()
Dim oHDD As Object
Set oHDD = CreateObject("HDSNLib.HDSN")
Text1.Text = oHDD.GetSerialNumber
Set oHDD = Nothing
End Sub
وقد قمت بتسجيل الأداة
hddsn.dll
فى
d:\windows\system32
بعد أن فشل تسجيلها فى ال
c
فهل من مساعدة؟ وشكرا