Como Crear Programa Que Pulse Una Tecla Continuamente?

[darkcuevas]

hola.
principal mente disculpen que el titulo no explique bn lo que quiero hacer es que me resulta algo difisil explicarlo

voy ha hacer un par de preguntas que creo q van por el mismo lado

1° estoy creando un programa que hace que se precione constante mente una o varias teclas por ejenplo: yo quiero que la letra "a" se precione continua mente sin nesesidad de pulsarla en el teclado...(la pregunta es que codigo devo usar "no tengo ningun tipo de idea de como va el codigo que se usa en este caso")

2° yo quiero que al pulsar por ejenplo: Ctrl+A se active un boton o se prenda un time en pocas palacres un acceso rapido por el teclado (como logro que esto pase?)


bueno espero sus respuestas salu2 y grax de ante-mano

nota: me conedto por la mañana xD Bye

[ecfisa]

Hola darkcuevas.

Podrías utilizar un TTimer para simular la presión continua de una tecla y para tu segunda pregunta, aprovechar el evento OnKeyPress del form.

Ejemplo : ( en un TForm poné un TTimer y un TEdit o un TMemo para visualizar el resultado )

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:= True;
  Timer1.Enabled:= False;
  Timer1.Interval:= 250;  // 1/4 seg (o lo que gustes)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event(Ord('A'),0,0,0);  // simular tecla presionada
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Msg: TMsg;
begin
  if (ssCtrl in Shift) and (Key = Ord('A')) then  // Ctrl + A
  begin
    PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE); //Quitar Beep
    Timer1.Enabled:= not Timer1.Enabled;  // Activar/Desactivar TTimer
  end;
end;
...

La repetición de pulsación de tecla se activa/desactiva con Ctrl+A.


Un saludo.

[Casimiro Notevi]

Y felizmente, darkcuevas, ha obtenido el código realizado muy inteligentemente por ecfisa, un código creado coherentemente en el que repite constantemente una tecla repetidamente hasta que el usuario decida convenientemente que ya no debe repetirse ininterrumpidamente.

[[Caral]]

Hola
Y colorin, colorado......
Saludos

[darkcuevas]

Empezado por ecfisa

Hola darkcuevas.

Podrías utilizar un TTimer para simular la presión continua de una tecla y para tu segunda pregunta, aprovechar el evento OnKeyPress del form.

Ejemplo : ( en un TForm poné un TTimer y un TEdit o un TMemo para visualizar el resultado )



La repetición de pulsación de tecla se activa/desactiva con Ctrl+A.


Un saludo.

hola quetal bueno ya prove el codigo que pulsa la tecla


pero no entiendo como calocar el de acceso rapido me podrias explicas un poco mejor como colocarlo?? porfavor

no entiendo bn lo del evento dime como lo pondrias tu paso por paso si no es mucha molestia

(soy algo nuevo en este asunto)


haaa y que conponente es este FormKeyDown???

[Casimiro Notevi]

El form tiene el evento keydown, escribe el código en él.

[darkcuevas]

mira yo escrivo el codigo en el evento pero nada al conpilar y marcar ctrl+a no pasa nada

[Casimiro Notevi]

Bueno, en el ejemplo que ha puesto ecfisa es ctrl+A mayúscula.

[darkcuevas]

no nada

[Casimiro Notevi]

Empezado por darkcuevas

no nada

¿No nada,? ¡qué!, te recomiendo que leas nuestra guía de estilo, es que no somos adivinos

[darkcuevas]

disculpa que no aya segido respondiendo ayer es que me fui a dormir devido que tenia mucha fiebre


bueno continuo

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Msg: TMsg;
begin
  if (ssCtrl in Shift) and (Key = Ord('A')) then  // Ctrl + A
  begin
    PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE); //Quitar Beep
    Timer1.Enabled:= not Timer1.Enabled;  // Activar/Desactivar TTimer
  end;
end;

yo introdusco el codigo en el evento pero al intentar encender el timer con Ctrl+A
no pasa nada no se enciende ni nada tanbien hise lo que medijiste y pusela "a" en minuscula
pero no paso nada me podrias explicar el codigo?

[ecfisa]

Hola darkcuevas.

Si copias/pegas el código que te puse y los eventos correspondientes están asignados, te aseguro que funciona.
Para visualizar el funcionamiento, usá un Edit cuyo Tab Order sea el primero.

Te explico básicamente como funcióna el código.

Cuando se crea el form, se pone la propiedad KeyPreview a verdadero haciendo que el form capture los eventos de teclado
antes que el control activo. Se desactiva el TTimer y se ajusta el intervalo con que se disparará el evento OnTimer.

Al dispararse el evento OnTimer, mediante la función keybd_event se simula la presión de una tecla. ( A en el ejemplo).

Usé el evento OnKeyDown del form para verificar si la combinación Ctrl+A fué pulsada; si es así se activa o desactiva
el TTimer mediante la negación del estado anterior de la propiedad Enabled.

Un saludo.

[Delfino]

El TDBNavigator tiene una cosa parecida, si se mantiene clickado algún botón se dispara continuamente la acción..

[darkcuevas]

Empezado por ecfisa

Hola darkcuevas.

Si copias/pegas el código que te puse y los eventos correspondientes están asignados, te aseguro que funciona.
Para visualizar el funcionamiento, usá un Edit cuyo Tab Order sea el primero.

