Läuft der Bildschirmschoner? Dieser Tipp verrät, wie sich prüfen lässt, ob der Bildschirmschoner aktuell läuft.
Autor:   Dieter Otter	Bewertung:	Views:  13.708
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Nachfolgender Tipp verrät, wie sich prüfen lässt, ob der Bildschirmschoner aktuell läuft.

' Benötigte API-Deklarationen 
Private Declare Function SystemParametersInfo Lib "user32" _
  Alias "SystemParametersInfoA" ( _
  ByVal uAction As Long, _
  ByVal uParam As Long, _
  lpvParam As Any, _
  ByVal fuWinIni As Long) As Long 
 
Private Const SPI_GETSCREENSAVERRUNNING = 114

Public Function IsScreenSaveRunning() As Boolean
  ' Festellen Bildschirmschoner läuft 
  Dim bIsRunning As Boolean 
 
  Call SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, _ 
    0&, bIsRunning, 0&) 
 
  IsScreenSaveRunning = bIsRunning
End Function

Beispiel für den Aufruf:

If IsScreenSaveRunning() Then
  ' Bildschirmschoner beenden
  SendKeys "{ESC}"
End Sub

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.