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

sioux499 14 Messages postés lundi 24 octobre 2005Date d'inscription 28 novembre 2005 Dernière intervention - 27 oct. 2005 à 10:35 - Dernière réponse : crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention
- 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 14 Messages postés lundi 24 octobre 2005Date d'inscription 28 novembre 2005 Dernière intervention - 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é 91 internautes ce mois-ci

EPS32HAY 100 Messages postés vendredi 20 décembre 2002Date d'inscription 1 février 2009 Dernière intervention - 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 14 Messages postés lundi 24 octobre 2005Date d'inscription 28 novembre 2005 Dernière intervention - 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 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 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.