• Home
 · 
• Windows System Services
 · 
• This programme is to open and close your CD Roms tray You dont have to touch your cd roms controls

This programme is to open and close your CD Roms tray You dont have to touch your cd roms controls

This programme is to open and close your CD Roms tray You dont have to touch your cd roms controls

Rate This programme is to open and close your CD Roms tray You dont have to touch your cd roms controls

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Command for closing CD tray
Private Sub Command1_Click()
Dim lRet As Long
lRet = mciSendString("set cdaudio door closed", returnstring, 127, 0)
Form1.Caption = "CD Tray Closed"
End Sub

'Command for opening CD tray
Private Sub Command2_Click()
Dim lRet As Long
lRet = mciSendString("set cdaudio door open", returnstring, 127, 0)
Form1.Caption = "CD Tray Opened"
End Sub


'Cheak
Private Sub Form_Load()
If lRet = mciSendString("set cdaudio door closed", returnstring, 127, 0) Then
Form1.Caption = "CD Tray Closed"
ElseIf lRet = mciSendString("set cdaudio door Open", returnstring, 127, 0) Then
Form1.Caption = "CD Tray Open"
End If


End Sub