Visual Basic 2008 aprire e chiudere un lettore cd

In Visual Basic 2008 a volte può essere molto utile aprire e chiudere un lettore cd o dvd. Per questo è presente la possibilità di inviare un messaggio al nostro lettore cd attraverso la libreria winmm. Dichiariamo quindi in un modulo questa funzione:

[sourcecode language=”vb”]
Module Module1
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal command As String, ByVal buffer As String, ByVal bufferSize As Int32, ByVal hwndCallback As IntPtr) As Int32
End Module
[/sourcecode]

Basterà dopo richiamare la funzione e inviare queste stringhe nel caso in cui vogliamo aprire e chiudere il disco E. Se il nome del nostro disco fosse diverso basterà cambiare la lettera e scrivere al posto di E la lettera D.

[sourcecode language=”vb”]
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mciSendString("open E: type CDAudio alias driveE", Nothing, 0, IntPtr.Zero)
mciSendString("set driveE door open", Nothing, 0, IntPtr.Zero)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mciSendString("open E: type CDAudio alias driveE", Nothing, 0, IntPtr.Zero)
mciSendString("set driveE door closed", Nothing, 0, IntPtr.Zero)
End Sub
End Class
[/sourcecode]

morocarlo

Sono uno studente di ingegneria informatica all'università di trieste. Sono appassionato di tecnologia, principalmente mi occupo/interesso di reti, hardware e software in generale. Programmo molto in Visual Basic .net (2008), ma conosco molto bene VB6. Ho le conoscenze basilari dei maggiori linguaggi di programmazione come php, asp, java, js, C#, Pascal e Assembly. SO: Windows 7, XP, Ubuntu, Mint, Netbook Remix

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *