Cd Rom'u Açıp Kapatan Kod(visual basic)

arkadaşlar öncelikle visual basicte iki tane button form üzerine yerleştirin ve sonra aşagıdaki kodları yazın kopyalayıp yapıştırın
forma çift tıklayın çıkan penceredeki kodları silin direk yapıştırın bu kadar

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub

Private Sub Command2_Click()
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub

heytttt bea lower a bak ne konular acmıs helal olsun : )

(çaktırmayın)...

ne loweri len ben açtım :D:D