إستدعاء رقم السريال للهارديسك.

السلام عليكم إخواني الأعزاء ورحمة الله وبركاته

سأقدم لكم في هذه المشاركة طريقة استدعاء رقم السريال للهارديسك الموجود في جهازك من خلال استخدام كود سهل وبسيط جدا، بحيث يمكن الإستفادة منه كبصمة لأي برنامج تريد أن تضعه على حاسوب الزبون.

• الخطوة الأولى :

1. قم بإنشاء نموذج فارغ.
2. قم بإدراج مربع نص.
3. قم بإدراج زر أمر.

• الخطوة الثانية :

1. إضغط بيمين الفأرة على زر الأمر واختر الخيار خصائص في ذيل اللائحة.
2. قم باختيار التبويب الحدث.
3. قم باختيار الحدث عند الضغط OnClick.

• الخطوة الثالثة :

1. ضع الكود التالي : 

2. Me.Text0 = CreateObject("Scripting.filesystemobject").getdrive("C:\").serialnumber