21/02/2015, 12:10
KAYNAK KODLARI-PROGRAM açıklamada
İNDİRME LİNKİ : youtubede
Kod:
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mciExecute("Set CDAudio door Open")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mciExecute("Set CDAudio door closed")
End Sub
End Class