SOUSCLASSER LES FENETRES D'1 AUTRE APP

Commentaire de shadowmoy le 14/01/2004 00:43:17

juste une question : quel interet de subclasser une fenetre d'un autre programme ?

Commentaire de Lavieillefolle le 14/01/2004 02:53:22

L'intéret que je peut imaginer serais que si ton programme appel d'autres programmes nem c plus intéressant pour l'utilisateur.

Commentaire de EBArtSoft le 14/01/2004 08:20:22 administrateur CS

Désolé pour le zip je ne sait pas pk il n'est pas passé la premiere
fois pourtant je telecharge tjrs ma source pour tester et ça avais
bien marché... bizzard ?

Quand à l'interet de la source... je cros que c'est tellement
evident que des fois je me demande bien a qui je m'adresse...

bref on a peut etre pas les memes centres d'interet

@+

Commentaire de BruNews le 14/01/2004 15:18:11 administrateur CS

Turbo Basic++ a encore frappe.

Commentaire de EBArtSoft le 14/01/2004 17:46:30 administrateur CS

Renfield>Bah quoi ? tu veus un convertisseur EURO/FRANCS ?
j'ai quand meme une grosse chute de tension la ... ouf
je pond que des daubes en ce moment !

BruNews>Aller demain je me met a .NET ! Naaaaan je rigole

Afyn> J'ai debuté avec le GFA Basic sur 1040 ! lol ;-)
(ça fait plein de point commun mine de rien)
J'ai bien reçu ton ZIP et j'en suis encore tout chambouler
je trouve ton interface midi avec la grille et les accord de
gratte terrible !

Mais je me suis pas encore attaqué au code si tu veus
que je regarde un point precis envoi moi un msg

@+

Commentaire de EBArtSoft le 15/01/2004 11:13:27 administrateur CS

Oui c'est exact j'ai omis cette dll, je l'ai fait avec MASM32
(assembleur x86) elle n'est pas vraiment au point mais
elle est suffisante pour notre exemple voici le code :

;#########################################################################

.386
.model flat, stdcall
option casemap :none

;#########################################################################

include D:\1_MANU\DOC~2.PRO\DOCUME~1\MASM32\include\windows.inc
include D:\1_MANU\DOC~2.PRO\DOCUME~1\MASM32\include\user32.inc
include D:\1_MANU\DOC~2.PRO\DOCUME~1\MASM32\include\kernel32.inc

includelib D:\1_MANU\DOC~2.PRO\DOCUME~1\MASM32\lib\user32.lib
includelib D:\1_MANU\DOC~2.PRO\DOCUME~1\MASM32\lib\kernel32.lib

;#########################################################################

HookProc proto :DWORD,:DWORD,:DWORD,:DWORD
ThreadProc proto :DWORD

;#########################################################################

Version equ 201h
MW_WNDPROC equ 410h
MW_WNDHOOK equ 420h
MW_WNDUNHK equ 430h
MW_PING equ 4FFh

;#########################################################################

MY_STRUCT STRUCT
hWnd DD ?
uMsg DD ?
wParam DD ?
lParam DD ?
MY_STRUCT ENDS

;#########################################################################

.data
Msg1 db "Window Hooked"     ,0
Msg2 db "Window Unhooked"   ,0
Msg3 db "Message"  ,0
Msg4 db "#Library Loaded"   ,0
Msg5 db "#Library Unloaded" ,0

Template db "%d"     ,0

ClassName db "@6912345669@"      ,0
AppName   db "@6912345669@"      ,0

hInstance HINSTANCE ?
CommandLine LPSTR ?
hHook           dd              ?
hwnd HWND ?
handle dd ?
hPID dd ?

lProc dd ?
lhWnd dd ?
lRetn dd ?

;#########################################################################

.code

LibMain proc hInstDLL:DWORD, reason:DWORD, unused:DWORD
.if reason == DLL_PROCESS_ATTACH
;==========================================
;invoke MessageBox,NULL,addr Msg4,NULL,MB_OK
;==========================================

invoke GetCurrentProcessId
mov    hPID,eax

invoke GetModuleHandle,NULL
mov    hInstance,eax

invoke GetCommandLine
mov    CommandLine,eax

invoke CreateThread,NULL,0,ThreadProc,NULL,0,NULL
mov handle,eax

        .elseif reason == DLL_PROCESS_DETACH
