Visual Basic ile Bilgisayarın Cd Kapağını Açma (1 Viewer)

Aşağıda verdiğim kodları butona yerleştirin ve işlem tamamdır.

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub

Private Sub Command2_Click()
mciExecute ("Set CDAudio door closed")
End Sub