[RESOLVED] Make the mouse click

[Emcrank]

How do i make the mouse click by typing like Mouse.click.do if you get what i mean.

BEcause i need it to go to a position onscreen and click.

Also how would i do rightclick?

[Emcrank]

bump

[.paul.]

you can use the mouse_event api to simulate left or right mouseclicks:

Public Class Form1
 
    Private Declare Sub SetCursorPos Lib "User32" (ByVal X As Integer, ByVal Y As Integer)
    Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
    Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
    Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H6
    Private Const MOUSEEVENTF_RIGHTUP As Integer = &H8
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, _
                                                  ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("you clicked")
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim p As Point = Button1.PointToScreen(New Point(1, 1))
        SetCursorPos(p.X, p.Y)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    End Sub
 
End Class

[Emcrank]

thankyou,

[Emcrank]

in the end i used this code

Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As IntPtr)
    Const MOUSEEVENTF_LEFTDOWN As Integer = 2
    Const MOUSEEVENTF_LEFTUP As Integer = 4
    Const MOUSEEVENTF_RIGHTDOWN As Integer = 6
    Const MOUSEEVENTF_RIGHTUP As Integer = 8
 
 
    mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)

[.paul.]

in the end i used this code

Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As IntPtr)
    Const MOUSEEVENTF_LEFTDOWN As Integer = 2
    Const MOUSEEVENTF_LEFTUP As Integer = 4
    Const MOUSEEVENTF_RIGHTDOWN As Integer = 6
    Const MOUSEEVENTF_RIGHTUP As Integer = 8
 
 
    mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)

that's not the way to do it. it could cause problems with your OS if you don't use it correctly, i.e. a MOUSEEVENTF_LEFTUP after a MOUSEEVENTF_LEFTDOWN + not combined

[Emcrank]

What do you mean?
EDIT: Oh do you mean i need to do????

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)

Instead of both in the same mouse_event

mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)

Correct me if im wrong

[.paul.]

you're right

[Emcrank]

Why cant you use the + sign and have it in one?