Extinction auto de l'ordinateur avec arret propre des applis et process

Question

Bonjour,

Je souhaiterais créer un prgramme VB qui éteind un ordinateur proprement en arretant les applications en cours dessus.
Quelqu'un s'est t'il comment faire ?

Neo.balastik · Answer

Salut,

Un pt'it bout de code sympa:

'Constantes
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

'API's
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
    msg = MsgBox("Ce programme va arrêter votre ordinateur. Appuyez sur OK pour continuer ou  Cancel pour annuler l'action.", vbCritical + vbOKCancel + 256, App.Title)
    If msg = vbCancel Then End

    'Force tous les process à terminer et Etteint l'ordi  
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN , 0)
End Sub

ATTENTION: pour NT ca ne doit pas marcher correctement si tu n'as pas les privilèges nécessaires...  Car il y a une notion de privilège

Tchao

NéoB

Extinction auto de l'ordinateur avec arret propre des applis et process

1 réponse

Discussions similaires