elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Simular click en otras aplicaciones
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Simular click en otras aplicaciones  (Leído 2,699 veces)
Noobie

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Simular click en otras aplicaciones
« en: 29 Enero 2010, 11:59 am »

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, 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 de 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

Que le falta para que reconozca el click sobre las otras ventanas? porque en realidad si clikea fuera del form pero solo en el escritorio.
Gracias al que pueda responder,


En línea

Noobie

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Simular click en otras aplicaciones
« Respuesta #1 en: 29 Enero 2010, 12:30 pm »

Disculpen hacia como 5 días que me habia trabado acá >.< y ahora me vino una idea que era en lugar de hacer las 4 acciones en un solo sub las dividi en 4 subs distintos y me salio XD.
Ahora teno una pregunta yo en mi aplicacion tengo 2 forms, el form2 es en el que tengo los 8textbox que configuran las posiciones donde se va a parar el mouse y el boton que realiza la accion, pero si yo una vez configurada las posiciones a las que tiene que ir el mouse quisiera cerrar el form2 y quedarme en el form1 y activar la accion con una tecla como podría hacer?


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Simular Click « 1 2 »
Programación Visual Basic
ignorantev1.1 19 9,049 Último mensaje 2 Diciembre 2011, 09:21 am
por BlackZeroX
[Duda | Solucionado] Capturar evento global y simular click
.NET (C#, VB.NET, ASP)
Shout 3 3,685 Último mensaje 13 Julio 2013, 05:22 am
por Shout
[Ayuda] Simular un click del mause con sendkeys vbKeyLButton
Scripting
Flamer 3 4,807 Último mensaje 9 Marzo 2015, 20:52 pm
por Eleкtro
[Ayuda] Simular un click del mause
Programación Visual Basic
Flamer 3 2,612 Último mensaje 11 Marzo 2015, 05:49 am
por Flamer
C# - Simular Click en otra aplicacion
.NET (C#, VB.NET, ASP)
NOIS 1 4,098 Último mensaje 10 Mayo 2016, 21:10 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines