Mettre en veille son pc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 395 fois - Téléchargée 49 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
23 juil. 2002 à 02:59
fonctionne pas sous XP :(
cs_Stephane Messages postés 550 Date d'inscription vendredi 5 janvier 2001 Statut Membre Dernière intervention 23 septembre 2006
22 déc. 2001 à 13:41
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.