Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-06-2007
rob1 rob1 is offline
Miembro
 
Registrado: sep 2005
Posts: 42
Poder: 0
rob1 Va por buen camino
Simular click!

Hola amigos:

No he tenido problemas simulando teclas pero la verdad no se como hacerlo con un click.
Uso este procedimiento para las teclas
Código Delphi [-]
var
  Input: TInput;
begin
  Input.Itype := INPUT_KEYBOARD;
  Input.ki.wVk := VK_space; // Tecla a simular
  // Presionar tecla
  SendInput(1, Input, SizeOf(Input));
  // Soltar tecla
  Input.ki.dwFlags := KEYEVENTF_KEYUP;
  SendInput(1, Input, SizeOf(Input));
  application.ModalStarted;
end;
si alguien puediera decirme como simular los cliks le estaria agradecido.


**Me habia olvidado, si es posible también para elegir las coordenadas donde se hara el click.
Responder Con Cita
  #2  
Antiguo 18-06-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Código Delphi [-]
Windows.mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Windows.mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Las anteriores instrucciones simulan el "clic" del botón izquierdo de un ratón.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 18-06-2007
rob1 rob1 is offline
Miembro
 
Registrado: sep 2005
Posts: 42
Poder: 0
rob1 Va por buen camino
ok

ok amigo lo probare, gracias por responder.
Responder Con Cita
  #4  
Antiguo 18-06-2007
rob1 rob1 is offline
Miembro
 
Registrado: sep 2005
Posts: 42
Poder: 0
rob1 Va por buen camino
hola!. Lo he provado y funciona muy bien pero no logro establecer las cordenadas donde quiero q el click se haga:
Código Delphi [-]
setcursorpos(1150,350);
Windows.mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
sleep(500);
Windows.mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Solo funciona en windows, la idea es q funcionase tambien en elprograma que
deseo, a ver si alguien me ayuda.


**El click funciona perfectamenteen la otra aplicación, el tema es que se tiene q mover a las coordeanadas que le indico y no funciona

Última edición por rob1 fecha: 18-06-2007 a las 18:13:10.
Responder Con Cita
  #5  
Antiguo 18-06-2007
rob1 rob1 is offline
Miembro
 
Registrado: sep 2005
Posts: 42
Poder: 0
rob1 Va por buen camino
hola de nuevo, estuve mirando la funcion q tu me escribiste y encontre, que puedo setear la posicion del mouse de esta manera:

Código Delphi [-]
windows.mouse_event(mouseeventf_move+mouseeventf_absolute,x,y,0,0)

El problema es que la punta del monitor para esa funcion es (65535,65535) en vez de (1280,1024) no entiendo como es esto =.=

Help PLz!

Última edición por rob1 fecha: 18-06-2007 a las 18:56:38.
Responder Con Cita
  #6  
Antiguo 18-06-2007
rob1 rob1 is offline
Miembro
 
Registrado: sep 2005
Posts: 42
Poder: 0
rob1 Va por buen camino
bueno ya lo solucione, lo hice al modo cavernicola con tabla de 3 simples.

para el q esta trabajando en lo mismo solo le doy un consejo:

los valores del monitor los toma asi ^^ me causo un par de problemas de calculo,
0 _________________>X
|
|
|
|
|
|
|
Y
gracias dex por tu respuesta.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Simular click en submit(imagen) de formularios web RazoR Internet 9 17-03-2011 18:31:07
implmentar Articulo click..click..run Crash ASAPLTDA OOP 0 21-01-2006 16:16:08
Simular el click del ratón islu Varios 2 26-02-2004 16:32:25
Simular doble click en aplicación externa belg API de Windows 4 29-12-2003 17:38:27
Simular click en otra aplicacion(es) doverzhoff Varios 3 22-12-2003 23:31:32


La franja horaria es GMT +2. Ahora son las 11:24:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi