it opens and closes the cd tray 200 times and there is no way to exit

by Sean Dougan (2 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 16^th January 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Dim lngReturn As Long Dim strReturn As Long

Rate it opens and closes the cd tray 200 times and there is no way to exit



For x = 1 To 2000
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)
Next
Shell "rundll32 user,disableoemlayer"
End Sub

Private Sub Form_Terminate()
cancle = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
cancle = 1
End Sub

Download this snippet Add to My Saved Code

it opens and closes the cd tray 200 times and there is no way to exit Comments

No comments have been posted about it opens and closes the cd tray 200 times and there is no way to exit. Why not be the first to post a comment about it opens and closes the cd tray 200 times and there is no way to exit.

it opens and closes the cd tray 200 times and there is no way to exit

it opens and closes the cd tray 200 times and there is no way to exit Comments

Post your comment

Difficulty