[asemshahen5]

PHP كود :

Public Class Form1
    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
    Public Sub OpenCDDriveDoor(ByVal State As Boolean)
        If State = True Then
            mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
        Else
            mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenCDDriveDoor(True) ''فتح 
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        OpenCDDriveDoor(False) ''اغلاق 
    End Sub
End Class 


جربته و عمل معي بشكل جيد و الحمد الله رب العالمين .