Programas, Dicas, Tutoriais, Jogos, etc.

“Casamento é coisa de hétero, arrumem um outro nome”, pede Malafaia

O pastor Silas Malafaia, do Ministério Vitória em Cristo, usou as redes sociais para comentar uma decisão do Tribunal de Direitos Humanos ...



quarta-feira, dezembro 29

Como Abrir e fechar o CD-DRIVE por comando

Postado por Gui_Dutra
Ola pessoal, tudo bem? espero que sim, hoje vou estar ensinando como abrir o cd-drive por um arquivo feito pelo bloco de notas, que para sacanear, pode ser enviado a amigos no MSN, eh bem basico voce deve colar o seguinte codigo:
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


pegue este codigo, cole no bloco de notas, e salve NOME-QUE-VOCE-QUER.vbs importante ser .VBS no final, ex: michael.vbs 
caso contrario nao funcionara.
Agora, é só abrir, que o cd começa a abrir e fechar, entao mande para amigos, e pronto.



Fontehttp://semnetsemvida.blogspot.com/
Compartilhar:
←  Anterior Proxima  → Página inicial

0 comentários:

Postar um comentário

Follow by Email

Blogs Amigos

Seguidores