Te explico básicamente como funcióna el código.

Cuando se crea el form, se pone la propiedad KeyPreview a verdadero haciendo que el form capture los eventos de teclado
antes que el control activo. Se desactiva el TTimer y se ajusta el intervalo con que se disparará el evento OnTimer.

Al dispararse el evento OnTimer, mediante la función keybd_event se simula la presión de una tecla. ( A en el ejemplo).

Usé el evento OnKeyDown del form para verificar si la combinación Ctrl+A fué pulsada; si es así se activa o desactiva
el TTimer mediante la negación del estado anterior de la propiedad Enabled.

Un saludo.

grax si me funciono lo que paso es que yo estaba cometiendo un error gracias (;

Empezado por Delfino

El TDBNavigator tiene una cosa parecida, si se mantiene clickado algún botón se dispara continuamente la acción..

me puedes ablar algo mas de TDBNavigate porfavor

lo que pasa es que el codigo que me dio ecfisa yo lo quiero para que emule la cosntante precion de las teclas al curarme o algo asi en algun juego entonses cuando quiero que cure no cura pero si abro un blod de notas si marca las teclas corespondientes

entonses abra que aserle algun tipo de modificacion al codigo o asi o sino buscar otro codigo noc recomiendenme algo

[ecfisa]

Hola.

Ahora entiendo. Lo que querés es hacer es algo como los auto pot que se usan en los juegos On Line.
En base el procedimiento es muy similar, la diferencia es que la tecla presionada debe ser capturada por el juego y no por el tu form. Y por tanto la forma en que envíes el mensaje, dependerá del juego que se trate. Y no te olvides que la mayoría de los juegos detecta este cheat.

Como un comienzo revisá este link: Autoclicker .

Aunque por lo que ví, se aplica al click del mouse, creo que podés sacar unas cuantas ideas.

Un saludo.

[darkcuevas]

Empezado por ecfisa

Hola.

Ahora entiendo. Lo que querés es hacer es algo como los auto pot que se usan en los juegos On Line.
En base el procedimiento es muy similar, la diferencia es que la tecla presionada debe ser capturada por el juego y no por el tu form. Y por tanto la forma en que envíes el mensaje, dependerá del juego que se trate. Y no te olvides que la mayoría de los juegos detecta este cheat.

Como un comienzo revisá este link: Autoclicker .

Aunque por lo que ví, se aplica al click del mouse, creo que podés sacar unas cuantas ideas.

Un saludo.

sii exacto eso es lo que quiero creo que el codigo que esta en el link ke dejaste esta exelente voy a estudiar un rato xD con eso es suficiente si tengo alguna duda pregunto grax...


ha una pregunta que es (then) (else) esos 2 que funcion tienen si no es mucha molestia
para que sirve esto tanbn

implementation

{$R *.dfm}

[ecfisa]

Hola darkcuevas.

La sintaxis del condicional if / then /else, es muy sencilla.
Te hago un ejempo en pseudocódigo y su contraparte en código Delphi que creo que es la mejor manera de ver su funcionamiento.

si Variable > 0 entonces
Mostrar "mayor que cero"
sino
Mostrar "menor que cero"

Código Delphi [-]
    if Variable > 0 then
      ShowMessage('mayor que cero')
    else
      ShowMessage('menor que cero');

implementation: Es una palabra reservada de Delphi que indica que se inicia la sección donde se 'implementa' (se escribe el código) de lo declarado en la sección de interface de la unidad. El código que se ubica en la sección implementation, es sólo accesible por la propia unidad.

{$R *.dfm}: Le indica a Delphi que debe enlazar los componentes visuales (form, botones, imágenes, etc) declarados en la sección interface,
esto Delphi lo almacena en un archivo con extensión .dfm.


Un saludo.

[[Caral]]

Hola
Para ampliar un poco lo dicho por ecfisa:
Hay que tener en cuenta que antes del ELSE no hay que poner punto y coma.
Tambien hay que tomar en cuenta que si hay mas de un dato entre estos delphi solo leera el primero, para que lea todos se necesita iniciar y terminar el proceso, asi:

Código Delphi [-]
 if Variable > 0 then
      begin // comienza
      Variable := 2;  // primer dato
      ShowMessage('La variable es 2'); // segundo dato, con punto y coma
      end  // termina sin punto y coma
    else
    Begin 
      Variable := 1;
      ShowMessage('La variable es 1');
end; // final

Saludos

[darkcuevas]

bueno ya entiendo gracias por toda su ayuda

[Assassins9797]

Lo de activar y desactivar con Control+A no era a lo que me refería.Me refiero a que al clickear un Button el button esté presionado hacia abajo,y cuando clickees en alguna parte de la pantalla el button se ponga normal y de clicks donde habías clickando antes (el guardado de las Coordenadas).E encontrado un video donde sale el Autoclicker Pillin en un juego llamado Boombang

Youtube : como usar autoclick pillin (No puedo poner el link)

Hay teneis el Autoclicker.Me gustaría crearlo exactamente como ese,salvo los texboxt.Es decir,Un button,un trackbar y la funcion del Button como el Pillin.El problema es que no encuentro el código.Si alguien me lo da,estaría muy agradecido.