Abrindo gaveta do drive de cd em VB

[_Guga_]

Abrir e fechar a gaveta do CDROM

Private Declare Function mciSendString Lib "winmm.dll" _
        Alias "mciSendStringA" (ByVal lpstrCommand As _
        String, ByVal lpstrReturnString As String, _
        ByVal uReturnLength As Long, ByVal hwndCallback _
        As Long) As Long

'PARA ABRIR
Call mciSendString("Set CDAudio Door Open Wait", 0&, _
     0&, 0&)

'PARA FECHAR
Call mciSendString("Set CDAudio Door Closed Wait", 0&, _
     0&, 0&)

[erase]

pooo gostei do código vai ser maneiro pra zuar com a caras dos amigos!!!!

[BGOROCK]

como é q eu faço pra usar esse código?? tenho o VB 2008 Express Edition mas não sei usá-lo! :wink:
Me ajudem por favor, queria ver se esse trem funciona..
vlw galera, Grande abraço a Todos

[Leandromrlaiom]

1. É só vc abrir novo projeto
2.colocar dois botões na interface do projeto, renomeie um botão como abrir CD e outro como fechar cd .
3 .de dois clicks no projeto escreva a primeira parte do código ("Private declare...........Até.............As long" ) entre as palavras public class... e Private Sub Button1_Click... para declarar as variaveis .
4.Depois de dois clicks no botao que vc renomeou como "abrir cd e coloque o codigo de abrir e depois de dois clicks no botao que renomeou como "fechar cd" e cole o resto do código.