Pongo parte de los codes a ver si me ayudan asi entienden mejor.
Aca declaro las APIs
Código:
Luego simulo el clik izquierdoOption Explicit Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y 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 LEFT_DOWN = &H2 Private Const LEFT_UP = &H4
Código:
Y aqui un sub con las direcciones para que realize las accionesPrivate Sub LeftClick() mouse_event LEFT_DOWN, 0&, 0&, X, Y mouse_event LEFT_UP, 0&, 0&, X, Y End Sub
Código:
Y el command para que haga la accionPrivate Sub Accion() SetCursorPos Text1.Text, Text2.Text 'va hasta la posicion X(señalada en el texbox1) y la posicion Y(señalada en el textbox2) Call LeftClick 'aquí hace el click SetCursorPos Text3.Text, Text4.Text Call LeftClick SetCursorPos Text5.Text, Text6.Text Call LeftClick SetCursorPos Text7.Text, Text8.Text Call LeftClick End Sub
Código:
Que le falta para que reconozca el click sobre las otras ventanas?.Private Sub Command1_Click() Call Accion End Sub
Gracias al que pueda responder,