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

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Simular posicion del mouse y posteriormente clickearse
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Simular posicion del mouse y posteriormente clickearse  (Leído 1,233 veces)
renga73

Desconectado Desconectado

Mensajes: 53


Ver Perfil
Simular posicion del mouse y posteriormente clickearse
« en: 25 Abril 2006, 10:02 am »

Lo q quiero hacer es simular q en un determinado momento el puntero del mouse se ubique en una cierta posicion la cual conozco y luego se clickee.
Suponer q la posicion es 400x250. Bueno quiero q cuando clickee un boton el puntero se ubique ahi y se clickee.
No hace falta ver q el puntero se mueva, me interesa q se ubique en esa posicion y se clickee.


En línea

dekland

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Re: Simular posicion del mouse y posteriormente clickearse
« Respuesta #1 en: 8 Julio 2006, 18:30 pm »

Para posicionar el mouse tenes que:
Código:
Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
SetCursorPos 500, 233
End Sub
Te recomiendo que fijes la posicion del formulario, porque como esta puede variar al menos un poco, se puede ir es misma resposicion a otro lado.


En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Simular posicion del mouse y posteriormente clickearse
« Respuesta #2 en: 9 Julio 2006, 01:51 am »

Con SetCursorPos no podes simular los clicks del mouse. Para eso necesitas la API mouse_event. Un ejemplo seria asi:
Código:
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2
Private Const MOUSEEVENTF_LEFTUP As Long = &H4

Private Sub Command1_Click()
    SetCursorPos 25, 750
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Si queres simular otros botones del mouse busca otras constantes que empiecen con MOUSEEVENTF...

Saludos.-
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines