Scripts do capiroto

Me disseram que um cara já chamou um exorcista por causa disso.

Tá aqui o codens:

Set oWMP = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = oWMP.cdromCollection 
wscript.sleep 600000 
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 120000 
loop

Aqui tem um outro pra caso você queira que seu computador diga “bom dia bátima” toda vez que iniciar (faça o mesmo processo acima):

CreateObject("SAPI.SpVoice").Speak"good morning batman"

Tweet

TAGS: Scripts do capiroto

Postado por Joe Loreto
em Etcéteras

Comentários