Hoje a dica é para zoar com seus amigos,com um script feito no bloco de notas você pode se divertir bastante.
É simples e rápido,ao executar o arquivo o drive de CD/DVD abre e fecha constantemente.
Para saber o que fazer assista a vídeo aula abaixo:
Código usado na vídeo aula
Código usado na vídeo aula
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
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
ATENÇÃO:O código deve ser salvo em NEGRITO e a extensão do arquivo tem que ser vbs.Exemplo:Nome do arquivo.vbs
Para que o drive volte ao normal tem duas maneiras:
1-Abrir o gerenciador de tarefas pressionando Ctrl+Alt+Delete e finaliza o processo de nome: wscript.exe ;
2- Reinicia o computador.
Agora é só criar o arquivo e manda para seus amigos.Boa diversão!!!