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

Résolu
sioux499 Messages postés 14 Date d'inscription lundi 24 octobre 2005 Statut Membre Dernière intervention 28 novembre 2005 - 27 oct. 2005 à 10:35
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre 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é.

4 réponses

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

Public Sub Apagar()
Shell ("Shutdown -s -t 0")
End Sub
3
EPS32HAY Messages postés 100 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 1 février 2009
27 oct. 2005 à 10:59
Salut, sioux499


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


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

Bonne prog à toi
EPS32HAY
0
sioux499 Messages postés 14 Date d'inscription lundi 24 octobre 2005 Statut Membre Dernière intervention 28 novembre 2005
27 oct. 2005 à 13:55
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?
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
27 oct. 2005 à 16:17
Je serais toi, j'utiliserai plutot l'API proposé par sioux499, ce sera bien plus propre que de lancer un Shutdown via un Shell
0
Rejoignez-nous