المشروع الثانى: كيف تصنع Fake Anti-Virus بواسطة الفجيوال 2010 شرح بالصور

[tomjerry741]

المشاركة الأصلية كتبت بواسطة مدرس بالاجر

بسم الله الرحمن الرحمن
اقدم لكم الان مشروعى الثانى لكى تفهم كيفية البرمجة بالفجيوال بيسك 2008/ 2010
واتمنى من الله ان يوفقنى فى سلسلة الدروس التى اقدمها لكم
مشروعنا الثانى سيكون عبارة عن صنع برنامج انتى فيرس وهمى
والمشروع الثالث بأذن الله سيكون كيف تصنع برنامج انتى فيرس حقيقى ولكننى فضلت ان اشرح لك كيف تصنع
انتى فيرس وهمى الان لكى تعرف كيفية استخدام الادوات المناسبة والاوامر والخصائص باسلوب واضح وبسيط

نبدأ الدرس بـــ " اسم الله الرحمن الرحيم " اللهم لا سهل الا ما جعلته سهلا وانت تجعل الحزن ان شئت سهلا

اولا
قم بفتح برنامج فجيوال بايسك من ايقونة الموجودة على سطح المكتب او من خلال قائمة ستارت
اضغط على " انشاء مشروع جديد new project" ثم فى خانة اسم المشروع يمكنك ان تكتب مثلا
fake anti-virus
او اى اسم اخر يروق لك -- ليكون اسما مميزا لبرنامجك


اضغط على الفورم form1 وقم بتغيير الاسم فى الخاصية تكست الى fake anti-virus مثلا
وقم باضافة ثلاثة ازرار الى الفورم
----------------------
ثانيا
- قم بتغيير اسم الزر الاول الى scan
والزر الثانى الى stop
والزر الثالث الى view virses

حتى تستطيع تحجيم الفورم ولا يستطيع المستخدم تكبير او تصغير نافذة مشروعك وبرنامجك
حدد الفورم وانظر يسارا فى نافذة الخصائص وابحث عن كلمة
maxmizesize
وغير قيمتها الى false

وكذلك حتى لا يستطيع مستخدم برنامج من تكبير الفورم بواسطة السحب والافلات قم بتعطيل هذة الميزة ايضا
من خلال auto size mode وغير قيمتها من grewonley
الى القيمة grewandshrink
كلمة شرنك تأتى بمعنى تقليص تقريبا وهنا نعنى بها عدم تقليص او تكبير حجم الفورم
كما بالصورة السابقة باعلى
-------------------------
ثالثا
- ناتى الان الى مرحلة اضافة نافذة فورم جديدة
المعروف تقليديا اننا ننشئ نافذة واحدة بها كل ما نحتاجة ولكننا هنا نفكر فى انشاء نافذة جديدة نعرض فيها
نتيجة الفيروسات التى سوف تظهر بعد انتهاء الفحص حيث انه لا يمكن عرضها فى نفس الشاشة الا لو كان حجم الفورم بتاعنا عملاق جدا

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



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


--------------------------------------

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






------------------------------------------------
-
والان نأتى لمرحلة برمجة الازرار بالاكواد
نضغط على الزر الاول الذى كتبنا عليه اسم سكان ونكتب هذا الكود
Timer1.Start()

نضغط على الزر الثانى الذى كتبنا عليه اسم ستوب ونكتب هذا الكود

Timer1.Stop()
كما بالصورة الاتية





----------------------------------
-
نريد ان نجعل الزر الثالث والذى كتبنا علية view viruse غير واضحا يعنى غير مرئى للمستخدم حتى ينتهى
الفحص
نضغط دبل كليك على الفورم مرتين ونكتب فى منطقة الكود هذا الامر البرمجى ليصبح الزر غير متاح الا بعد انتهاء شريط التقدم من بلوغ الرقم 100 اى حتى انتهاء الفحص تماما
نكتب فى الكود
Button3.Enabled = False
بمعنى : ان الزر الثالث سوف يكون غير مرئى الان حتى انتهاء الفحص وسوف نعرف لماذا وكيف يتم هذا
enabled تعنى انه: لا تجعل الزر الثالث متاحا حتى ........ سنعرف فيما بعد
اما الان فعلينا ان نعود الى نافذى الفورم الاول مرة اخرى ونضغط على الزر الثالث الذى كتبنا له اسم view viruses
ونكتب هذا الكود
View_Viruses.Show()
وكلمة View_Viruses هو اسم الفورم الثانى الذى قمنا بتسميتة حين اضفناه سابقا فى الصورة الثالثة باعلى
ومعنى الكود
انه بمجرد ضغط على الزر الثالث ينبغى ان يظهر الفورم الثانى اى النافذة الاخرى التى سوف تظهر لنا اسماء الفيروسات او عددها مثلا
والشرح بالصورة -- اضغط الصورة للتكبير





----------------------------
-
نعود مرة اخرى الى الفورم الاول ونضغط دبل كليك على التايمر الاول لدينا
ونكتب هذا الكود
ProgressBar1.Value = +1
If ProgressBar1.Value = 100 Then
Timer1.Stop()

End If




والمعنى واضح كما شرحنا فى درسنا الاول السابق ولكن نعيدة للاعضاء الجدد
ProgressBar1.Value = +1
يفترض هنا ان يقوم شريط التقدم بمقدار شرطة واحدة حتى يصل الى نهايتة
اما


Timer1.Stop()
If ProgressBar1.Value = 100 Then
End If
فقد استخدمنا قاعدة اذا ....... الشرطية
اذا وصلت قيمة شريط التقدم الى الرقم 100 ففى هذة الحالة ينبغى ان يتوقف التايمر واحد عن العد
.................................................. ........

نضغط الان على الفورم الثانى الذى انشأناة ولم نقترب منه حتى الان ونصنع الاتى
نضع خلفية صورة مناسبة من خلال الخاصية
باك جراوند ايمج فى نافذة الخصائص على ايدك الشمال
ثم نضيف عدد واحد شريط تقدم بروجرس بار
ونضيف واحد تايمر جديد
ونضيف ايضا عدد 2 ليبل 2lable
ونغير اسم الليبل واحد الى Major viruse: 4 او اى اسم اخر يعجبك
ونغير اسم الليبل الثانية الى viruses found: 12 او اى اسم اخر يعجبك
ونضيف زر اخر اسفل شريط التقدم ونغير اسم الزر الى Clean Viruses

وكذلك من خصائص الخط فى الفون نقوم بتكبير حجم الكلام بهما كما بالصورة الاتية


عفوا
فى الصورة نسيت اضافة Button1 جديد لكن ما يهمنا هنا
ان نضيف زرا ونغير اسمة من الخاصية تكست نيم للزر ونكتب علية تنظيف بالعربى او بالانجليزى
------------------------------------------
نحن الان فى الفورم الثانى الذى يظهر لنا نتيجة الفيروسات التى تم اكتشافها على سبيل المثال - نقوم ببرمجة الزر "كلين فيرس" بالامر السابق بالاعلى = وفى التايمر الاول فى الفورم الثانى نكتب الكود الموجود هنا بالصورة
نضغط دبل كليك على الزر كلين
ونكتب Timer1.Start()
لكى يشتغل المؤقت وكى يشتغل شريط التقدم
ونعود مرة اخرى الى الفورم الثانى نفسه ونضغط دبل كليك على التايمر 1
ونكتب الكود التالى
ProgressBar1.Value = +1
If ProgressBar1.Value = 100 Then
Timer1.Stop()

End If

لا داعى لشرح معنى الكود فالمعنى واضح لمن كان له قلب او القى السمع وهو شهي







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



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


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

المشاركة الأصلية كتبت بواسطة مدرس بالاجر

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

If ProgressBar1.Value = 100 Then
Button3.Enabled = True
End If
وهو يعنى انه بعد ان يصل شريط التقدم الى نهايتة فينبغى ان يصبح الزر الثالث الذى يعرض نافذة الفورم الثانى مرئيا
اعذرونى على هذا السهو غير المقصود وقوموا بكتابة الكود بهذا الشكل كما بالصورة التالية وهى الاخيرة




بعد ان تنتهى لا تنسى الضغط على الزر اف5 ---------- ( F5) حتى ترى نتيجة عملك
اضغط save lن قائمة فايل فى برنامج الفجيوال بايسك
يمكنك ان تتتعلم كيف تصنع برنامج ملف تنفيذى لو تابعت الدروس القادمة بازن الله
والان لنرى الشكل النهائى لبرنامجنا الوهمى هذا





والسلام عليكم ورحمة الله وبركاتة

----------------------------------------------