Monte um vírus - 3 minutos

Hoje iremos ensinar a vocês, como já viram no título a montar um vírus
bom basicamente ele não e um vírus destrutível, daqueles tipo que você
deleta os arquivos de outro pc, Porem esse vai concertar fazer você dar
boas gargalhadas, porque ele vai fazer com que o leitor de DVD do
computador de seu colega ou ''Vitima'', fique abrindo e fechando, ou seja
toda vez que fecham o leitor de DVD automaticamente ele abrira.
Tutorial

1 ° Abra o bloco de notas e digite, o seguinte código abaixo
( atenção não altere nada)


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

2° Salve esse arquivo, com o seguinte nome
    NOMEDOQRQUIVO.VBS
    ou seja em nomedoaqrquivo você coloca o que quiser mais não pode esquecer de sempre
    colocar .VBS no final
3° salve do desktop e pronto vírus criado.

Solução

1° para solucionar o virus, caso tenha clicado nele basta voce clicar
  CTRL + ALT + DEL
  e feche o seguinte arquivo  wscript.exe