Arrestare o Riavviare il sistema

Inserire, preferibilmente in un modulo:

Public Const EWX_LOGOFF = 0 'Disconnette l'utente
Public Const EWX_SHUTDOWN = 1 'Arresta il sistema
Public Const EWX_REBOOT = 2 'Riavvia il sistema
Public Const EWX_FORCE = 4  'Riavvia il sistema               

Declare Function ExitWindowsEx Lib "user32" Alias _
"ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long       

Il codice per utilizzare la funzione Disconnettere l'utente è il seguente:

t& = ExitWindowsEx(EWX_LOGOFF, 0)

Il codice per utilizzare la funzione Riavvia è il seguente:

t& = ExitWindowsEx(EWX_FORCE OR EWX_REBOOT, 0)

Il codice per utilizzare la funzione Arresta è il seguente:

t& = ExitWindowsEx(EWX_SHUTDOWN, 0)

Testato su: Windows 98, Windows Me