如何触发鼠标右健的单击事件，（用API）

Question

比如单击右键退出全屏状态的Media Player
越详细分越多！！！

Answer 1

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Answer 2

1.先findwindowex得到media play的窗体句炳
2.sendmessage或postmessage

Answer 3

唐博士能把那些参数解释一下吗？
(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Answer 4

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongConst WM_MOUSEFIRST = &H200     '鼠标移动时发生，比 WM_MOUSEMOVE 要早
Const WM_MOUSEMOVE = &H200      '鼠标移动时发生
Const WM_LBUTTONDOWN = &H201    '鼠标左键按下时发生
Const WM_LBUTTONUP = &H202      '鼠标左键放开时发生
Const WM_LBUTTONDBLCLK = &H203  '鼠标左键双击时发生
Const WM_RBUTTONDOWN = &H204    '鼠标右键按下时发生
Const WM_RBUTTONUP = &H205      '鼠标右键放开时发生
Const WM_RBUTTONDBLCLK = &H206  '鼠标右键双击时发生
Const WM_MBUTTONDOWN = &H207    '中间键按下时发生
Const WM_MBUTTONUP = &H208      '中间键放开时发生
Const WM_MBUTTONDBLCLK = &H209  '中间键双击时发生Function trayWndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If Msg = WM_USER + 100 Then
        Select Case lParam '下面是大部分的鼠标操作，你可根据所需的事件，定义自己的操作
            Case WM_MOUSEFIRST '鼠标移动时发生，比 WM_MOUSEMOVE 要早
            
            Case WM_MOUSEMOVE '鼠标移动时发生
            
            Case WM_LBUTTONDOWN '鼠标左键按下时发生
            
            Case WM_LBUTTONUP  '鼠标左键放开时发生
            
            Case WM_LBUTTONDBLCLK  '鼠标左键双击时发生
            
            Case WM_RBUTTONDOWN '鼠标右键按下时发生
            
            Case WM_RBUTTONUP '鼠标右键放开时发生
            
            Case WM_RBUTTONDBLCLK '鼠标右键双击时发生
            
            Case WM_MBUTTONDOWN  '中间键按下时发生
            
            Case WM_MBUTTONUP  '中间键放开时发生
            
            Case WM_MBUTTONDBLCLK   '中间键双击时发生
            
        End Select
    End If