HookMouse Dll interception application externe

Version imprimable

22/09/2010, 15h48
BuzzLeclaire

HookMouse Dll interception application externe

Bonjour à toutes 8-) et à tous,

J'aimerais savoir si un HookMouse (sous forme de Dll) peut intercepter ce genre de chose sur une application externe (application en VB).

1) L'utilisateur clique sur un Menu
2) une fenêtre apparait sur laquelle il clique sur un Bouton (je ne sais pas si c'est un TButton)
3) une deuxième fenêtre en children de la précédent apparaît
4) sur cette fenêtre il y a une sorte de Tedit avec un petit icone,
ICI 2 CAS POSSIBLE :
- l'utilisateur clique sur l'icone qui ouvre un liste (genre DBGrid), il double clic sur une des lignes pour récupérer le code (champ cle primaire)
OU
- l'utilisateur saisie le code et fait entrée

En tout etat de cause le fameux Tedit récupère donc un code.

C'est ici que je voudrais intercepter, juste apres que le code soit récupéré dans ce pseudo Tedit. (genre OnExit)
Le but étant de lancer une vérification dans la base et d'envoyer une fenêtre d'information si ce code n'est pas autorisé à l'utilisation ou de rien faire si il est autorisée.

Avant de m'engager la dedans, je voudrais juste savoir :
- si c'est possible d'intercepter ?
- si c'est possible de vider le text de ce Tedit si j'ai besoin ?
- si le hookmouse est fiable ?

Et quelque tuto précis.

Je vous remercie pour vos lumières.

Détecter l'Edit, cela sefait par EnumChildWindows ou FindWindowsEx
Modifier l'Edit, un SendMessage avec WM_SETTEXT, rien de plus simple
Voir si GetFocus peut t'aider pour détecter un pseudo OnExit
Il est possible avec WH_GETMESSAGE de récupérer les messages de l'ensemble des applis, tu dois donc pouvoir capturer le WM_SETFOCUS et WM_KILLFOCUS

tient pour te faire une idée du WH_GETMESSAGE, bon là c'est via WM_PAINT mais l'idée est là même
C'est directement dans le Code du DPR de ma DLL

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
function HookPaintProc(Code: Integer; RemoveOrNot: WPARAM; MSG: LPARAM): LRESULT; stdcall;
var
  DC: HDC;
  TextString: ShortString;
begin
  Result := 0;
 
  with TMsg(Pointer(MSG)^) do
  begin
    if message = WM_PAINT then
    begin
      DC := GetDC(hwnd);
      if DC > 0 then
      begin
        SendMessage(hwnd, message, wParam, lParam); // ne provoque pas de HookPaintProc ... j'aurais cru que ...
        TextString := '';
        GetClassName(hwnd, @TextString[1], 255);
        TextOut(DC, 0, 0, @TextString[1], StrLen(@TextString[1]));
 
        message := WM_NULL;
      end;
    end;
  end;
end;
 
function StartPaintHook(): HHOOK; stdcall;
begin
  Result := SetWindowsHookEx(WH_GETMESSAGE, HookPaintProc, HInstance, 0);
end;
 
procedure StopPaintHook(HookPaintHandle: HHook); stdcall;
begin
  if HookPaintHandle <> 0 then
    UnhookWindowsHookEx(HookPaintHandle);
end;

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
41
42
43
44
45
procedure TFrmTestDivers.BtnHookPaintStartClick(Sender: TObject);
var
  _StartPaintHook: function(): HHOOK; stdcall;
begin
  if HookPaintHandleDLL = 0 then
    HookPaintHandleDLL := LoadLibrary('DLLTest.dll');
  if HookPaintHandleDLL <= 0 then
    Exit;
 
  @_StartPaintHook := GetProcAddress(HookPaintHandleDLL, 'StartPaintHook');
  if Assigned(@_StartPaintHook) then
  begin
    try
      HookPaintHandle := _StartPaintHook();
    except
      on E: Exception do ShowMessage(E.Message);
    end;
  end;
end;
 
procedure StopPaintHook();
var
  _StopPaintHook: procedure(HookPaintHandle: HHook); stdcall;
