🚀 go-pugleaf

Hi,

here's and Example of using the API Call SetCursorPos

Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos"
(ByVal x As Long, ByVal y As Long) As Long

Function MouseHere(MouseX AS Integer, MouseY AS Integer) AS Boolean
    'Get the Screen Resolution...   ScreenX by ScreenY in Pixels
    ScreenX = Screen.Width / Screen.TwipsPerPixelX
    ScreenY = Screen.Height / Screen.TwipsPerPixelY

    'Check to see if the New Co-ords are with in the Screen Resolution
    IF MouseX > ScreenX THEN MouseX = ScreenX
    IF MouseX < 0 THEN MouseX = 0

    IF MouseY > ScreenY THEN MouseY = ScreenY
    IF MouseY < 0 THEN MouseY = 0

    'Set the Mouse Cursor at the New Position
    SetCursorPos MouseX, MouseY

    'Set the Function to True because the the Whole Subroutine ran
    MouseHere = TRUE
End Function

Sub Form_Load()
    MsgBox MouseHere(100, 100), vbOKOnly, "MouseHere Return Value"
End Sub


: )
any Questions ask me : )


Lonnie Boudreaux wrote:

> Does anyone know how to make a program move a mouse on the screen,
> hopefully predetermined places.  Like sending keystrokes maybe.
>
> Thanks
> Lonnie