AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 03 09:29:26
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

EXITWINDOWS


Information sur la source

Catégorie :Système Classé sous : quitter, windows, logoff, shutdown, reboot Niveau : Initié Date de création : 20/08/2000 Vu / téléchargé: 8 166 / 381
Auteur : pitrack Site perso
Ecrire un message privé
Note :
6,4 / 10 - par 5 personnes
6,40 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Pour quitter Windows JOLIMENT?
 

Source

  • 'A mettre dans une feuille
  • Option Explicit
  • Private Sub CEsc_Click()
  • Unload Me
  • End Sub
  • Private Sub COk_Click()
  • If OptArret.Value = True Then
  • ExitWindowsEx EWX_SHUTDOWN, 0&
  • ElseIf OPtDemarre.Value = True Then
  • ExitWindowsEx EWX_REBOOT, 0&
  • ElseIf OptMsDos.Value = True Then
  • Else
  • ExitWindowsEx EWX_LOGOFF, 0&
  • End If
  • Unload Me
  • End Sub
  • 'A mettre dans module
  • Option Explicit
  • Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  • ' Constantes pour ExitWindowsEx
  • Public Const EWX_LOGOFF = 0
  • Public Const EWX_SHUTDOWN = 1
  • Public Const EWX_REBOOT = 2
  • Public Const EWX_FORCE = 4 
'A mettre dans une feuille
Option Explicit

Private Sub CEsc_Click()
Unload Me
End Sub

Private Sub COk_Click()

  If OptArret.Value = True Then
    ExitWindowsEx EWX_SHUTDOWN, 0&
  ElseIf OPtDemarre.Value = True Then
    ExitWindowsEx EWX_REBOOT, 0&
  ElseIf OptMsDos.Value = True Then
    
  Else
    ExitWindowsEx EWX_LOGOFF, 0&
  End If
  Unload Me
End Sub

'A mettre dans module
Option Explicit

Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
' Constantes pour ExitWindowsEx
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de jipef le 12/05/2005 09:39:38

ultra simple sous XP ( voir sous NT)........
Microsoft Windows XP [version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\jean-paul>shutdown /?
Utilisation : shutdown [-i | -l | -s | -r | -a] [-f] [-m \\nom_ordinateur] [-t x
x] [-c "commentaire"] [-d up:xx:yy]

        Sans argument           Affiche ce message (identique à -?)
        -i                      Affiche l'interface graphique, doit être la 1ère
option
        -l                      Ferme la session (ne peut pas être utilisé avec
l'option -m)
        -s                      Met l'ordinateur hors tension
        -r                      Met l'ordinateur hors tension et le redémarre
        -a                      Annule une mise hors tension système
        -m \\nom_ordinateur     Ordinateur distant à mettre hors tension/redémar
rer/annuler
        -t xx                   Définir le délai d'expiration pour la mise hors
tension à xx secondes
        -c "commentaire"                Commentaire de la mise hors tension (max
imum de 127 caractères)
        -f                      Force des applications en cours d'exécution à se
fermer sans avertissement
        -d [u][p]:xx:yy         Le code de raison de la mise hors tension
                                u est le code utilisateur
                                p est un code de mise hors tension planifié
                                xx est le code de raison majeur (valeur entière
inférieure à 256)
                                yy est le code de raison mineur (valeur entière
positive inférieure à 65536)


En VB

commande$="shutdown  -s -f -t 10"
shell(commande)

signaler à un administrateur
Commentaire de SimaoSabrosa le 17/03/2007 20:01:41

Ta source est excellente !!!
J'ai pu grâce à celle-ci ajouter une fonctionnalité à l'une de mes applications que je vais présenter au BTS. Je t'en suis extrêmement reconnaissant. Voilà déjà quelques  jours que je galère pour trouver une solution a mon problème !! Jusqu'à présent je ne trouvais que des solutions pour redémarrer Windows de façon brutale et bien souvent par la méthode shutdown seulement utilisé par Windows Xp (et peut être Vista?) Mais rien de bien fameux sous les autres Windows plus ancien tels que les 2000 ou encore plus vieux 98. Je pense qu'avec cette appel a cette API il possible de redémarrer un poste sous Win 98/2000/ME/XP/Vista ce qui n'est pas négligeable  :) Encore merci à toi. Pour cette excellente aide !!!!!! Bon courage pour la suite.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Reboot sous Windows 2000 [ par Docki ] Comment faire pour faire un reboot sous windows 2000 ?J'ai essayé les codes du site mais seulement le logoff fonctionne. Merci de me repondre, c assez Quitter windows et passer en mode dos [ par ActiveZ ] salut,je cherche comment on peut fermer windows et passer en mode dos ou (au pire) comment rebooter en dos (redemarrer en mode dos)merci ShutDown Windows 2000/xp [ par brodeur ] BonjourEst-ce que vous connaisez la fonction de fermeture de windows ( ou la procedure ) sous VB6. L'ancienne fonction que j'utilisait marchait sous 9 problème a la fermeture de windows [ par xyron ] Bonjour,J'ai fait un programme qui s'exécute à interval régulier pour vérifier la présence de fichiers dans un répertoire. Lorsque je fais un shutdown Raccourcie Quitter [ par animusaquila ] Voila, je voulais savoir ci l'un d'entre vous savez le raccourcie du programme "quittez" sous windows XP.Je me sert bcp de ce raccourcie, mais je le c arret d un windows xp depuis un 2000 clients [ par foupoudafe ] bonjour j'aimerai savoir comment effectuer un shutdown distant d un 2000 vers un xp je connais bien la commande shutdown de windows.shutdown -s -m \\n copier coller entre une application windows et vb.net [ par path06 ] bonjourje recherche un moyen par une api ou autre chosede pouvoir récupérer une sélection dans n'importe quel appli windows et traiter sa valeur dans windows CE [ par manu222 ] Salut jais un probleme de version avec Windows CE ja le framework pour develloper sur 4.1 4.2 mais apparement ca ne marche pas pour les version de win imprimer un Windows from avec VB.Net [ par poilusduboux ] Bonjour a tous   <p class="MsoNorma Windows CE ou Poket Pc [ par manu222 ] Bonjour, je cherche a ecrire une applie sur poketPc ou Windows Ce avec Studio 2003 en Vb.Net j ai qlq probleme avec la version du Frameworks et j'ai b


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,343 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.