Programación General > Delphi

 Delphi 7: Forzar Click O Tecla

(1/2) > >>

Chinta Nemoto:
Holas, necesito ayuda... la verdad no lo se hacer con ningun lenguaje, pero se que los mejores programadores vienen a parar AK asi que...
Bueno la cosa es que existe un programa en un juego llamado "Argentum Online" (por cierto es un programa ilegal y no esta permitido en casi ningun caso por el staff del AO). Puede adoptar diferentes nombres pero siempre tendra unos en comun: "Macro" "Piringulete".
El Piringulete hace, cada cierto intervalo de tiempo (el cual el usuario especifica en un EDIT), una accion determinada (El mas frecuente es forzar la presion de la tecla U y un click del mouse, en las posiciones X Y que este el mouse; otro fuerza las posiciones del mouse a una determinada por el user, otros fuerzan el Enter, fuerzan las teclas para escribir "Resucitar" y fuerzan otra ves el enter).
Mi duda es si alguien puede decirme como forzar esas cosas..... Alguien me puede ayudar ?????????????????????

Mamu si lo sabes decime pliiiiiiiiiiiiiiiiiiiiiiiiiiis (mamu := appache)

madriles:
hola
esto que comentas ( no conozco el programa ) se suele hacer a traves de una variable global y un TTimer.
en cada momento o situacion del programa, esta variable tendra diferentes valores y en el Timer pones un condicional del tipo
if mivariable = 1 then close
else edit1.text:='seguimos jugando, o lo que sea';

Chinta Nemoto:
No entendiste mi duda, lo que quiero yo se saber hacer algo cada cierto intervalo (no es que no se programar intervalos de tiempo) , sino que lo que quiero hacer en un timer es....

procedure form1timer1timer()
begin
    //lo que sea que haga para forzar una tecla
end;

el tiempo se especifica en un textbox, Edit1, y se comienza con un clic en un button1, lo que quiero hacer yo es saber que hay que poner en esa linea que puse el comentario para poder forzar la presion de esa tecla (si es uno de esos mensajes de windows, diganme cual.. y como llamarlo)

BlackTigerX:
entonces lo que necesitas simplemente es que se simule que se presione una tecla... lo puedes hacer asi

keybd_event( Ord('U'), MapVirtualKey( Ord('U'), 0), 0, 0 );
keybd_event( Ord('U'), MapVirtualKey( Ord('U'), 0), KEYEVENTF_KEYUP, 0 );

eso mandaria la tecla "U" a cualquier programa que tuviera focus en ese momento

Chinta Nemoto:
grax.. eso me vino como anillo al dedo, aunque se que me falta un huevo de delphi, se que.. al menos como hacer un piringulete.

podrias pasarme la funcion entera para futuros piringuletes?

Navegación

[0] Índice de Mensajes

[#] Página Siguiente