begin
  if HookPaintHandle <= 0 then
    Exit;
 
  if HookPaintHandleDLL <= 0 then
    Exit;
 
  @_StopPaintHook := GetProcAddress(HookPaintHandleDLL, 'StopPaintHook');
  if Assigned(@_StopPaintHook) then
  begin
    try
       _StopPaintHook(HookPaintHandle);
    except
      on E: Exception do ShowMessage(E.Message);
    end;
  end;
end;
 
procedure TFrmTestDivers.BtnHookPaintStopClick(Sender: TObject);
begin
  StopPaintHook();
end;

22/09/2010, 21h56
Andnotor
@Buzz

Je répondrais dans l'ordre inverse des questions ;)

Citation:

- si le hookmouse est fiable ?

Il l'est... mais pas adapté au opérations que tu veux tester. Regarde d'autres formes de hook comme proposé par Shai.

Citation:

- si c'est possible de vider le text de ce Tedit si j'ai besoin ?

SetWindowText

Citation:

si c'est possible d'intercepter ?

Ben y'a quant même pas mal d'approximations dans ton truc
- je ne sais pas si c'est un TButton
- une sorte de Tedit
- ICI 2 CAS POSSIBLES
- un liste (genre DBGrid)
- En tout etat de cause le fameux Tedit récupère donc un code :aie:
Faudra essayer d'être plus précis :mrgreen:

@ShaiLeTroll

Ce hook n'est pas vraiment net ;)

Ce SendMessage en effet devrait provoquer de la réentrance :koi: Il devrait simplement être remplacé par CallNextHookEx.
De plus puisque CallNextHookEx n'est jamais appelée, ça devrait perturber l'ensemble des traitements puisque tu ne fais jamais suivre les messages :koi:

@ShaiLeTroll

Avec tes infos (surtout le terme EnumChildWindows ) j'ai pu faire pas mal de recherche.
J'en suis à me demander pourquoi passer par une Dll !!, autant gérer cela dans mon appli car de tout façon il me faudra une appli qui s'execute au lancement de windows.

Bref, pour faire cours, je suis entrain de récupérer les infos en dessous de ma souris en utilisant la FAQ

Mais même avec cela :
Code:

1 2 3 4 //récupération des information du contrôle Hd:=WindowFRomPoint(NewMousePos); GetWindowText(hd,WText,SizeOf(WText)); GetClassName(hd,ClassName,SizeOf(ClassName));
Les infos que je récupère ne sont pas assez précise, j'aimerais par exemple récupérer le name du composant exacte.

@AndNotOr ;)

Alors pour être plus précis, voilà la décomposition de mes points :

http://rainconnu.free.fr/1.PNG
1) je clique sur le menu Vente et je choisie Devis [image au dessus]
La je récupére = 5572702 : - #326768
(Même probleme si je clique sur un autre menu j'ai la même chose !!! le délir)

http://rainconnu.free.fr/2.PNG
2)Une fenêtre s'ouvre [image au dessus]
Là je récupère = 5638238 : Devis Clients - ThunderRT6FormDC

3)Je clique sur Créer
Sur le bouton Créer je récupère = 3672730 - &Créer;Ins - Button

http://rainconnu.free.fr/3.PNG
4)une Fenêtre s'ouvre [image au dessus]
Là je récupère (pour cette form) = 6817998 - Devis Client[Créer] - ThunderRT6FormDC

5)
Dans cette fenêtre, c'est ce Edit de code Client que je souhaite Hooké.
Je récupère cela comme info dessus = 4197660 - Edit

Je pense pouvoir aller jusqu'au 4 afin de savoir si on est bien devant la fenêtre de création de devis, mais je seche sur comment être sur de capter le onexit de ce phameux Edit ?

Est-ce plus claire ?

@Merci

[EDIT] : je viens d'essayer de faire le SetWindowText (evidement j'ai ecrit a la main le Hd). Alors à ma grande surprise je récupère bien cela
4197660 coucou - Edit
Mais je vois rien du tout dans l'appli cela reste vide ????????????

Comment expliquer cela ?

23/09/2010, 21h30
BuzzLeclaire

@Je continue,

Je viens d'essayer Spy++ pour voir si c'est pas moi qui délire.

