صمم الفايروس الخاص بك

الفايروسات 

الجزء الثاني

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

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

كيف نحصل على اسم الشخص 

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

خط سير البرنامج

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

 

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

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

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

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

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

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

 

 

نصيحة من آسر قبل ان  نتقل  الي الجزء الثالث

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

 

ارجو ان تكونو قد استفدتوا