الجزء الثاني

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

طبعا اذا كنت حفظت عملك السابق فقط افتح المشروع واكمل معنا اما اذا لم تحفظه اتبع الخطوات في الجزء الأول ثم اكمل معنا

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

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

سوف نضيف للمشروع تعريف لدوال ويندوز التي سوف تفيدنا في معرفة اسم الشخص

main بكل بساطة انسخ هذا السطر الاحمر وضعه في اعلى نافذة الموديول قبل الآجراء

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

الآن سوف نكتب الشفرة الخاصة بالبرنامج وسوف تكون نافذة الكود كالتالي

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub main( )
Dim s$
Dim A As Long
Dim R As String

s$ = String$(100, 0)
A = GetUserName(s$, 100)
A = InStr(s$, Chr$(0))
R = Left$(s$, A - 1)
MsgBox "كيف حالك يا " + R + " المحترم"
End Sub

طبعا في اعلى النافذة كما هو واضح تعريف دالة ويندوز ثم يبداء الاجراء

الرئيسي بتعريف متغيرات لنخزن فيها اسم صاحب الجهاز بعد ان نحصل على اسم صاحب الجهاز نعرض رسالة تتكون من الترحيب ثم اسمه الذي يوجد في المتغير

ثم كلمة المحترم بعد عرض الرسالة ينتهي البرنامج

لنفرض ان من حمل البرنامج اسمه في الجهاز مشتق الولهان هنا سوف يقوم برنامجنا بالبحث عن اسم المستخدم في الويندوز ثم يضيفه

عندما نقوم بتشغيل برنامجنا الان سوف يعرض لنا الرسالة التالية ثم ينتهي

نصيحة لا تقوم بكتابة بياناتك الحقيقية عند تحميل الويندوز أو في أي موقع أو قاعدة بيانات علي الانترنت لانها تكون معرضة لللأختراق

و عند تحميل الويندوز ممكن أت تضع بدلا من أسم المستخدم أي علامة أو حرف لا يدل عليك