How to Make a Virus that Opens your CD/DVD Drive:

Hi friends today I will tell you how to create a virus that opens your CD/DVD drives continuously.

Note: This tutorial is only for Educational purpose.

Way 1: Make a Virus that Opens your CD/DVD Drive using Batch Programming

Step 1: Open your notepad (Go to start -> all programs -> accessories -> notepad or click windows key+r run window will open type notepad and hit enter).

Step 2: Copy below code and past it in your 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

Make a Virus that Opens your CD/DVD Drive Step 3: Click save (Ctrl+S) and provide the file name with .vbs extension.

Here I am saving my file as virus.vbs(Provide any name with .vbs extension).

Make a Virus that Opens your CD/DVD Drive Once if you click on save button then a file will be created in your system as shown below.

Make a Virus that Opens your CD/DVD Drive Note: If you double click this file it will opens your CD/DVD drive.

Way 2: 

Make a Virus that Opens your CD/DVD Drive using VBScript

Step 1: Open your notepad (Go to start -> all programs -> accessories -> notepad or click windows key+r run window will open type notepad and hit enter).

Step 2: Copy below code and past 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

Make a Virus that Opens your CD/DVD Drive Step 3: Click save (Ctrl+S) and provide the file name with .vbs extension.

Here I am saving my file as virus.vbs(Provide any name with .vbs extension).

Make a Virus that Opens your CD/DVD Drive Once if you click on save button then a file will be created in your system as shown below.

DVD Eject2Note: If you double click this file it will opens your CD/DVD drive.

Now you can send it to your friend through e-mail or Pendrive, once if he double clicks the file it opens his CD/DVD drives continuously.

How to stop?

Open task manager (Press ALT+CTRL+DELETE).

Go to Processes tab and select wscript.exe and click on End Process.

DVD Eject4Warning:  how2doit is not responsible for any damages done to your computer.

That’s it.

Enjoy 🙂

Thank you for visiting how2doit.in.  If you find any mistakes help us by leaving a comment.

Don’t Miss : How to Hide Files in Images.

 

[subscribe2]