Come creare con Visual Basic 2008 un programma che fa chiudere e aprire il lettore CD/DVD???

Da **Admin** Gio Mag 20, 2010 2:13 pm

Create un nuovo progetto mettendo due button:

Cancellate
tutto e scrivete (ma per davvero scrivetelo voi se volete imparare a programmare) questo codice sorgente:

Codice:: Public Class Form1 Public Declare Function OpenDrawerCD Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'Abilita la funzione di apertura e chiusura del cassetto CD Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click OpenDrawerCD("set CDAudio door open", Nothing, 127, 0) 'Apre End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenDrawerCD("set CDAudio door closed", Nothing, 127, 0)'Chiude End Sub End Class