1º Abrir o Bloco de Notas ;
2º Copiar e colar o seguinte código :
Código: Selecionar todos
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 0
loop
4º Inventem uma desculpa credível para fazer com os vossos amigos/inimigos abram esse ficheiro no PC deles
5º Quando se fartarem de ver o suporte para copos a abrir e a fechar , é só Ctrl + Alt + Del e fechar o processo com o nome de wscript.exe
6º Não me responsabilizo por danos cardíacos a loiras
P.S : Há computadores em que o delay para voltar a abrir a drive é um pouco demorado , mas nada demais do que 12 segundos . Há outros , caso do meu portátil em que simplesmente nem um segundo fica fechado abre logo . Também funciona com computadores com 2 drives de CDs/DVDs
Experimentem primeiro no vosso , até que é porreiro