Cd Of Death. Opens and closes your CD ROM drive every second
Cd Of Death. Opens and closes your CD ROM drive every second
API Declarations
Rate Cd Of Death. Opens and closes your CD ROM drive every second
(2(2 Vote))
lngReturn As Long
Dim strReturn As Long
'To open the CD door, use this code:
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
Drag another timer on to form type in code:
Dim lngReturn As Long
Dim strReturn As Long
'To close the CD door, use this code:
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)
Now go to the properties box (for the form) and go to the "visible" option and choose false
Cd Of Death. Opens and closes your CD ROM drive every second Comments
No comments yet — be the first to post one!
Post a Comment