1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Sub EnableDisableSceenSaverXP(ByVal ActivationStatus As Integer)
Const SPI_SETSCREENSAVEACTIVE = 17
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2
' ActivationStatus : 1 = activé
' 0 = désactivé
SystemParametersInfo SPI_SETSCREENSAVEACTIVE, ActivationStatus, 0, 0
End Sub
Private Sub cmdScreenSaver_Click()
If cmdScreenSaver.Caption = "&Désactiver" Then
cmdScreenSaver.Caption = "&Activer"
EnableDisableSceenSaverXP 0
Else
cmdScreenSaver.Caption = "&Désactiver"
EnableDisableSceenSaverXP 1
End If
End Sub |
Partager