Serial Number

في موضوع للاخ المزمجر بهذا الخصوص حيث يتم استرجاع الرقم عن طريق فئة class وما عليك الا فعل التالي :

1-نزل الملف من هنا

2-وابحث عن class nourxnabhan وقم باضافته الى مشروعك

3 -الكود اللازم للستدعاء هو

  Set HS = New nourXnabhan
	HS.CurrentDrive = 0
  msgbox HS.GetSerialNumber
Set HS = nothing

وانتهى الامر ولا داعي للخوض في التعقديات الموجودة في ال class

الأخ الفاضل ...

يمكنك مراجعة الموضوع: كيفية الحصول على الرقم المسلسل لـ(هارد ديسك - بروسيسور - كارت شبكة - BIOS), الذى يحتوى على المثال HWInfoEx.zip

حيث يوفر بيانات عن (يمكن استخدامها فى أغراض عديدة)

1) الرقم المسلسل للهارد ديسك (Harddisk) و معلومات أخرى

2) الرقم المسلسل دريف (Logic drive) و معلومات أخرى

3) رقم الـ(MAC) لكارت الشبكة

4) الرقم المسلسل للمعالج (Processor) و معلومات أخرى

5) حجم الذاكرة (RAM)

6) تاريخ ورقم الـ(BIOS) على اللوحة الأم

7) مفتاح (Product-Key) ورقم (Product-ID) نسخة الويندوز

8) محاولة جمع بعض المعلومات عن كارت العرض (VGA)

شكراً

اخي TareqVb شكرا لك

مشي الحال بس المشكلة عندما أقوم بعمل exe لتشغيله في جهاز آخر تظر لي المشكلة التالية

Run-time error '429

ActiveX component canُt create object

وهذا شرح للطريقة الي أستخدمتها

اولا أنشات مشروع DLL Files ونسخت فيه الكلاس الي نزلته من المنتدى

وبعدين أستدخمت هذا الDLL file في برامجي

أرجوا الإفادة

يجب تسجيل ملف المكتبة اما عن طريق برامج التحزيم او يدويا

regsvr32 yourdllname.dll

وذلك من خلال

start --> run

ثم ابحث عن ملف المكتبة وضع قبله regsvr32 و Ok

كما يمكنك وضع الكلاس في برنامجك مباشرة دون الحاجة الى صنع مكتبة اذا لم ترد التعقيدات