用postmessage向桌面发送右键没反应？

Question

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 Declare Function GetDesktopWindow Lib "user32" () As Long
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205Public Sub SendRight(ByVal Hwnd As Long, ByVal PointX As Long, ByVal PointY As Long)
   PostMessage Hwnd, WM_RBUTTONDOWN, 0, PointX + PointY * 65535
   PostMessage Hwnd, WM_RBUTTONUP, 0, PointX + PointY * 65535
End Sub
Private Sub Command1_Click()
SendRight GetDesktopWindow, 100, 100
End Sub

Answer 1

GetDesktopWindow 
获得代表整个屏幕的一个窗口（桌面窗口）句柄应该不是我的桌面那个的句柄吧.

Answer 2

    SetCursorPos x, y
    mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0