Nuse si es bien bien lo k buskas, pero yo ice 1 programa ace tiempo que lo que hacia era capturar las coordenadas dl raton, y dspues simulaba 1 doble click en esas mismas coordenadas.
Te pongo el code aki aver si te sirve:
En el form:
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
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 Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Dim Res As Long
x = Text1.Text
y = Text2.Text
Res = SetCursorPos(x, y)
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, x, y, 0, 0
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, x, y, 0, 0
End Sub
Private Sub Timer1_Timer()
Dim Posicion As POINTAPI
GetCursorPos Posicion
Text1.Text = Posicion.x
Text2.Text = Posicion.y
Timer1.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Y en un modulo (para capturar las coordenadas):
Option Explicit
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
x As Long
y As Long
End Type
Los textbox k hay en el code no harian muxa falta, los puse para que se vieran + cosas en el programa xD. Y en el timer1 puse un intervalo d 5segundos para que te diera tiempo a situar el cursor en el lugar y a los 5 segundos capturara las cordenadas.
Aki te pongo tmb, las opciones que tienes en el mouse_event:
Const MOUSEEVENTF_MOVE = &H1 ' movimiento del mouse
Const MOUSEEVENTF_LEFTDOWN = &H2 ' botón izquierdo presionado
Const MOUSEEVENTF_LEFTUP = &H4 ' botón izquierdo soltado
Const MOUSEEVENTF_RIGHTDOWN = &H8 ' botón derecho presionado
Const MOUSEEVENTF_RIGHTUP = &H10 ' botón derecho soltado
Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' botón central presionado
Const MOUSEEVENTF_MIDDLEUP = &H40 ' botón central soltado
Const MOUSEEVENTF_ABSOLUTE = &H8000 ' movimiento absoluto
-salu2-
Autor
En línea
