Auf einer Form platzieren Sie zwei Buttons (cmdAktivieren und cmdDeaktivieren). Achten Sie darauf, nach Beenden Ihres Programms (auch in der IDE) den normalen Zustand wiederherzustellen.
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Private Sub cmdAktivieren_Click()
Dim lngRet As Long
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, 0&, 0)
End Sub
Private Sub cmdDeaktivieren_Click()
Dim lngRet As Long
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, 0&, 0)
End Sub