;==========================================
;invoke MessageBox,NULL,addr Msg5,NULL,MB_OK
;==========================================

invoke DestroyWindow,hwnd
invoke CloseHandle,handle

.endif

mov eax,1
ret
LibMain Endp

GetVersion proc
mov eax,Version
ret
GetVersion endp

ThreadProc proc lpParameter:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
mov   wc.cbSize,SIZEOF WNDCLASSEX
mov   wc.style, CS_HREDRAW or CS_VREDRAW
mov   wc.lpfnWndProc, OFFSET WndProc
mov   wc.cbClsExtra,NULL
mov   wc.cbWndExtra,NULL
push  hInstance
pop   wc.hInstance
mov   wc.hbrBackground,NULL ;COLOR_WINDOW+1
mov   wc.lpszMenuName,NULL
mov   wc.lpszClassName,OFFSET ClassName
mov   wc.hIcon,NULL   ;eax
mov   wc.hIconSm,NULL ;eax
mov   wc.hCursor,NULL ;eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,0,0,0,0,0,NULL,NULL,hInstance,NULL
mov   hwnd,eax

StartLoop:
       invoke GetMessage,ADDR msg,NULL,0,0         ; get each message
cmp eax, 0                                  ; exit if GetMessage()
je ExitLoop                                 ; returns zero
invoke TranslateMessage, ADDR msg           ; translate it
invoke DispatchMessage,  ADDR msg           ; send it to message proc
jmp StartLoop
ExitLoop:

mov eax,msg.wParam
ret
ThreadProc endp

WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
LOCAL buffer[128]:byte

.if uMsg == WM_DESTROY
invoke PostQuitMessage,NULL

.elseif uMsg == MW_PING
mov eax,1
ret

.elseif uMsg == MW_WNDPROC
invoke GetWindowLong,wParam,GWL_WNDPROC
mov hHook,eax
ret

.elseif uMsg == MW_WNDHOOK

;.if lProc == 0

;===========================================================
;invoke MessageBox,NULL,addr Msg1,NULL,MB_OK
;===========================================================

mov eax,lParam
mov lRetn,eax

mov eax,wParam
mov lhWnd,eax

;===========================================================
;invoke wsprintf,addr buffer,addr Template,lRetn
;invoke MessageBox,NULL,addr buffer,NULL,MB_OK
;===========================================================

invoke GetWindowLong,wParam,GWL_WNDPROC
mov lProc,eax

invoke SetWindowLong,wParam,GWL_WNDPROC,addr HookProc

;.else
; xor eax,eax
;.endif

ret

.elseif uMsg == MW_WNDUNHK

;.if lProc == 0
; xor eax,eax
;.else

;===========================================================
;invoke MessageBox,NULL,addr Msg2,NULL,MB_OK
;===========================================================
invoke SetWindowLong,lhWnd,GWL_WNDPROC,lProc
mov eax,1

;.endif

ret

.else
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret

.endif

xor eax,eax
ret
WndProc endp

HookProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
invoke CallWindowProc,lProc,hWnd,uMsg,wParam,lParam
;--------------------------------------------------
ret
HookProc endp

End LibMain

Pour ce qui est de la livrer sous forme de data c'est un choix purement personnel car j'ai horreur de trimballer plein de
dll, ocx etc.. donc la je suis au moin sur de sa presence

@+

Commentaire de shadowmoy le 04/02/2004 06:01:48

bon ok j' ai capté le potentiel de cette source mais pourquoi par exemple lorsque j'essaie de recuperer l'evenement click d'un label d'une appli vb qui contient bien un label ca ne fonctionne pas ????
foutus controles windowless ...
une idée de comment vb fait ?

Commentaire de mehdibou le 12/02/2004 21:20:29

Rien à redire, c'est du EBArtSoft ;)

Source excellente qui utilise plein de points avancés de la programmation que j'aime bien :)

10/10 pour remonter la note... certains n'ont pas dû capter l'intérêt de la source...

Commentaire de daetips le 20/08/2004 18:10:07

Punaise, desfois je me demande si tu dort car tu as posté beaucoup de sources vraiment utiles et qui repoussent les limites du vb (même avec une dll en asm) 10/10.

Commentaire de viran le 21/09/2004 20:58:36

