ShootDown

Declare Function ExitWindowsEx& Lib "user32" _
(ByVal uFlags&, ByVal wReserved&)
' Le costanti

Global Const EWX_LOGOFF = 0 ' Chiude la sessione
Global Const EWX_SHUTDOWN = 1 ' Chiude il sistema
Global Const EWX_REBOOT = 2 ' Riavvia il sistema
Global Const EWX_FORCE = 4 ' Chiude eventuali applicazioni aperte
Global Const EWX_POWEROFF = 8 ' Solo in PII ATX
'Adesso puoi chiamare uno ShutDown/un Reboot/un Logoff

'con questa chiamata

lresult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
'shutdown del computer