Eteindre le pc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 688 fois - Téléchargée 41 fois

Contenu du snippet

Permet d'éteindre le P.C en cliquant sur un bouton de commande

Source / Exemple :


Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Variable As Long, Toto As Long

Sub arret()
Variable = 1
Toto = ExitWindowsEx(Variable, Constante)
Unload Me
End Sub

Private Sub Command1_Click()
arret
End Sub

A voir également

Ajouter un commentaire

Commentaires

cs_MeSod
Messages postés
89
Date d'inscription
dimanche 21 septembre 2008
Statut
Membre
Dernière intervention
26 avril 2016
-
sa ferme le programme a cause du petit "unload me" lol mais sinon sa marche pas ....
Guifreestyle
Messages postés
4
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
20 avril 2003
-
Moua ca me ferme mon prog et c' est tout loooooooooool
Tilois
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4 -
Ca marche pas sous win XP Pro ....
Dommage
Buissonsf
Messages postés
15
Date d'inscription
mercredi 6 mars 2002
Statut
Membre
Dernière intervention
5 février 2004
-
Salut,

je n'ai pas encore tésté ton code mais y'a un hic, cette instruction marche plutot bien sur des systèmes non professionnels mais je ne pense pas que ça marche sur Win2000pro et WinXP Pro.... j'ai déjà essayé et ça veut pas.

Alors si tu connais une autre solution : je suis prenneur !
matgel
Messages postés
9
Date d'inscription
lundi 11 mars 2002
Statut
Membre
Dernière intervention
8 juillet 2002
-
Hummmm.... C'est supposer marcher ??

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.