[سانسيفا]

في التصريحات العامة

PHP كود :

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 


PHP كود :

Public Sub OpenCDDriveDoor(ByVal State As Boolean) 
    If State = True Then 
        Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&) 
    Else 
        Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&) 
    End If 
End Sub 


في الزر " فتح السواقة "

PHP كود :

Private Sub Command1_Click() 
    OpenCDDriveDoor (True) 'فتح 
End Sub 


في الزر " غلق السواقة

PHP كود :

Private Sub Command2_Click() 
    OpenCDDriveDoor (False) 'اغلاق 
End Sub 


[محمد الحراري]

مشكور جداً