handle à n'importe quelle app ?

Version imprimable

bonjour ! je souhaiterai pouvoir faire éxécuter une commande de keybd_event pour n'importe quelle programme ayant le focus.

Déjâ le probleme à l'origine, c'est que sa ne fonctionne que sur ma form.
Le 2ieme probleme est que si mon application perds le focus, sa ne marche plus du tout; ni dans ma form, ni dans n'importe quelle programme.

Hors je veux donc pouvoir envoyer mon keybd_event partout, zone de texte ou non.

Une idée ?
J'ai déja éssayer sa :
Code:

1 2 3 4 5 6 7 8 9 10 Procedure sendkeys(); var hWindow: HWND; begin hWindow := GetForegroundWindow(); keybd_event(VK_space, 0, 0, 0); sleep(30); keybd_event(VK_space, 0, KEYEVENTF_KEYUP, 0); sleep(200); end;
mais sa ne fonctionne pas mieu que s'ils n'y étaient pas :).

J'utilise aussi des hooks, cela doit changer quelque chose ?

29/04/2007, 21h18
Fabrice ROUXEL 1

Essayes avec AttachThreadInput() puis GetFocus().

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Procedure GetSysFocus;
var
  hFgWin, FgThreadID: Integer;
begin
  hFgWin     := GetForegroundWindow;
  FgThreadID := GetWindowThreadProcessID(hFgWin, nil);
  if AttachThreadInput(GetCurrentThreadID, FgThreadID, True) then
  GetFocus;
end;
 
Procedure sendkeys();
begin
getsysfocus();
  keybd_event(VK_space, 0, 0, 0);
  sleep(30);
  keybd_event(VK_space, 0, KEYEVENTF_KEYUP, 0);
  sleep(200);

Ne fonctionne pas

Erf, dur dur le focus global ...

30/04/2007, 15h07
Ludo_360

focus global

J'ai à peu près le même problème...

Je cherche de mon côté, mais ça ne donne pas grand chose.

Si j'ai du nouveau je te tiens au courant.

++

ps: je viens de lire ton message et je n'ai pas msn jss au taf.. :s

Tu peux toujours essayer avec
SendInput...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
var
  Input:TInput;
begin
  Input.Itype := INPUT_KEYBOARD;
  Input.ki.wVk := VK_CONTROL;
  Input.ki.wScan := 0;
  Input.ki.time := 0;
  Input.ki.dwExtraInfo := 0;
 
  Input.ki.dwFlags := 0;    // Preparation pour envoi Key DOWN
  SendInput(1, Input, SizeOf(Input));  //Send Key DOWN
  //Lecture de l'etat de VK_CONTROL
  if GetAsyncKeyState(VK_CONTROL) <> 0 then
  begin
      //Vk_Control est down! remet a UP!
      Input.ki.dwFlags := KEYEVENTF_KEYUP; // preparation pour envoi Key UP
      SendInput(1, Input, SizeOf(Input)); //Send Key UP
  end;

30/04/2007, 20h48
devoluti0n

Sa ne fonctionne pas mieu, si ma forme n'a pas le focus, l'envoi ne marche plus, sendinput ou autre...

Je me pose des questions, tel que est-ce que le fait d'utiliser des hooks claviers peuvent poser ce probleme.

Si c'est le cas, comment remedier à cela tout en gardant mes hooks ?

Faudrait voir le code ton ton Hook Clavier...
Techniquement, ca devrait rien changer...

voici un template de hook clavier:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 //Fonction qui filtre les messages clavier et renvoie les infos à l'application function CallBack_Keyboard_Hook(nCode: Integer; iWPARAM: wParam; iLPARAM: lParam):LResult; stdcall; far; begin if (nCode >= HC_ACTION) then begin //Traite les info des touches... //Interdit à l'application de traiter cette touche //donc on retourne<>0 result:=1; //Permet l'envoie les informations directement à l'application //à qui était destiné les touches donc retourne zéro! //sans executer les autres hook clavier result:= 0; //Permet l'envoie des informations aux autre hook //et permet éventuellement (selon les autre hook) //à l'application de recevoire les touches appuyé result:=CallNextHookEx(NextHookIDKeyboard, nCode, iwParam, ilParam); end else begin result :=CallNextHookEx(NextHookIDKeyboard, nCode, iwParam, ilParam); end; end;
Donc si tu retourne toujours zéro dans ton hook clavier
et que tu appèle bien le Hook clavier suivant je vois pas
pourquoi il y aurait un blocage à ce niveau.

Mais ca me fait pensé... tu dit que ca ne fonctionne plus lorsque tu perd
le focus...est-ce que tu te base sur ton hook pour dire cela?

Si tu veux que ton hook clavier fonctionne avec toutes les applications...donc c'est un hook système...tu doit alors mettre ton hook
dans une DLL....

mais bon c'est peut-être déjà le cas....

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
var
  Form1: TForm1;
  KeybdHook: HHook;
  Input:TInput;
implementation
{$R *.DFM}
Procedure sendkeys();
begin
  Input.Itype := INPUT_KEYBOARD;
  Input.ki.wVk := VK_SPACE;
  Input.ki.wScan := 0;
  Input.ki.time := 0;
  Input.ki.dwExtraInfo := 0;
  Input.ki.dwFlags := 0;    // Preparation pour envoi Key DOWN
  SendInput(1, Input, SizeOf(Input));  //Send Key DOWN
  //Lecture de l'etat de VK_SPACE
  if GetAsyncKeyState(VK_SPACE) <> 0 then
      //Vk_Control est down! remet a UP!
      Input.ki.dwFlags := KEYEVENTF_KEYUP; // preparation pour envoi Key UP
      SendInput(1, Input, SizeOf(Input)); //Send Key UP
end;
function KeyboardProc(code: Integer; wParam: Word; lParam: LongInt):LResult;StdCall;
begin
  if wparam = 17
  then
  sendkeys();
  result := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeybdHook := SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc, HInstance,0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if KeybdHook <> 0 then
    UnhookWindowsHookEx(KeybdHook);
  KeybdHook := 0;
end;
end.

donc non je n'ai pas de dll, meme si mon but est donc de faire un hook systeme (je ne le savais pas :?)

J'ai un ami qui a utiliser un programe tel que autohotkey qui permet cela, et ce sans dll.

01/05/2007, 14h38
Eric Boisvert

j'ignore si ce poste à quelque lien avec tes précédents...

je te fais tout de même part de mon avis....

j'ignore si un hook system + l'envoie de touche via les API
peut fonctionner avec un jeu...qui utilise probablement DirectInput.

Ce qui te donne l'impression que toute les fonctions sudgéré ici pour
envoyé des touches à d'autres applications ne fonctionne pas...

(DirectInput n'a probablement rien à voir avec une queue de message
windows et des wm_keydown etc)
02/05/2007, 12h53
devoluti0n

c'est éfféctivement en rapport avec mes posts précédents.
Sauf que sa ne marche que dans ma form, et que forcément sa devrai marcher au moins sur wordpad ou autre programme de ce genre.
02/05/2007, 14h24
Eric Boisvert

Citation:

Envoyé par devoluti0n

Sauf que sa ne marche que dans ma form,

Je dirais que c'est normale puisque ton hook n'est pas dans une Dll...
il n'est donc pas système... donc il fonctionne seulement pour ton application.

Il existe un très jolie tuto sur les hook et simulation de touche...
Thierry Charles-->Hook,Message

il y a même un exemple d'un hook Clavier et Souris dans une Dll
Bonne Lecture