Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VB6: Bildschirmschoner aktiv ?
Autor: Brauer
Datum: 21.01.09 12:20
Hallo, das hier hilft Dir weiter, Option Explicit Private Declare Function SystemParametersInfo _ Lib "user32" _ Alias "SystemParametersInfoA" _ (ByVal uiAction As Long, _ ByVal uiParam As Long, _ pvParam As Any, _ ByVal fWInIni As Long) As Boolean Private Const SPI_GETSCREENSAVEACTIVE As Long = &H10 Private Const SPI_GETSCREENSAVERRUNNING As Long = &H72 Private Sub Form_Load() Dim bActive As Boolean ' Find out if screen saver is active, and display a suitable message. SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, bActive, False If bActive Then Me.Caption = "Screen saver is active" Else Me.Caption = "Screen saver is not active" End If End Sub Private Sub Timer1_Timer() Dim bRunning As Boolean ' Beep if the screen saver is running. SystemParametersInfo SPI_GETSCREENSAVERRUNNING, 0, bRunning, False If bRunning Then Beep End If End Sub den Code habe ich auf der Seite http://support.microsoft.com/kb/315725/de gefunden. Gruß Harald

VB6: Bildschirmschoner aktiv ?	1.645	Hawk78	21.01.09 11:23
Re: VB6: Bildschirmschoner aktiv ?	935	Brauer	21.01.09 12:20
Re: VB6: Bildschirmschoner aktiv ?	981	Hawk78	21.01.09 13:44

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen