How To: Control the exact position of the mouse on your screen (Outside of the form)

Question

Hello!

----------------------------------------

I'm new to this forum and I would like to contribute something that might be helpful to a good amount of people!

The code I am going to show you will tell you how to control the exact position of your mouse (On your screen of course :P)

--------------------------------------------------------

The code below is the entire source code, if you want to only take certain parts.

 Module Mouse
   

 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 Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

    Public Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As POINTAPI) As Long

    Public Const MOUSEEVENTF_LEFTDOWN = &H2

    Public Const MOUSEEVENTF_LEFTUP = &H4

    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20

    Public Const MOUSEEVENTF_MIDDLEUP = &H40

    Public Const MOUSEEVENTF_RIGHTDOWN = &H8

    Public Const MOUSEEVENTF_RIGHTUP = &H10

    Public Const MOUSEEVENTF_MOVE = &H1

    Public Structure POINTAPI

        Dim x As Long
   

     Dim y As Long

    End Structure

    Public Function GetX() As Long

        Dim n As POINTAPI

        GetCursorPos(n)

        GetX = n.x

    End Function

    Public Function GetY() As Long

        Dim n As POINTAPI

        GetCursorPos(n)

        GetY = n.y

    End Function

    Public Sub LeftClick()

        LeftDown()

        LeftUp()

    End Sub

    Public Sub LeftDown()

        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

    End Sub

    Public Sub LeftUp()

        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

    End Sub

    Public Sub MiddleClick()

        MiddleDown()

        MiddleUp()

    End Sub

    Public Sub MiddleDown()

        mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)

    End Sub

    Public Sub MiddleUp()

        mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)

    End Sub

    Public Sub RightClick()

        RightDown()

        RightUp()

    End Sub

    Public Sub RightDown()

        mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)

    End Sub

    Public Sub RightUp()

        mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)

    End Sub

    Public Sub MoveMouse(ByVal xMove As Long, ByVal yMove As Long)

        mouse_event(MOUSEEVENTF_MOVE, xMove, yMove, 0, 0)

    End Sub

    Public Sub SetMousePos(ByVal xPos As Long, ByVal yPos As Long)

        SetCursorPos(xPos, yPos)

    End Sub

End Module

 

That will just about do it, there isn't any Reference's to made nor are there any imports :) Just copy and paste!

Here is an example on how to use it:

'This will get the coordinates for the exact center of the screen 

	Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
        Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height

'Moves the mouse to the center of the screen and a little bit down.

        Mouse.SetMousePos(intX \ 2, intY \ 2 + 90)

'Click's on the coordinates

	Mouse.LeftClick()

I hope that this will be useful to you in anyway! I will also use this as some sort of a database (Just in case I loose it :P)

- Scott Pendleton