Arrêter ou redémarrer la machine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 658 fois - Téléchargée 7 fois

Contenu du snippet

Public Sub Eteindre_Windows(ByVal WithRestart As Boolean)
    Dim Arg As String
If WithRestart Then
    Arg = "rundll32.exe user.exe,restartwindows"
Else
    Arg = "rundll32.exe user.exe,exitwindow"
End If
Call Shell(Arg)
End Sub
Sub EXEMPLE()
    Call Eteindre_Windows(True)  'Windows redémarre
    Call Eteindre_Windows(False)  'Sans redémarrage
End Sub

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.