本帖最后由 czjt1234 于 2024-12-28 15:16 编辑
- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
- Private Const WM_KEYDOWN = &H100
- Private Sub Main()
- Dim Desktop As Long
- Desktop = FindWindow("Progman", "Program Manager")
- PostMessage Desktop, WM_KEYDOWN, vbKeyF5, 0
- End Sub
复制代码 vb里面这个可以刷新桌面
怎么用powershell来调用这两个api? |