Binaryworld - SetPowerInfo - Change settings for Power-off and Low-Power features ... [ VB -> Windows ]

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
Const SPI_SETLOWPOWERTIMEOUT = 81
Const SPI_SETPOWEROFFTIMEOUT = 82
Const SPI_SETLOWPOWERACTIVE = 85
Const SPI_SETPOWEROFFACTIVE = 86

' set new settings of Power-off and low-power features
' for the screen saver
'
' POWEROFFACTIVE tells whether the power-off phase of screen saving is enabled.
' POWEROFFTIMEOUT returns the timeout in seconds of the power-off feature
' LOWPOWERACTIVE tells whether the low-power phase of screen saving is enabled.
' LOWPOWERTIMEOUT returns the timeout in seconds of the low-power feature
'
' Power-off and low-power features are supported under Win95 only for 16-bit
' apps,
' under Win98 for both 16- and 32-bit apps, and only for 32-bits apps under
' Win2000

Sub SetPowerInfo(Optional ByVal PowerOffActive As Variant, _
  Optional ByVal PowerOffTimeout As Variant, Optional ByVal LowPowerActive As _
  Variant, Optional ByVal LowPowerTimeout As Variant)
  If Not IsMissing(PowerOffActive) Then
    ' note that second argument must be 0 or 1
    SystemParametersInfo SPI_SETPOWEROFFACTIVE, CBool(PowerOffActive) And 1, _
      ByVal 0&, 0
  End If
  If Not IsMissing(PowerOffTimeout) Then
    SystemParametersInfo SPI_SETPOWEROFFTIMEOUT, PowerOffTimeout, ByVal 0&, _
      0
  End If
  If Not IsMissing(LowPowerActive) Then
    ' note that second argument must be 0 or 1
    SystemParametersInfo SPI_SETLOWPOWERACTIVE, CBool(LowPowerActive) And 1, _
      ByVal 0&, 0
  End If
  If Not IsMissing(LowPowerTimeout) Then
    SystemParametersInfo SPI_SETLOWPOWERTIMEOUT, LowPowerTimeout, ByVal 0&, _
      0
  End If
End Sub