易语言通过消息全局钩子截获外部窗口消息

admin

开始截获

1. .版本 2
   
2. 
   
3. .子程序 开始截获, 逻辑型
   
4. .参数 窗口句柄
   + T$ @* W; i0 c# }' s/ d
5. .局部变量 hmod, 整数型
   0 d/ D! C3 M! X+ n2 z- A0 Q" J. L
6. .局部变量 lpProc, 子程序指针
   
7. .局部变量 ThreadID, 整数型
   
8. .局部变量 hHook, 整数型
   
9. 
   
10. .如果真 (窗口句柄 ＝ 0)
    - {/ G8 d* A4 n; `" T  W$ C
11.     返回 (假)
    " i0 i$ G; _0 y& v
12. .如果真结束
    " N8 z/ l8 C8 C3 o% w0 \; L
13. .如果真 (GetPropA (窗口句柄, #prop) ≠ 0)
    
14.     ' 不等于0说明已经加载过钩子了
    7 T, l' [: x' F  c( J  h
15.     返回 (假)
    
16. .如果真结束
    . q" Q5 H! i5 {2 m8 z+ [
17. ' 第一步  获取 Hookdll的 句柄
    
18. hmod ＝ LoadLibraryA (取运行目录 () ＋ “\msghook.dll”)
    
19. ' 第二步  获取GetMsgProc 这个回调函数的 指针
    6 P2 d; K; q7 z5 B% C2 q1 }
20. lpProc ＝ GetProcAddress (hmod, “GetMsgProc”)
    5 L0 I% S+ z1 P
21. ' 第三部 获取截获窗口的线程ID
    
22. ThreadID ＝ GetWindowThreadProcessId (窗口句柄, 0)
    : _1 U4 I# ?/ W. C1 I. W, b4 v
23. ' 给指定的窗口安装消息钩子，该窗口在收到postMessage的消息后会自动加载钩子函数所在的DLLmsghook.dll
    
24. hHook ＝ SetWindowsHookExA (#WH_GETMESSAGE, lpProc, hmod, ThreadID)
    ' u1 e/ r" e' t2 C: J7 ]
25. ' 释放dll
    ; \' D, Z5 |, G4 A! ?& O
26. FreeLibrary (hmod)
    
27. ' 开始给窗口发送消息，通知msghook.dll子类化窗口过程，并传递钩子句柄过去
    
28. PostMessageA (窗口句柄, #MyMsgClass, 1, hHook)
    
29. 返回 (hHook ≠ 0)

复制代码

! o2 U9 ^" i4 y" r/ V6 c8 J1 }) r
( ~! U8 }, p( W5 z4 P4 G8 Q. X结束截获

1. .版本 2
   
2. 
   - k: ]0 ^% c1 `" E7 p
3. .子程序 结束截获, 逻辑型
   , H# g' O" g) K8 n5 A
4. .参数 窗口句柄, 整数型
   ) C* @+ P, m% v% V$ q
5. .局部变量 hHOOK, 整数型
     ]. s, W" j! ]7 U7 {2 O/ |4 p; u
6. 
   
7. .如果 (窗口句柄 ＝ 0)
   $ O7 K+ J! x- h4 ^6 O6 {
8.     返回 (假)
   8 M+ r/ k  h/ n
9. .否则
   , j( h$ z" T( X/ P! y
10. 
    
11. .如果结束
    # [* Y: o& V3 K+ y7 B, q
12. ' 取回钩子的句柄
    
13. hHOOK ＝ SendMessageA (窗口句柄, #MyMsgClassHook, 0, 0)
    4 P* O0 y  V' Y  i$ f$ b
14. .如果真 (hHOOK ＝ 0)
    
15.     ' 0说明窗口已经关闭了
    
16.     返回 (真)
    - h" z4 i0 K1 n8 F; q/ q2 ?5 g
17. .如果真结束
    & i& r: Z7 \: x! o4 H4 B
18. ' 通知窗口截获结束，恢复窗口过程
    
19. SendMessageA (窗口句柄, #MyMsgClass, 0, 0)
    7 H- |8 A" n- @/ _. _' e
20. 返回 (UnhookWindowsHookEx (hHOOK))

复制代码

0 @2 t2 g+ r, C  w7 c& n主程序调用开始截获

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. .局部变量 hwnd
   
7. 
   
8. hwnd ＝ 取指定窗口句柄 (“无标题 - 记事本”)
   
9. .如果真 (hwnd ＝ 0)
   " ^, Y5 ^! a0 N& D% K0 G6 z
10. 信息框 (“请打开一个空白记事本”, 0, , )
    
11. 返回 ()
    
12. 
      J, l3 E3 H- \- x6 Z1 {4 W* ~" x
13. .如果真结束
    - X# n2 e  X1 A5 z+ |! B0 c7 t, J
14. .如果真 (开始截获 (hwnd))
    / B1 @6 N* P0 y! K$ L
15. 信息框 (“开始截获消息”, 0, , “成功”)
    
16. .如果真结束
    ! f: _  d4 V; [: B
17. 
    5 N- I  K: h& y/ T& h- s) T
18. .子程序 _按钮2_被单击
    2 n- P! q( O: ~
19. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))
    4 q& q  H" v4 g3 z, C
20. .子程序 取指定窗口句柄, 整数型
    
21. .参数 窗口标题, 文本型
    ) I7 Q9 {+ |8 n: h2 I- F, q- K% I6 _" V
22. 返回 (FindWindowA (字符 (0), 窗口标题))
    
23. .子程序 __启动窗口_将被销毁
    : z2 ^$ N& O$ W/ K( d3 n
24. 
    + ^3 |3 b. {: Y) i- A' E
25. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))

复制代码

& \; w. R0 b! L$ ~/ \' B  I

, |& ]! g# R" W6 [8 g/ j
% m7 s3 ], p' Z' F( Y5 m0 Z- L1 j! C
! A1 T- K' ~! Z/ m' t& @