Título: Accion al mover el raton Publicado por: Snort en 24 Septiembre 2006, 12:44 pm Wolas, vereis estaba haciendo un programilla, qe tiene una fase qe es tipo salvapantallas, es decir formularios en visible=false y cuando se presione una tecla, se mueva el raton, o se haga click haga una accion, pero ahi me he qedado estancao. Supongo qe si se podra hacer pero me estoy volviendo loco con el mousemove, mouseup, mousedown... y nada.
Alguien me podria ayudar? Thanks Título: Re: Accion al mover el raton Publicado por: ~~ en 24 Septiembre 2006, 13:41 pm Hola:
Tines q usar una Api, mira aki te dejo un ejemplo (eso si, tienes q indicar las coordenadas) Módulo: Código: Declare Sub SetCursorPos Lib "User32" (ByVal X As Integer, ByVal Y As Integer) Form: Código: Private Sub Form_Load() Esto pondria el raton sobre un boton a la carga del formulario. Espero que sea esto lo q estas buscando 1S4ludo Título: Re: Accion al mover el raton Publicado por: Snort en 24 Septiembre 2006, 14:30 pm Gracias por la respuesta EON, pero no es eso exactamente, eso es para situar el cursor en el command1 cuando se cargue el formulario (no?), pero lo qe yo digo es, por ejemplo, un programa qe se ejecute ocultamente, tipo virus, y qe cuando muevas el raton, en windows o donde sea, sin el formulario de tu prorgama o hagas click en cualqier sitio de la pantalla te salga un msgbox por ejemplo diciendo "Ha movido el raton" o "ha pulsado el boton izkierdo/derecho del raton", no se si me he explicado bien, qe ocurra una accion cuando ocurra el evento "mover raton" (qe es lo qe no se lo qe es)
Saludos Título: Re: Accion al mover el raton Publicado por: gmf_321 en 24 Septiembre 2006, 15:59 pm Para cambiar de posicion el mouse vas a usar la siguiente api:
Código: Public Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long Código: Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy _ Código: Const MOUSEEVENTF_ABSOLUTE = &H8000 Para hacer click pone este code Código: mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Código: SetCursorPos("x", "y") Saludos FMG .......... Título: Re: Accion al mover el raton Publicado por: ~~ en 24 Septiembre 2006, 19:08 pm Hola:
Disculpa, pensaba q te referias a otra cosa... xD Eso q dices se puede hacer adaptando el code q a puesto gmf_321 Si pones en un timer la parte del codigo q dice: Código: SetCursorPos("x", "y") y estableces la con un if q cada vez q cambie salte un msgbox... Te pondria un ejemplo, pero es q me salta error de compilacion al usar esa linea... no se si es q esta mal o que, pero yo no le veo el fallo, me dice q falta un "=" :o Esa es la idea, ahora solo e keda adaptarlo ;) 1S4ludo Título: Re: Accion al mover el raton Publicado por: ~~ en 24 Septiembre 2006, 19:14 pm Hola:
Mira ya lo e encontrado, solo habia q leer un poco mas abajo xD Código: Private Type POINTAPI Ya esta cada vez q mueva el raton sale un msgbox ;D Lo q le faltaba al code de gmf_321 era eso de: Código: Private Type POINTAPI Esto tb lo puedes adaptar pa cuando haga click y tal... la cosa es hecharle imaginacion xD 1S4ludo Título: Re: Accion al mover el raton Publicado por: Snort en 25 Septiembre 2006, 18:32 pm Ei gracias tios soys los amos :-*
Saludos |