• Home
 · 
• Miscellaneous
 · 
• Opens and Closes The CD-Rom. Great For Making A Good Joke!!!!!!!

Opens and Closes The CD-Rom. Great For Making A Good Joke!!!!!!!

Opens and Closes The CD-Rom. Great For Making A Good Joke!!!!!!!

Rate Opens and Closes The CD-Rom. Great For Making A Good Joke!!!!!!!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim lngReturn As Long
Dim strReturn As Long
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)

'use this to close the cd-rom
Dim lngReturn As Long
Dim strReturn As Long
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)