Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Ayuda con una macro

Estas en el tema de Ayuda con una macro en el foro de Visual Basic clásico en Foros del Web. Hola! He podido armar una macro que mueve el mouse a las posiciones que indico desde una serie de textboxs y hace clikcs perfecto pero ...
  #1 (permalink)  
Antiguo 26/01/2010, 08:35
 
Fecha de Ingreso: enero-2010
Mensajes: 1
Antigüedad: 14 años, 3 meses
Puntos: 0
Ayuda con una macro

Hola! He podido armar una macro que mueve el mouse a las posiciones que indico desde una serie de textboxs y hace clikcs perfecto pero sólo en el escritorio. El problema es que se mueve de posiciones y realiza los clicks pero solo sobre el escritorio, por ejemplo, yo lo mando a las posiciones x47 y1009, x82 y939, x328 y159, x593 y 250 que es para abrir el bloq de notas sólo reconoce el clikc que le se le hace a inicio, con las 3 posiciones restantes las hace y hace sus respectivos clicks en cada una pero siempre sobre el escritorio no hace clikc en Inicio>Todos los programas>Accesorios>Bloq de notas que es lo que yo busco sino que solo llega hasta la barra de tareas donde esta Inicio hasta allí luego continua haciendo los cliks sobre el escritorio.(lo de abrir el bloq e notas es solo una prueba no es que valla a hacer una macro solo para eso >.<)

Pongo parte de los codes a ver si me ayudan asi entienden mejor.

Aca declaro las APIs

Código:
Option 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
Luego simulo el clik izquierdo

Código:
Private Sub LeftClick()

 mouse_event LEFT_DOWN, 0&, 0&, X, Y
 mouse_event LEFT_UP, 0&, 0&, X, Y

End Sub
Y aqui un sub con las direcciones para que realize las acciones

Código:
Private 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
Y el command para que haga la accion

Código:
Private Sub Command1_Click()

Call Accion

End Sub
Que le falta para que reconozca el click sobre las otras ventanas?.
Gracias al que pueda responder,

Etiquetas: macro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:29.