Scott Pendleton

Scott Pendleton

  • NA
  • 1
  • 2.1k

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

Sep 3 2010 1:21 AM
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