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)
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.