Saturday, 18 March 2017

Harmless Funny Virus



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

Copy and paste above code in notepad and save it as MyVirus.vbs

Double click to open this file and you will be impressed by this awesome trick because it will continuously eject your CD/DVD drive. if you put them back in, it will again eject CD/DVD drive.

How to STOP ?

Open task manager by pressing  ctrl+alt+del simultaneously.
Click on process tab
Select wscript.exe
Click on end process.

No comments:

Post a Comment