Eteindre le pc

Contenu du snippet

Ce code vous permet d'éteindre votre ordinateur(bon je sais il en existe déjà plein, mais çà n'en fera qu'un de plus !!). Il ferme toutes les applications avant de poursuivre la fermeture de windows.

Je ne l'ai testé que sous win98.

Source / Exemple :


ferme=msgbox ("Ceci fermera Windows et éteindra votre ordinateur.",vbexclamation+vbokcancel+vbdefaultbutton1+vbsystemmodal,"Confirmation de la fermeture de Windows")
If ferme=vbcancel then WScript.quit 
Set variable = CreateObject("WScript.Shell")
variable.run "RUNDLL32.EXE user,ExitWindows"

Conclusion :


J'ai noté quelque bugs notemment lorsque l'on lance le code alors que l'on est connecté à internet(je n'ai pas la compétence necessaire pour les corrigés :). C'est mon tout premier code alors soyez gentils avec moi ;)

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.