Cd-Rom Açma Kapama[VB.NET]

21/02/2015, 12:10

Mustafa Furkan yesil



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