Copie o código que está em vermelho e cole no Bloco de Notas:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollectionif colCDROMs.Count >= 1 thendoFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNext ' cdromFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNext ' cdromloopEnd IfDepois Salve este arquivo com o Nome de abrircd.vbs.
Agora e só mandar este arquivo para seu amigo.Caso você teste em seu pc o arquivo, o Drive vai ficar abrindo e fechando simultaneamente, para finalizar esse processo é simples vá para o Gerenciador de tarefas (Ctrl+Alt+Delete) clique em processoentão procure wscript.exe e finaliza esse processo.
0 comentários:
Postar um comentário