|
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 Const SPI_GETSCREENSAVETIMEOUT = 14
Private Const SPI_SETSCREENSAVETIMEOUT = 15
Private Const SPI_GETSCREENSAVEACTIVE = 16
Private Const SPI_SETSCREENSAVEACTIVE = 17
Private Function GetScreenSaverActive() As Boolean
Dim lngRetVal As Long
Dim blnAktiv As Boolean
lngRetVal = SystemParametersInfo( _
SPI_GETSCREENSAVEACTIVE, 0, blnAktiv, 0)
GetScreenSaverActive = blnAktiv
If lngRetVal = 0 Then
MsgBox "Fehler beim Abfragen vom ScreenSaverState !", _
vbInformation
End If
End Function
Private Sub SetScreenSaverActive(ByVal Active As Boolean)
Dim lngRetVal As Long
lngRetVal = SystemParametersInfo( _
SPI_SETSCREENSAVEACTIVE, Active, ByVal 0, 0)
If lngRetVal = 0 Then
MsgBox "ScreenSaverState konnte nicht gesetzt werden !", _
vbInformation
End If
End Sub
Private Function GetScreenSaverTimeout() As Integer
Dim lngRetVal As Long
Dim intTimeout As Integer
lngRetVal = SystemParametersInfo( _
SPI_GETSCREENSAVETIMEOUT, 0, intTimeout, 0)
GetScreenSaverTimeout = intTimeout
If lngRetVal = 0 Then
MsgBox "Fehler beim Abfragen vom ScreenSaverTimeout !", _
vbInformation
End If
End Function
Private Sub SetScreenSaverTimeout(ByVal Timeout As Integer)
Dim lngRetVal As Long
lngRetVal = SystemParametersInfo( _
SPI_SETSCREENSAVETIMEOUT, Timeout, ByVal 0, 0)
If lngRetVal = 0 Then
MsgBox "ScreenSaverTimeout konnte nicht gesetzt werden !", _
vbInformation
End If
End Sub
|
|