Virus that ejects CD/DVD drive....-- EASY TUTORIAL

Hello friends, today we will learn to make a virus that ejects the CD/DVD drive. Its very simple and easy. But friends use it for educational purpose....

so lets start the tutorial....

Friends if you have to watch the video for this tutorial then click here.

WAYS TO MAKE THIS VIRUS....

WAY 1::MAKE VIRUS THROUGH BATCH PROGRAMMING..

1. Go to your notepad. ( Go to start -> All programs -> Accessories -> click on notepad or click on the windows + R and type notepad in the run box and hit enter.

2. Now copy the below code and paste it in the 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 3000

loop

3. Now click save (Ctrl + s) and save that file in .vbs extension.

Here you can see I am saving the file in CD drive.vbs format.

4. Once saved by the decided name then that file will look like this.....

If you double click this file and your CD or DVD drive will eject...

WAY 2. ::MAKE VIRUS THROUGH VBscript...

1. Go to your notepad. ( Go to start -> All programs -> Accessories -> click on notepad or click on the windows + R and type notepad in the run box and hit enter.

2. Now copy the below code and paste it in your notepad.....

do

Dim ts

Dim strDriveLetter

Dim intDriveLetter

Dim fs ‘As Scripting.FileSystemObject

Const CDROM = 4

On Error Resume Next

Set fs = CreateObject(“Scripting.FileSystemObject”)

strDriveLetter = “”

For intDriveLetter = Asc(“A”) To Asc(“Z”)

Err.Clear

If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then

If Err.Number = 0 Then

strDriveLetter = Chr(intDriveLetter)

Exit For

End If

End If

Next

Set oWMP = CreateObject(“WMPlayer.OCX.7” )

Set colCDROMs = oWMP.cdromCollection

For d = 0 to colCDROMs.Count – 1

colCDROMs.Item(d).Eject

Next ‘null

For d = 0 to colCDROMs.Count – 1

colCDROMs.Item(d).Eject

Next ‘null

set owmp = nothing

set colCDROMs = nothing

loop

3. Now save this file (Ctrl + S) in .vbs extension..

Here you can see that I have saved this file as CD drive.vbs...

Your file will look like this....

Now it is just for educational purpose so don't click on it .......

so this all for today, stay tuned with me and learn new tips and tricks.....

I will come up with new trick soon so till then Goodbye and have a virus day!!!!!