🔒 Closed Non lethal virus

Status
Not open for further replies.

reher

Honorary Poster
Create a harmless virus to continuously eject CD/DVD drives


1. Open notepad and copy the code given below:

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

2. Save the file with any name you want and the extention .vbs (eg. Virus.vbs)
3. Double click to open the above file and your small virus will continuously eject all your connected Optical drives even if you put them back in, it will pop them out again.

P.S- To close the above virus trick, open task manager and close the wscript.exe process.



I AM NOT RESPONSIBLE FOR ANY DAMAGE THIS MAY CAUSE
 
Status
Not open for further replies.

Similar threads

About this Thread

  • 2
    Replies
  • 175
    Views
  • 3
    Participants
Last reply from:
kentkent

Online now

Members online
336
Guests online
934
Total visitors
1,270

Forum statistics

Threads
2,275,518
Posts
28,963,813
Members
1,232,830
Latest member
dannan008
Back
Top