[vb] comment éteindre l'ordinateur à l'aide d'un programme [Résolu]

sioux499
Messages postés
14
Date d'inscription
lundi 24 octobre 2005
Dernière intervention
28 novembre 2005
- 27 oct. 2005 à 10:35 - Dernière réponse : crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Dernière intervention
9 juin 2006
- 27 oct. 2005 à 16:17
Bonjour,

Je voudrais connaître la commande pour éteindre un ordinateur.
Voilà mon problème: j'ai un programme qui permet de traiter des fichiers de données. Le problème est qu'il y a une grande quantité de fichiers. Cela prend donc une bonne heure pour exécuter le programme. Mais je le lance généralement le soir avant de partir. Je suis donc pour l'instant obligé de laisser mon ordi allumé. Je voudrais donc pouvoir rajouter une case dans mon interface graphique qui lorsqu'elle est cochée éteind complètement l'ordi à la fin du programme.
Est-ce possible?

Merci d'avance.

PS: comme je ne suis pas sûr du thème du forum faîtes le moi savoir si je me suis trompé.
Afficher la suite 

4 réponses

Meilleure réponse
sioux499
Messages postés
14
Date d'inscription
lundi 24 octobre 2005
Dernière intervention
28 novembre 2005
- 27 oct. 2005 à 16:03
3
Merci
C'est bon. J'ai réussi à trouver un code qui marche. Le voici:

Public Sub Apagar()
Shell ("Shutdown -s -t 0")
End Sub

Merci sioux499 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

EPS32HAY
Messages postés
100
Date d'inscription
vendredi 20 décembre 2002
Dernière intervention
1 février 2009
- 27 oct. 2005 à 10:59
0
Merci
Salut, sioux499


Regarde à l'adresse suivante tu dois surement trouver ton bonheur.


http://www.vbfrance.com/code.aspx?id=908

Bonne prog à toi
EPS32HAY
sioux499
Messages postés
14
Date d'inscription
lundi 24 octobre 2005
Dernière intervention
28 novembre 2005
- 27 oct. 2005 à 13:55
0
Merci
Merci,

Par contre le programme marche seulement pour fermer ma session. Je n'arrive pas à éteindre l'ordi. Voici le code que j'ai mis et qui marche pas:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As BooleanPrivate Const EWX_SHUTDOWN 1, EWX_REBOOT 2, EWX_LOGOFF = 0
Private Sub Command1_Click()
'EWX_SHUTDOWN pour quitter Windaube
'EWX_REBOOT pour relancer Windaube
'EWX_LOGOFF pour afficher la boite <LOGIN>
a = ExitWindowsEx(EWX_SHUTDOWN, 1)
End Sub

Quel est le problème?
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Dernière intervention
9 juin 2006
- 27 oct. 2005 à 16:17
0
Merci
Je serais toi, j'utiliserai plutot l'API proposé par sioux499, ce sera bien plus propre que de lancer un Shutdown via un Shell

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.