Criando um aplicativo para abrir e fechar o leitor de DVD no VB.NET

Veja o passo a passo para criar um aplicativo para abrir e fechar o leitor de CD e DVD no VB.NET.

Primeiramente crie uma aplicação para desktop em VB.NET, automaticamente será gerado um formulário chamado Form1, abra o mesmo e adicione os seguintes controles.

  • Adicione 2 botões e renomeie o primeiro para Abrir e o segundo para Fechar

Criando um aplicativo para abrir e fechar o leitor de DVD no VB.NET

Clique no formulário com o outro botão do mouse, clique em exibir código, antes de “Public Class” e digite os códigos abaixo:

Imports System.Runtime.InteropServices
Imports System.Text

Abaixo de “Public Class” digite os seguintes códigos:

<DllImport("winmm.dll")>
Private Shared Function mciSendString(command As [String], buffer As StringBuilder, bufferSize As Int32, hwndCallback As IntPtr) As Int32
End Function

Volte para o design do formulário, clique duas vezes sobre o primeiro botão e digite:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    mciSendString("set CDAudio door open", Nothing, 0, IntPtr.Zero)
End Sub

Volte para o design do formulário, clique duas vezes no segundo botão e digite:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    mciSendString("set CDAudio door closed", Nothing, 0, IntPtr.Zero)
End Sub

Pronto! Agora é só compilar o projeto e rodar em seu computador para realizar um teste.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *