This program will shutdown your computer safely without asking. Developed with Visual Basic 6. Platform: Win9x/WinMe.
Source
Declaration Option Explicit Public Const EWX_FORCE = 4 Public Const EWX_LOGOFF = 0 Public Const EWX_REBOOT = 2 Public Const EWX_SHUTDOWN = 1 Public Declare Function ExitWindowsEx Lib "user32" _ (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Code Sub Main() Dim r As Long r = ExitWindowsEx(EWX_SHUTDOWN, 0) If r = 0 Then MsgBox "Shutdown unsuccessful", vbInformation, "Shutdown" End If End Sub
Download Source (4 kb)