Et je tombe toujours sur le même problème, tous les composants images (voir en dessous point 3) ) sont de la forme
Handle xxxxxx <= numéro qui change à chaque ouveture du programme (enfin si j'ai ouvert autre chose avant)
Edit <=== ClassName

Ces infos sont équivalent que ce soit sur CodeClient / Numéro / Ou date ou une autre qui est cachée. voilà les valeurs :

Handle : GetWindowsText - GetClasseName
3738476 : 12345678 - Edit (pour celle a côter du label Numéro)
4786978 : Facture! - Edit (pour celle où il y à d'écrit Devis)
2886108 : 23/09/10 - Edit (pour la date, qui selon le jour)
3803886 : - Edit (pour celle du label code Client)

Apres analyse, a la rigueur je pourrais recherche dans cette MDIForm le control qui n'a pas de GetWindowsText, car celui que je cherche est le seul dans cette fenêtre que je ne récupère pas de Text.

Mon soucis c'est que je n'arrive pas à écrire dedans ni d'ailleur dans un autre Edit, en fait le setwindowText fonctionne, mais rien ne s'affiche visuellement dedans !!!

J'ai pu aussi remarquer en appliquant mon prog sur une appli delphi que ce qui est dit comme un control Edit c'est en fait des TCombobox cela doit être le Text surement de ce composant !!!

- Alors comment je peux écrire dedans ?
- Et avez vous des exemple d'interception de onexit ou autre evenement sur des Controls d'application externe ?

Merci pour vos lumières.

PS : Même avec mon hook que j'ai fais au début me retourne la même info.
23/09/2010, 23h00
Andnotor

Allez piocher des informations dans le gui d'une application tiers... Buzz... t'es pas sorti de l'auberge :mrgreen:

T'as pas un autre moyen de récupérer cet ID ? Lecture d'une DB, d'un fichier, COM...
24/09/2010, 00h11
BuzzLeclaire

Citation:

Envoyé par Andnotor

Allez piocher des informations dans le gui d'une application tiers... Buzz... t'es pas sorti de l'auberge :mrgreen:

J'y suis entrée, mais j'ai trouvé qu'une bière..alors j'ai bu un coup... :mouarf:

Citation:

T'as pas un autre moyen de récupérer cet ID ? Lecture d'une DB, d'un fichier, COM...

Non.. hélas.

J'ai récupéré une source que j'ai adapté qui donne les enfants, petitenfant etc... mais toujours rien sur le Edit
http://rainconnu.free.fr/4.PNG

C'est quand même in truc de fou, j'ai pu lire deux topic sur ce forum, d'un membre qui avait le même problème que moi et ero-sennin stipulais qu'avec le program Spy++, le EDit seul donnait bien 'ComboBoxEx32' puis 'ComboBox' et 'Edit', ensuite sur un autre topic toujours du même Membre, ero-sennin lui a dis de faire un SetWindowText sur le combobox

J'ai essayer de recherche ce control, mais.... prout !!!

ça me gonfle...

[EDIT] :
J'ai réussi à envoyer 1 caractère dedans

Code:

SendMessage(hd, WM_CHAR, WParam('X'),0);

????

Sa veux dire quoi ? et comment faire l'inverse récupérer le text ?

Bonjour à toutes et à tous,

@ BuzzLeclair, j'ai testé ceci et je récupère le contenu de mon TEdit et de mon Tbutton :

Pour la fiche 1:

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
41
42
43
44
45
46
47
48
49
50
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées}
  public
    { Déclarations publiques}
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.DFM}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
 LeHandle:HWND;
 PCTexte:array[0..254] of Char; // array[0..x] est Compatible avec le type LPTSTR
                                // en Delphi 4 le type LPTSTR existe
  //PCTexte : LPTSTR;
 
begin
  LeHandle:=GetFocus;
  label2.caption:=IntToStr(GetWindowText(LeHandle,PCTexte,SizeOf(PCTexte)));
  label1.Caption:=String(PCTexte);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.Show;
end;
 
end.

Pour la fiche 2 :

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
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
  private
    { Déclarations privées}
  public
    { Déclarations publiques}
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.DFM}
 
end.

Cela t'aidera peut être.

@+,

Cincap

@cincap
Merci pour ton exemple, mais comme je le disais avant le GetWindowText ne fontionne par sur mon appli externe.

Avant cela j'ai réussi à envoyer et recevoir le text... ouf....

voilà les 2 fonctions que j'ai faite (avec tout ce que j'ai pu lire sur le net)

