🚀 go-pugleaf

try using sendinput

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

Try using the SetPos API.
Add the following into a module.
---Cut Here---
Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos"
(ByVal x As Long, ByVal y As Long) As Long
---End Cut---

Example: SetCursorPos 50,100

~Reboot~
3:23 A.M.
October 8, 1999

------Original Message------
Lonnie Boudreaux <nospam@no.spam.nsc> wrote in message
news:MPG.1266fb96fd33d66989680@news1.lig.bellsouth.net...
> Does anyone know how to make a program move a mouse on the screen,
> hopefully predetermined places.  Like sending keystrokes maybe.
>
> Thanks
> Lonnie

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

Does any one know how to subclass a form to read
the mouse wheel?

shlomo raabani

rabani@shani.net