模拟桌面刷新代码

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

Public Sub RefreshDesktop ( )
    Dim DeskWin As Long
    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
End Sub