by ojas (14 Submissions)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 1st October 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This program will eject your CD and will keep outside for 25 sec. You will not be able to close your CD ROM in that period
s = MsgBox("Don't try to close this program or shutdown your pc", vbCritical, "Warning")
Form1.Hide
Private Sub Timer1_Timer()
Dim d
d = mciSendString("set cdaudio door open", 0, 0, 0)
End Sub
Dim d
MsgBox "Ok man!! don't cry"
d = mciSendString("Set cdaudio door closed", 0, 0, 0)
Timer1.Enabled = False
Timer2.Enabled = False
End
No comments have been posted about This program will eject your CD and will keep outside for 25 sec. You will not be able to close you. Why not be the first to post a comment about This program will eject your CD and will keep outside for 25 sec. You will not be able to close you.