• Home
 · 
• Windows API Call/Explanation
 · 
• This program will eject your CD and will keep outside for 25 sec. You will not be able to close you

This program will eject your CD and will keep outside for 25 sec. You will not be able to close you

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

Rate This program will eject your CD and will keep outside for 25 sec. You will not be able to close you

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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