T'est trop un clanpin,ton install il a aps les bosn fichiers d'acces,erreurs par ci et par la,bref grosse deception mais comme tu as pondu des sources superbes et que t'a du te donner du mal je te donne 4/10 meme si y marche aps et evite de nous prendres pour des idiots merci!

Commentaire de EBArtSoft le 21/09/2004 22:47:16 administrateur CS

viran> t'as decider de passer sur toutes mes sources pour dire n'importe quoi ? Tu n'es pas obligé de regarder la source et encore moins de commenter surtout si en plus tu ne comprend rien...

@+

Commentaire de Renfield le 25/09/2004 15:47:43 administrateur CS

Tu ne parviens pas a la faire fonctionner, et tu ne donne aucun indice pour que l'n t'aide a la faire fonctionner....

je m'en sers pour une appli que l'on a au boulot, et ca fonctionne très bien, donc....

Commentaire de MadM@tt le 25/09/2004 15:53:20

Je crois que tu es le seul à avoir des problèmes avec les sources d'EBArtSoft, alors montre nous un peu de quoi tu es capable avant de critiquer.

Commentaire de viran le 25/09/2004 16:23:23

J'ai Windows XP Service pack 2

Commentaire de metalcoder le 20/01/2005 07:50:57

J'utilise au travail labview. Labview a la particularité de fonctionner en mode non compilé. j'ai ajouter un utilitaire en VB qui commande Labview (du moins en partie) car je ne peut agir sur les boutons (en mémoire je n'ai que labview.exe, je n'ai pas acces au controle comme une appli standard) J'ai etudier ton programme et il m'as redonner un peu l'espoir de pouvoir controler les controles de labview. Si tu as des conseils pour récuperer le handle d'une appli non compile, n'hesite surtout pas je suis preneur.

A titre d'exemple car je pense que le probleme est le meme que le mien. lancer Vb, faite un bouton sur la fenetre et essayer de trouvé le handle du bouton avec les utilitaires comme spy++...si qqun y arrive ce serait cool

metalcoder

Commentaire de metalcoder le 18/04/2005 21:41:51

Daetips>
J'ai essayer ta solution, elle marche partout et sous Vb non compile mais pas dans labview, dommage. Ton programme reconnait un seul handle sur le programme labview alors qu'il y a 6 boutons, 2 boutons options et des labels...c'est pas grave mais si quelqu'un a une solution.

Metalcoder

Commentaire de loulou06 le 19/08/2006 07:13:59

Moi, j'aurais un petite question.
Au passage total RESPECT a cette DLL, de la grande classe .... :-)
L'equipe qui tue Renfield/Ebart
Dans la WindowProc (DLL), je voudrais detourner et ainsi bloquer certains messages
mais ca ne marcha pas, une idee ? Merci d'avance (reponse en pv please)

Function WindowProc(ByVal hWnd As Long, ByVal umsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim mVar  As HookSubCls
Dim mData As MyStruct
    Select Case umsg
        Case WM_SVRCALL
            ReadStruct wParam, lParam, mData
            For Each mVar In m_Objects
                If mVar.hWnd = hWnd Then
                    mVar.CallBack mData.hWnd, mData.umsg, mData.wParam, mData.lParam
                    Exit For
                End If
            Next
        'Case 123:
        
        Case Else
            If umsg =  m_MsgToSuspend Then
            '' Dans mon cas: m_MsgToSuspend = 123 / WM_CONTEXTMENU
            ''#########################################################
                    WindowProc = 0
            Else
              WindowProc = DefWindowProc(hWnd, umsg, wParam, lParam)
            End If
    End Select

Commentaire de BruNews le 27/12/2006 15:34:05 administrateur CS

WM_DESTROY est une notif de post traitement, c'est WM_CLOSE qui est à intercepter pour accepter ou non la fermeture.

Commentaire de BruNews le 27/12/2006 16:02:29 administrateur CS

La defWinProc appelle DestroyWindow() par défaut, suffit de ne pas lui repasser le message.

Commentaire de MadM@tt le 15/09/2008 00:38:16

Salut EB, fantastique code.

Par contre quand tu dis : "un seul hook par app", c'est que tu peux faire un seul hook en tout, ou un seul hook par processus externe au tiens.
(ma question c'est est-ce que je peux sous-classer plusieurs fenetres de plusieurs processus avec ce code ?)

et sinon est-ce possible ?

merci
MadMatt