• Home
 · 
• Windows System Services
 · 
• Cd Of Death. Opens and closes your CD ROM drive every second

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

• 1
• 2
• 3
• 4
• 5

(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