VB 2008 - Bildschirmschoner bzw. Energiesparmodus austricksen

Gast #1466998
Lesenswert?

Hallo Leute,

ich schreibe gerade ein Programm, dass mir einen Status anzeigt.
Dieser Status soll solange auf dem Monitor angezeigt werden, wie das 
Programm läuft. Jetzt habe ich das Problem, dass mir der 
Bildschirmschoner bzw. der Energiesparmodus dazwischen funkt.

Ich möchte das System nicht verändern. Gibt es eine Möglichkeit bzw. 
einen Trick (wie z.B. eine Mausbewegung alle 30 Sekunden zu simulieren), 
damit der Bildschirmschoner bzw. der Energiesparmodus nicht anspricht?

Ich habe es schon mit folgendem Code probiert:

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, 
ByVal Y As Integer) As Integer

Private Sub Timer_Mouse_Tick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Timer_Mouse.Tick

        Dim x As Integer
        Dim y As Integer
        x = MousePosition.X + 50
        y = MousePosition.Y + 50
        SetCursorPos(x, y)
        SetCursorPos(x-50, y-50)

End Sub

Der Mauscursor bewegt sich zwar aber leider geht der Bildschirmschoner 
trotzdem an.

Gibt es eine ander Möglichkeit?

Danke für Eure Hilfe

Hans

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren