SHUTDOWN WINDOWSXP
VBbigineure
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
-
31 janv. 2003 à 17:27
GenSystem Messages postés 3 Date d'inscription dimanche 23 mars 2003 Statut Membre Dernière intervention 22 juin 2003 - 22 juin 2003 à 13:03
GenSystem Messages postés 3 Date d'inscription dimanche 23 mars 2003 Statut Membre Dernière intervention 22 juin 2003 - 22 juin 2003 à 13:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5851-shutdown-windowsxp
https://codes-sources.commentcamarche.net/source/5851-shutdown-windowsxp
22 juin 2003 à 13:03
Faut s'accrocher parce que j'ai pas fini les coment alors :-o ... http://gen.system.free.fr/ShutDownSource.zip ... pour l'instant ça reste là ...
21 juin 2003 à 23:09
21 juin 2003 à 11:25
21 juin 2003 à 11:15
@++
21 juin 2003 à 11:14
@++
20 juin 2003 à 15:12
2 févr. 2003 à 00:09
mon code mal foutu !!.. lol Je t'explique ..
Voici la bonne déclaration ...
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
En plus , est ne marche pas complètement sur XP .
Tu ne peux que fermer la session de cette facon (je crois)
Donc , les déclarations que tu ne comprends pas , elle ne sont pas
necessaire. La seul déclaration (pas oubligatoir) que tu peux utiliser
est:
Private Const LOGOFF = 0
Maitenant , comment l'utiliser .
Imaginons que ta form posède un bouton nommé LOGOFF ...
Private Sub LOGOFF_Click()
'Déclaration qui en réalité ne sers à rien mais qui est oubligatoir
Dim X As Long
'Tu écrit LOGOFF si tu l'as déclarer sinon tu écrit 0 (sa valeur)
X = ExitWindowsEx(LOGOFF, 0)
End Sub
Aussi simple que ca , mais pour le reste , je ne peu pas vraiment t'aider . :)
Excuse moi encore de t'avoir compliquer la vie ... :P
1 févr. 2003 à 02:37
Le sendkey n'est pas la meilleur facon ... Utilise plutot la fonction
ExitWindowsEx ... Comme ce-ci
'Déclarations
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF As Long = 8
Private Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Commandes
Private Sub FermerSession_Click()
Dim X As Long
X = ExitWindowsEx(EWX_LOGOFF, 0)
End Sub
Private Sub Redemarrer_Click()
Dim X As Long
X = ExitWindowsEx(EWX_RESET, 0)
End Sub
Private Sub Eteindre_Click()
Dim X As Long
X = ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub
Tu n'as qu'a faire 3 commandes (boutons) avec les noms suivants ..
1) FermerSession
2) Redemarrer
3) Eteindre
C'est tout ....
Et pour les Timers ... il a aussi raison .. :)
Bon courage et surtout , bonne programmation !!!!!
Bad*News
31 janv. 2003 à 17:27
J'ai l'impression que tu as 3 timers qui tournent en même temps, c'est à éviter car fatalement un jour y'en a un qui déclenche alors que l'autre n'a pas fini sa routine, et là, au mieux rien, au pire blue screen.
Enfin, a pas pu tester, because tu nous a pas glissé la form (index) dans ton zip.