1) Recevoir
Code:

1 2 3 4 5 6 7 8 9 function TForm1.RecupTxt_Edt(Hdl_control: HWND): String; var SizeVar: Integer; begin SizeVar := SendMessage(Hdl_control, WM_GETTEXTLENGTH, 0, 0); SetLength(result, SizeVar); // Cela ne peut pas dépasser 8 caractères // On récupère le text SendMessage(Hdl_control, WM_GETTEXT, SizeVar, LParam(PChar(Result))) end;
2) Envoyer
Code:

1 2 3 4 5 function TForm1.Envoitxt_Edit(Hdl_control: HWND;Text: String): Boolean; begin // On envoi le text SendMessage(Hdl_control,WM_SETTEXT,Integer(Text),Integer(@Text[1])); end;
Maintenant il faut que j'intègre cela dans des procédure qui control le keyboard. Là j'etais sur le Move de la souris.

Bon cette zone Edit doit recevoir de tout façon un code client, mais avant de laisser poursuivre l'utilisateur, je dois :
- récupérer le code client,
- contrôle dans une table ACCESS par rapport à ce code client certaine chose (ça c'est trés facile)
- ensuite soit :
* j'autorise l'utilisation de ce code et j'envoi un message avec un Vk_return sur cette zone
* Je n'autorise pas la saisie de ce code et j'envoi une fenêtre montrant la raison de ce blocage.

Donc Quel est pour vous le meilleur moyen de détecter l'appuie de touche sur une appli externe ?
Est-ce que je peux empècher la saisie dans ce Edit ? (j'ai déjà essaye rle WM_ENABLE...marche pas). Où dois-je envoyé un retour chariot ? Où dois-je la vider systématiquement ?
Est-il possible d'ouvrir un Form sur le handle de la fenête parente de ce Edit en Showmodal ?

Merci pour votre aide.

26/09/2010, 14h16
evarisnea

:salut:

Citation:

Envoyé par BuzzLeclaire

@cincap
Merci pour ton exemple, mais comme je le disais avant le GetWindowText ne fontionne par sur mon appli externe.

en effet, GetWindowText ne fonctionne pas sur une appli externe; il faut passer par WM_GETTEXT pour récupérer le texte d'un contrôle d'une application externe comme tu l'as fait.

Bien, tojours par rapport aux infos donnés par ShaiLeTroll et apres plusieur réflexion, un hook clavier ou souris c'est pas en fait mon besoin réel puisque la zone Edit en question je doit la tester quand elle à le focus.

J'ai donc trouvé cette procédure dans laquelle j'ai ajouté une info (voir en rouge)
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 procedure TFPrincipal.GetFocusedControl(var FocusWin: HWND; var ClassName, ControlText, ParentText: string); var hOtherWin: HWND; OtherThreadID: Cardinal; aDwordvar: DWORD; hFocusWin: HWND; S, ss, sss: string; I: Integer; begin S := ''; ss := ''; sss:=''; hFocusWin := 0; hOtherWin := GetForegroundWindow; OtherThreadID := GetWindowThreadProcessID(hOtherWin, @aDwordvar); if AttachThreadInput(GetCurrentThreadID, OtherThreadID, True) then begin hFocusWin := GetFocus; if hFocusWin<>0 then try I := SendMessage(hFocusWin, WM_GETTEXTLENGTH, 0, 0); SetLength(S, I+1); SendMessage(hFocusWin, WM_GETTEXT, I+1, Integer(PChar(S))); SetLength(ss, 260); GetClassName(hFocusWin, PChar(ss), 260); I := SendMessage(GetParent(hFocusWin), WM_GETTEXTLENGTH, 0, 0); SetLength(sss, I+1); SendMessage(GetParent(hFocusWin), WM_GETTEXT, I+1, Integer(PChar(sss))); finally AttachThreadInput(GetCurrentThreadID, OtherThreadID, False); end; end; FocusWin := hFocusWin; ClassName := Trim(ss); ControlText := Trim(S); ParentText := Trim(sss);end;
Je viens vers vous car je suis bloqué, malgré que j'ai bien le handle de chaque focus où je me trouve, je ne récupère pas le parent le champs ParentText reste vide :aie:
(enfin j'arrive à le remplir 1 fois sur 20) et je sais pas pourquoi.

J'utilise cette procédure dans un boucler While
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 While Pos('TITRE DE APPLICATON EXTERNE',String(WTextWinActive)) <> 0 do begin GetFocusedControl(Hd,Txt,NewTxt,ParentTxt); Label1.Caption := 'HWnd focusé '+Inttostr(Hd)+ ' - Text : '+String(NewTxt)+ ' - Class : '+String(Txt)+ ' => Parent Text : '+ParentTxt; NewTxt:='';Txt:='';hd:=0;HdControlParent:=0; Application.ProcessMessages; end;
Mon Label affiche tout sauf le ParentTxt.

Pouvez-vous me dire pourquoi ?

Bon,

Vous allez me prendre pour un malade mais je suis entrain de faire un hook.

J'avais pas pigé sur le cout l'explicaiton de ShailiTroll

Donc voilà ce que j'essai de faire avec le message Wh_GetMessage

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
unit Principal;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TFPrincipal = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  FPrincipal: TFPrincipal;
  FHook: HHook; // On capture le control qui a le focus
 
implementation
 
{$R *.dfm}
 
function HookFocusProc(Code: Integer; Wordparam: Word; LongParam:LongInt): LongInt; stdcall;
begin
  case LongParam of
    WM_SETFOCUS:
    begin
      Fprincipal.ListBox1.Items.Add('Code = '+Inttostr(Code)+' WParam = '+inttostr(WordParam)+' LParam = '+inttostr(LongParam));
    end;
    WM_SHOWWINDOW:
    begin
      Fprincipal.ListBox1.Items.Add('show win');
    end;
  end;
 
  Result := CallNextHookEx(FHook, Code, wordParam, longParam);
end;
procedure TFPrincipal.FormCreate(Sender: TObject);
begin
  FHook := SetWindowsHookEx(WH_GETMESSAGE,@HookFocusproc,HInstance,0);
end;
 
procedure TFPrincipal.FormDestroy(Sender: TObject);
begin
  UnhookWindowsHookEx(FHook);
end;
 
end.

Le probleme est que :
- Je ne reçoit pas le message
- cela me plante mon ordi !!!

MErci de votre aide

27/09/2010, 09h47
Andnotor

Pour intercepter les messages d'autres applications, il faut obligatoirement que ton hook soit dans une DLL.

LParam est un pointeur TMsg et non le message ;)
27/09/2010, 10h15
BuzzLeclaire

@ AndNotOr

Citation:

Envoyé par Andnotor

Pour intercepter les messages d'autres applications, il faut obligatoirement que ton hook soit dans une DLL.

Effectivement c'est ce que je viens de lire il y a quelque minutes lol, mdr.

Donc comme tu le confirme, je suis obligé de passer par une Dll.
Sauf que je vois pas comment construire cette Dll pour récupérer mes données sachant que c'est le Handle + Classname et le parent du handle + Classname du control focusé qui m'intéresse...

J'ai vue et lu beaucoup de chose sur cette manip, mais pour le moment je nage un peu (c'est mon premier hook externe autre que Keyboard ou Mouse)

Citation:

LParam est un pointeur TMsg et non le message ;)

Dans mes lectures j'ai vue ce genre de chose, mais je ne sais pas faire la différence entre lParam et wParam ?

Code:

case TPMsg(lParam)^.message of

Code:

case TPMsg(wParam)^.message of

Cela donne quoi en fait, lequel amène à WM_SETFOCUS ?
Quel différence fait-on entre wParam et lParam dans ce cas ? (cela parait idiot come question pour les averti mais moi je sais pas...)

Merci.
27/09/2010, 11h38
Andnotor

Le message est pointé par LParam. Pour savoir ce que représentent ces paramètres, le mieux est de regarder l'aide sur SetWindowsHookEx et les procédures associées.

ShaiLeTroll t'a donné un exemple sur la mise en place du hook et l'interprétation du message. Tu peux aussi regarder ici.
28/09/2010, 09h17
Nebulix

Si ce champ doit contenir un code confidentiel, il n'est pas étonnant que le texte ne puisse être récupéré simplement.
Ce code s'affiche-t-il en clair à la saisie ?
Si oui, une solution "à la Shadok" :marteau::?serait de récupérer une copie d'écran et de reconnaitre les caractères