simulate mouse button

[alienskiller]

how can i simulate the click of the mouse in the code????

[Jerry Grant]

With the mouse_event API:

    
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags _
        As Long, ByVal dx As Long, ByVal dy As Long, _
        ByVal cButtons As Long, ByVal dwExtraInfo As Long)
        
    Public Const MOUSEEVENTF_ABSOLUTE = &H8000 '  absolute move
    Public Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
    Public Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  middle button down
    Public Const MOUSEEVENTF_MIDDLEUP = &H40 '  middle button up
    Public Const MOUSEEVENTF_MOVE = &H1 '  mouse move
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '  right button down
    Public Const MOUSEEVENTF_RIGHTUP = &H10 '  right button up

    '// Move the mouse
    Call mouse_event( _
                     MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE, _
                     myX, _
                     myY, _
                     0, _
                     0 _
                     )

   '// Left Click the mouse.
    Call mouse_event( _
                     MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, _
                     myX, _
                     myY, _
                     0, _
                     0 _
                     )

    '// Lift the mouse button
    Call mouse_event( _
                     MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, _
                     myX, _
                     myY, _
                     0, _
                     0 _
                     )

Hope this helps

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_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const MK_LBUTTON = &H1

Private Sub Command1_Click()
    PostMessage MyHwnd, WM_LBUTTONDOWN, MK_LBUTTON, 0
    PostMessage MyHwnd, WM_LBUTTONUP, MK_LBUTTON, 0
End Sub