Avec cette API
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Private Const SPI_SETSCREENSAVEActivation = 17
Tu ajoute cette fonction aussi
Public Function AlternerEcranDeVeille(Activation As Boolean) As Boolean
Dim SignetDActivation As Long
Dim RetourDeLaValeur As Long
SignetDActivation = IIf(Activation, 1, 0)
RetourDeLaValeur = SystemParametersInfo(SPI_SETSCREENSAVEActivation, SignetDActivation, 0, 0)
AlternerEcranDeVeille = RetourDeLaValeur > 0
End Function
Lorsque tu appelles cette fonction tu met True si tu veux mettre l'écran et False si tu veux pas...
|