EALA FREYA FRESENA

Option Explicit
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal _
  hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
 
Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Const WM_KEYDOWN = &H100
 
 
 
' Benötigte API-Deklarationen
Private Declare Function InvalidateRect Lib "user32" ( _
  ByVal hWnd As Long, _
  lpRect As Any, _
  ByVal bErase As Long) As Long
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
' Desktop aktualisieren
Public Sub DesktopRefresh()
  Dim nResult As Long
 
  nResult = InvalidateRect(0&, 0&, False)
  If nResult <> 0 Then
    Call InvalidateRect(0&, 0&, False)
  End If
End Sub
 
 
Public Sub Run_Desktop_Refresh()
Dim DeskWin As Long
 
'Aktualisierung der HTML-Seiten auf dem Desktop
DeskWin = FindWindowEx(0&, 0&, "Progman", vbNullString)
DeskWin = FindWindowEx(DeskWin, 0&, "SHELLDLL_DefView", vbNullString)
DeskWin = FindWindowEx(DeskWin, 0&, "SysListView32", vbNullString)
PostMessage DeskWin, WM_KEYDOWN, &H74, &H3F0001
 
'eigentlicher Desktop
Call DesktopRefresh
 
End Sub

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

' 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