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

الأخوة الكرام

أنا أحاول منذ فترة معرفة طريقة الحصول على رقم الهارد ديسك فى بيئة ويندوز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


فهل من مساعدة؟ وشكرا

إقتباس :وقد قمت بتسجيل الأداة 
hddsn.dll 
فى
 d:\windows\system32 

كيف قمت بتسجيلها؟؟
لقد مررت بتجربة  لايعمل او لاتعمل الاداة الا من خلال الملف التنفيذي للبرنامج ولا تعمل مع المشروع vb6.0

راجع الموضوع التالي قد يفيدك
http://vb4arb.com/vb/showthread.php?tid=20903

أهلا بك أخي الكريم , أيضا هذا رابط موضوع يتحدث عن ماتريد تابع الموضوع إلى نهاية صفحاته :
http://vb4arb.com/vb/showthread.php?tid=15182