主题：桌面刷新，如何实现？谢谢

试一下吧，应可以的！

 

全局代码：

 

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

 

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

 

 

运行代码：

 

Dim hwnd As Integer = FindWindow("Progman", "Program Manager")

Const WM_KEYDOWN = &H100
Const VK_F5=&H74

'发送消息模拟按键"F5"刷新桌面

PostMessage(hwnd, WM_KEYDOWN, VK_F5, 0 )

其实帮助解决问题也是一个学习的过程！

呵。大家共勉吧！