كل عام وانتم بخير 
من طرف السلام عليكم و رحمة الله
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هذا مجرد درس تعليمي للفيوجوال بيسك
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هذا الدرس سنصمم به فايروس مقلب و هو عبارة عن تقليد لنافذة فورمات الويندوز
فعند تشغيل الملف الناتج ستتصرف النافذة و كأنها تقوم فعلا بفورمات للقرص الصلب C
ثم تظهر بعدها رسالة تحذيرية تخبر بأن الفورمات اكتمل بنجاح
يمكنك اضافة صفحة جديدة مثلا (شاشة الموت) لتزيد من ارباك الضحية....
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
تصيم واجهة نافذة الفورمات
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هنا صورة متحركة بها جميع مرحل تصميم تقليد لواجهة نافذة فرمات الويندوز
تم الانتهاء من تصميم الواجهة
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
البرمجة (الاوامر التي ستلقاها الفورم)
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
ننتقل الان الى الاوامر التي سيتقلاها الفايروس
كل ما سنحتاجه هو تحرك ال ProgressBar لايهام الضحية ان الفورمات في صدد التنفيذ
يكفي الكود التالي لعمل ال ProgressBar
ثم ظهور رسالة تأكيد نجاح الفورمات
سأشرح الكود خطوة خطوة
كود:۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هذا مجرد درس تعليمي للفيوجوال بيسك
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هذا الدرس سنصمم به فايروس مقلب و هو عبارة عن تقليد لنافذة فورمات الويندوز
فعند تشغيل الملف الناتج ستتصرف النافذة و كأنها تقوم فعلا بفورمات للقرص الصلب C
ثم تظهر بعدها رسالة تحذيرية تخبر بأن الفورمات اكتمل بنجاح
يمكنك اضافة صفحة جديدة مثلا (شاشة الموت) لتزيد من ارباك الضحية....
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
تصيم واجهة نافذة الفورمات
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هنا صورة متحركة بها جميع مرحل تصميم تقليد لواجهة نافذة فرمات الويندوز
تم الانتهاء من تصميم الواجهة
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
البرمجة (الاوامر التي ستلقاها الفورم)
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
ننتقل الان الى الاوامر التي سيتقلاها الفايروس
كل ما سنحتاجه هو تحرك ال 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 بواسطة الفايروس القاتل ...
هذا كل شئ
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
المرجو عدم وضع اي ملف تنفيذي في أي مشاركة...
لن أجيب على طريقة تعطيل الماوس و اخفائها من سطح المكتب و تعطيل لوحة المفاتيح و لو على الرسائل الخاصة...
أرجو الاستفادة من الموضوع بالشكل الصحيح
هدفنا ليس التخريب بل البناء و التعليم بطرق مسلية
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
تحياتي للجميع
القيمة الدنيا لل ProgressBar هي 0
القيمة القصوى لل ProgressBar هي 100
القيمة الحالية لل Progressar هي 0 (غياب الاشرطة الزرقاء)
مجال التوقيت هو 200 (المدة التي سيعمل خلالها البرنامج)
اثناء عمل التايمر (العداد) سيقوم بالاوامر الثانية
قيمة ال ProgressBar ستتزايد بقيمة 1
عندما تبلغ قيمة ال ProgressBar القيمة 100 أو ما فوقها اوقف عمل التايمر (العداد)
إذا بلغت قيمة ال ProgressBar القيمة 100 اضهر الرسالة التحذيرية الاتية
تم فرمطة قرصك الصلب C بواسطة الفايروس القاتل ...
هذا كل شئ
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
المرجو عدم وضع اي ملف تنفيذي في أي مشاركة...
لن أجيب على طريقة تعطيل الماوس و اخفائها من سطح المكتب و تعطيل لوحة المفاتيح و لو على الرسائل الخاصة...
أرجو الاستفادة من الموضوع بالشكل الصحيح
هدفنا ليس التخريب بل البناء و التعليم بطرق مسلية
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
تحياتي للجميع
