PostMessage 发送消息失败问题

[skyxue1021]

像远程桌面窗口发送F5刷新失败，但是我手动是OK的

Dim HWND As Integer
HWND = FindWindow(vbNullString, "192.168.18.52 - 远程桌面连接")
If HWND > 0 Then
SetWindowPos(HWND, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) '将窗口设为总在最前
SetWindowPos(HWND, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
SetForegroundWindow(HWND)
PostMessage(HWND, WM_KEYDOWN, Keys.F5, 0)

End If