CloseWindows

Option Explicit
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF = 8
Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Sub WinClose()
'Spegnimento computer

ExitWindowsEx EWX_SHUTDOWN, 0
End Sub

Public Sub WinReboot()
'Riavvio Windows

ExitWindowsEx EWX_REBOOT, 0
End Sub

'Significati costanti chiusura Windows:


EXW_LOGOFF
'Chiude tutti i processi e fa il LogOff dell'utente.

'(Equivale a Disconnetti nel pulsante Start di Windows 95).


EXW_SHUTDOWN
'Chiude tutti i processi e scarica la cache su HD.

'(Equivale a Chiudi Sessione).


EXW_REBOOT
'Come SHUTDOWN + riavvio del sistema.


EXW_FORCE
'Simile a SHUTDOWN, ma sono forzati tutti i processi attivi

'e le applicazioni in uso possono perdere dati.