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

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Me confunde esta parte, como lo logro
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Me confunde esta parte, como lo logro  (Leído 2,052 veces)
TheJucas21

Desconectado Desconectado

Mensajes: 43


Ver Perfil
Me confunde esta parte, como lo logro
« en: 6 Diciembre 2017, 13:02 pm »

Buenas, tengo una nueva duda me explico, yo tengo tengo codigos en un proyecto vb6 para mover mouse y detecetar el click, por ende al hacer click realiza una accion con el fin de automatizar una accion, en este caso uso el mouse click derecho, y tengo otro codigo que me lee las coordenas X Y de mi mouse, ahora que entienden estas 3 capacidad de lectura XY mouse, deteccion de click y mover y realizar accion en mi proyecyo les muestro mi codigo.

If GetAsyncKeyState(2) Then
If Mouse.X > "581" And Mouse.X < "667" And Mouse.Y > "354" And Mouse.Y < "382" Then
Sendkeys ("hola")
End If
End If

Si logran entender el codigo correctamente lo que hace es preguntar si el mouseclick derecho se clickea entre las dimenciones de un rectangular que yo fije con XY del mouse y si esta en esa parte escribe "hola".
Si esta todo entendido a este punto les cuento que quiero hacer que, pregunte si el mouseclick derecho se clickea entre esas dimenciones y si lo hace (que ahi lo hace) despues del proximo mouseclick derecho ahi esribe el "hola" por ende tengo que tocar el click derecho en esa sección rectangular y despues donde quiera y ahi escribe "hola"

Si no lograron entender lo que quiero decir escriban y repondo rapidamente.
Yo si lo logro sacar el code lo comento y cierro th.

Saludos


En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: Me confunde esta parte, como lo logro
« Respuesta #1 en: 7 Diciembre 2017, 00:18 am »

Para determinar si una posición (Point) del mouse está dentro de los límites de un rectángulo (RECT), no necesitas hacerlo como lo estás haciendo, puedes usar la función PtInRect. Cuando hayas evaluado que el botón derecho del mouse es presionado dentro de los límites de ese rectángulo, puedes usar la función WindowFromPoint pasándole como argumento la posición actual del mouse (si no conoces la posición exacta, puedes usar la función GetCursorPos ) para obtener un controlador (handle) a la ventana en la que se presionó el botón del mouse, y entonces puedes activar el foco de esa ventana con la función de VB AppActivate o la función de la API de Windows SetForegroundWindow, y por último ya podrías usar la función de VB SendKeys para enviar pulsaciones del teclado a la ventana activa con el input del teclado direccionado a ella.

No me importaría mostrarte un ejemplo, pero no programo en VB6 sino en VB.NET, así que te dejo solamente la documentación de las funciones de Windows:

+

Saludos!


« Última modificación: 7 Diciembre 2017, 00:28 am por Eleкtro » En línea



Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con esta aplicacion que no logro acabarla
Programación Visual Basic
B@RTY 6 2,062 Último mensaje 5 Mayo 2006, 01:36 am
por noob_Setup
Como grabo parte de un video que esta en un dvd ¿?
Multimedia
Odyssea 1 2,622 Último mensaje 5 Julio 2008, 02:14 am
por Songoku
Esta bien como lo logro?..
Ingeniería Inversa
$Edu$ 6 3,383 Último mensaje 11 Octubre 2011, 21:37 pm
por Flamer
Ayuda no entiendo esta parte del codigo, soy principiante
Programación C/C++
spiderboot 3 3,325 Último mensaje 30 Enero 2014, 18:14 pm
por spiderboot
(PYTHON) No logro entender una parte del código
Scripting
Runforyourlife 2 2,077 Último mensaje 3 Agosto 2015, 16:53 pm
por Runforyourlife
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines