[VB6] تصميم و برمجة فايروس مقلب يربك الضحية و لا يؤذي الجهاز

السلام عليكم و رحمة الله
هذا مجرد درس تعليمي للفيوجوال بيسك
العام أبو موسى لنشر الموضوع
هذا الدرس سنصمم به فايروس مقلب و هو عبارة عن تقليد لنافذة فورمات الويندوز
فعند تشغيل الملف الناتج ستتصرف النافذة و كأنها تقوم فعلا بفورمات للقرص الصلب C
ثم تظهر بعدها رسالة تحذيرية تخبر بأن الفورمات اكتمل بنجاح
يمكنك اضافة صفحة جديدة مثلا )شاشة الموت( لتزيد من ارباك الضحية....
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
كنت قد عطلت فيه التحكم بالماوس
الشئ الذي يوهم الضحية بأنه فايروس فعلي
لانه يمنعه اطلاقا من التحكم في الجهاز أثناء عمل الفايروس المقلب
و نظرا لان الكود غير مطابق لشروط و أحكام المنتدى لما قد يسبب من أذى نفسي للضحايا
فقد قررت عدم التطرق له...
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
تصيم واجهة نافذة الفورمات
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هنا صورة متحركة بها جميع مرحل تصميم تقليد لواجهة نافذة فرمات الويندوز
http://img01.picoodle.com/img/img01/7/3/23/f_VirusFormatm_1888b13.gif
تم الانتهاء من تصميم الواجهة
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
البرمجة )الاوامر التي ستلقاها الفورم(
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
ننتقل الان الى الاوامر التي سيتقلاها الفايروس
كل ما سنحتاجه هو تحرك ال ProgressBar لايهام الضحية ان الفورمات في صدد التنفيذ
يكفي الكود التالي لعمل ال ProgressBar
ثم ظهور رسالة تأكيد نجاح الفورمات
سأشرح الكود خطوة خطوة
كود:
Private Sub Form_Load)(
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer)(
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value <= ProgressBar1.Max Then Timer1.Enabled = False
If ProgressBar1.Value = ProgressBar1.Max Then
MsgBox "تم فرمطة قرصك الصلب C بواسطة الفايروس القاتل ....."
End If
End Subبمجرد فتح النافذة قم بالاوامر التالية
القيمة الدنيا لل ProgressBar هي 0
القيمة القصوى لل ProgressBar هي 100
القيمة الحالية لل Progressar هي 0 )غياب الاشرطة الزرقاء(
مجال التوقيت هو 200 )المدة التي سيعمل خلالها البرنامج(
اثناء عمل التايمر )العداد( سيقوم بالاوامر الثانية
قيمة ال ProgressBar ستتزايد بقيمة 1
عندما تبلغ قيمة ال ProgressBar القيمة 100 أو ما فوقها اوقف عمل التايمر )العداد(
إذا بلغت قيمة ال ProgressBar القيمة 100 اضهر الرسالة التحذيرية الاتية
تم فرمطة قرصك الصلب C بواسطة الفايروس القاتل ...
هذا كل شئ
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
المرجو عدم وضع اي ملف تنفيذي في أي مشاركة...
لن أجيب على طريقة تعطيل الماوس و اخفائها من سطح المكتب و تعطيل لوحة المفاتيح و لو على الرسائل الخاصة...
أرجو الاستفادة من الموضوع بالشكل الصحيح
هدفنا ليس التخريب بل البناء و ا