السلام عليكم ورحمة الله وبركاته وهذا الدرس الجديد من WTP
فى هذا الدرس سنتعرف معا على طريقة صنع فيروس ممتع جدا عن طريق النوت باد
وهى تعتبر مزحة خفيفة جدا فمن خلال هذا الفيروس تسطيع جعل ال CD-Rom الخاص بضحيتك او صديقك او حتى بك لا يغلق !!!!
فعندما تحاول اغلاقه سوف يفتح تلقائيا ولن تسطيع غلقه ابداً إلا بإيقاف الفيروس (اخر الدرس)
لتطبيق الفيروس اتبع التالى
أ-فتح النوت باد
1- افتح start
2-افتح Run
3-اكتب Notebad
ستفتح لك النوت باد خذ هذا الكود والصقه فيها
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
ثم اضغط CTRL+S لحفظ الملف
احفظه باسم CDrom.vbs
واضغط على كلمة Text Document وغيرها إلى كلمة all files
ثم اضغط على Save
هكذا بمجرد الضغط على الملف ستشاهد ال CD-rom لا يدخل ابداً !!!
لإيقاف الفيروس
افتح ال (Task manager (ctrl+shift+esc
اضغط على process فى الاعلى
ابحث عن كلمة wscript.exe واضغط عليها
اضغط على End processes فى الاسفل
وهكذا يتوقف الفيروس
تسطيع تجريبه على نفسك بدون خوف
إلى اللقاء فى درس قادم
.bmp)
.bmp)
