by Mark Greenall (10 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 2nd November 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Cd Of Death. Opens and closes your CD ROM drive every second
API Declarations
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