' https://msdn.microsoft.com/en-us/library/aa373208(v=vs.85).aspx
Option Explicit
 
Private Declare Function SetThreadExecutionState Lib "kernel32" (ByVal esFlags _
  As Long) As Long
 
Public Enum EXECUTION_STATE
    ES_CONTINUOUS = &H80000000 ' ES_CONTINUOUS Or ... -> einfrieren, 
    ' ES_CONTINUOUS -> aufwecken
    ES_DISPLAY_REQUIRED = &H2  ' Display-Leerlauf-Timer zurücksetzen
    ES_SYSTEM_REQUIRED = &H1   ' System-Leerlauf-Timer zurücksetzen
    ES_AWAYMODE_REQUIRED = &H40 'Hintergrund-Aktivitäten
End Enum
 
     ' Keine Display-Abschaltung durch zurücksetzen des Display-Leerlauf-Timers.
     Call SetThreadExecutionState(EXECUTION_STATE.ES_DISPLAY_REQUIRED)
     ' Keine PC-Abschaltungdurch zurücksetzen des System-Leerlauftimers.
     Call SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED)
     ' Friert den Display-Timer ein.
     Call SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS Or _
       EXECUTION_STATE.ES_DISPLAY_REQUIRED)
     ' Friert den System-Timer ein.
     Call SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS Or _
       EXECUTION_STATE.ES_SYSTEM_REQUIRED)
     ' Hintergrund-Aktivitäten wärend des Schlafens.
     Call SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS Or _
       EXECUTION_STATE.ES_AWAYMODE_REQUIRED)
     '-- Timer wiederaufwecken
     Call SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)

Gruß
Fieber
http://computer.net-berlin.de - Visual Basic - Tips & Tricks sowie viel Grafik