Visual Basic - mover puntero y hacer click

hola, mi problema es este, ya lei en el foro pero no hay nada relacionado con esto

lo que pasa es ke diariamente tengo ke respaldar un sistema, me hace perder mucho tiempo porke tengo ke dar clicks en varios puntos y se tarda entre cada proceso, lo ke quisiera saber es:

como hacer para que el puntero del mouse se valla a cierta posicion en lapantalla y se de click solo, solo es, ke se mueva el mouse y yo le pongo timers para ke apunte en determinado sitio y de click, asi nadamas ejecutar el programa y ke solo haga todo, gracias, se los agradezco muchisimo

un besotote al que me ayude :P

moverlo con la api SetCursorPos X, Y

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

y con este api es para forzar el click

Private 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)

estas son las vanderas

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

y esto es para que presione y levante el click

mouse_event(MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, X, Y, 0, 0)

el resto con los timers lo sabes hacer asi que cualquier cosa hablame al mail directo que seguro te respondo

Hola Martín, por favor podrías indicarme mas al detalle de tu solución, necesito ubicar la posición de un botón o enlace dentro de una web cualquiera y de ahí dar clic en ella.

Muchas gracias de antemano.

Uno mi estimado para mover el raton es muy sencillo te paso el codigo copy paste
' Access the GetCursorPos function in user32.dll
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
' Access the GetCursorPos function in user32.dll
Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

' GetCursorPos requires a variable declared as a custom data type
' that will hold two integers, one for x value and one for y value
Type POINTAPI
X_Pos As Long
Y_Pos As Long
End Type

' Main routine to dimension variables, retrieve cursor position,
' and display coordinates
Sub Get_Cursor_Pos()

' Dimension the variable that will hold the x and y cursor positions
Dim Hold As POINTAPI

' Place the cursor positions in variable Hold
GetCursorPos Hold

' Display the cursor position coordinates
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _
"Y Position is : " & Hold.Y_Pos
End Sub

' Routine to set cursor position
Sub Set_Cursor_Pos()

' Looping routine that positions the cursor
For x = 1 To 480 Step 20
SetCursorPos x, x
For y = 1 To 40000 Step 20
Next y
Application.Wait (Now + TimeValue("00:00:01"))

Next x
End Sub

hola, interesante, perdon por revivir el post, pero yo quiero automatizar tareas, por ejemplo, una de ellas, seria que el mouse de vueltas en circulos en el centro de la pantalla, y que valla dando click derecho mientras se mueve, se podria hacer? si es asi ¿como?

jajajajaja tramposo ya se pra q quieres q el mouse de vueltas en circulos

¿para que?

para q es lo del circulo cuentanos ?

Hola estimado, pudiste solucionar, te lo agradecería.