How do I click left buton mouse, by code, in anoter application?

Hi people!
I need by vb code click left button mouse in anoter application run under  my code. How do I? Tks
MGASPARAsked:
Who is Participating?
 
Bryan ButlerCommented:
Glad you got it, but if you interested in a 3rd party solution, autoit might be the way to go.  It is free and will probably work very well.
0
 
MGASPARAuthor Commented:
I try it, but do not work for me. I resolved with this:

 Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dX As Long, ByVal dY As Long, ByVal dwData As Long, ByVal dwExtraInfo As Long)


Private Sub ClickMouse()
    Call mouse_event(&H2, 0, 0, 0, 0)   'mousedown
    Application.DoEvents()
    Call mouse_event(&H4, 0, 0, 0, 0)   'mouse up
    Application.DoEvents()
  End Sub

    'point to  "G"
    System.Windows.Forms.Cursor.Position = New Point(99, 55)
    'click mouse
    Call ClickMouse()


That code is OK, but don't  work very well.  When I add the instruction ' Application.DoEvents' the code work .
 Tks. I appreciate your help!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.