Mettre en veille son pc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 782 fois - Téléchargée 48 fois

Contenu du snippet

Ce petit bout de code permet de mettre en veille son PC

Source / Exemple :


Private Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Long, ByVal fForce As Long) As Long

Private Sub ModeVeille(Parametre As Integer)
    On Error Resume Next
    SetSystemPowerState 1, Parametre
End Sub

'Mise en veille. Question posée sur fermeture connection réseau.
Private Sub Command1_Click()
  ModeVeille 0
End Sub

'Mise en veille forcée. Aucune question ne sera posée.
Private Sub Command2_Click()
  ModeVeille 1
End Sub

Conclusion :


Il faut mettre sur la feuille 2 boutons (command1 et command2)

A voir également

Ajouter un commentaire

Commentaires

cs_SysteM
Messages postés
73
Date d'inscription
samedi 27 avril 2002
Statut
Membre
Dernière intervention
14 juillet 2005
-
fonctionne pas sous XP :(
cs_Stephane
Messages postés
551
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
cool ca faisait longtemp que je cjerchai ca, merci

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.