Sendkeys ratón

[dimitrix]

Bueno, me gustaría saber si hay algo parecido al sendkeys pero con el ratón, que aparte del click principal, se pudiese mover dandole valores.

Lo busqué por Google pero no lo encontré, un saludo.

[seba123neo]

Hola si la hay, digamos vos queres mandar click del mouse...aca te dejo un ejemplo...

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function SetCursorPos Lib "USER32" (ByVal X As Long, ByVal Y As Long) As Long
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)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Public Sub MouseLeftClick(ByVal PosX As Long, ByVal PosY As Long)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, PosX, PosY, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, PosX, PosY, 0, 0)
End Sub

Private Sub Form_Load()
SetCursorPos 50, 800
Call MouseLeftClick(50, 800)
End Sub

con eso posicionas el mouse con la api SetCursorPos y despues generas un clic derecho...si tenes una resolucion de 1024x768 este ejemplo generaria un click en el boton inicio de windows....

saludos.