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

admin

开始截获

1. .版本 2
   
2. 
   
3. .子程序 开始截获, 逻辑型
   
4. .参数 窗口句柄
   - ~  S" L, G0 g7 L
5. .局部变量 hmod, 整数型
   
6. .局部变量 lpProc, 子程序指针
   
7. .局部变量 ThreadID, 整数型
   
8. .局部变量 hHook, 整数型
   ; }9 f0 F4 M* q. g+ l/ \* N7 \
9. 
   
10. .如果真 (窗口句柄 ＝ 0)
    , H. ?' Z3 Z! W* y+ J
11.     返回 (假)
    
12. .如果真结束
    9 ?. W) N* |+ C1 A  ?
13. .如果真 (GetPropA (窗口句柄, #prop) ≠ 0)
    * {/ k; t+ H+ V% F
14.     ' 不等于0说明已经加载过钩子了
    
15.     返回 (假)
    
16. .如果真结束
    1 Z& X5 i2 j! t
17. ' 第一步  获取 Hookdll的 句柄
    ) i3 G# I( `  l" h' B8 M. p
18. hmod ＝ LoadLibraryA (取运行目录 () ＋ “\msghook.dll”)
    
19. ' 第二步  获取GetMsgProc 这个回调函数的 指针
    
20. lpProc ＝ GetProcAddress (hmod, “GetMsgProc”)
    
21. ' 第三部 获取截获窗口的线程ID
    6 y' a& B% T# J- `5 ~
22. ThreadID ＝ GetWindowThreadProcessId (窗口句柄, 0)
    
23. ' 给指定的窗口安装消息钩子，该窗口在收到postMessage的消息后会自动加载钩子函数所在的DLLmsghook.dll
    
24. hHook ＝ SetWindowsHookExA (#WH_GETMESSAGE, lpProc, hmod, ThreadID)
    / T0 m+ q: @/ ?
25. ' 释放dll
    
26. FreeLibrary (hmod)
    
27. ' 开始给窗口发送消息，通知msghook.dll子类化窗口过程，并传递钩子句柄过去
    2 c4 [: ?! h& J, x, q7 {! b2 z) y
28. PostMessageA (窗口句柄, #MyMsgClass, 1, hHook)
    
29. 返回 (hHook ≠ 0)

复制代码

结束截获

1. .版本 2
   ' |) y; M: V! C+ c% C' I! h
2. 
   
3. .子程序 结束截获, 逻辑型
   3 D% ^( a# V& `/ \
4. .参数 窗口句柄, 整数型
   / w/ g5 m1 G. P. A: |3 l5 F
5. .局部变量 hHOOK, 整数型
   
6. 
   ( x/ b7 _3 P2 e( [" e
7. .如果 (窗口句柄 ＝ 0)
   . e* r% [  ~$ K* l, M3 L* B3 W
8.     返回 (假)
   
9. .否则
   ) d+ r0 s1 W8 R
10. 
    
11. .如果结束
    
12. ' 取回钩子的句柄
    ( |5 R) G9 A2 j$ {' h6 L
13. hHOOK ＝ SendMessageA (窗口句柄, #MyMsgClassHook, 0, 0)
    - C, d5 r" z- q/ S1 v3 N& [* _+ R
14. .如果真 (hHOOK ＝ 0)
    7 ~  M: z' E% I
15.     ' 0说明窗口已经关闭了
    
16.     返回 (真)
    
17. .如果真结束
    
18. ' 通知窗口截获结束，恢复窗口过程
    ( Y9 ^8 ]7 W) Z" @; y
19. SendMessageA (窗口句柄, #MyMsgClass, 0, 0)
    
20. 返回 (UnhookWindowsHookEx (hHOOK))

复制代码

9 P9 u! w, r9 b
: E% U( \. y: x  |( L( H% B主程序调用开始截获

1. .版本 2
   $ e6 Y" m) v- i+ d
2. 
   ) K( u7 _3 }) O/ E3 K1 X; Y
3. .程序集 窗口程序集_启动窗口
   
4. 
   ) @& e' K+ P9 p/ j
5. .子程序 _按钮1_被单击
   
6. .局部变量 hwnd
   
7. 
   
8. hwnd ＝ 取指定窗口句柄 (“无标题 - 记事本”)
   
9. .如果真 (hwnd ＝ 0)
   & k% [' `, b/ r' z* A2 f
10. 信息框 (“请打开一个空白记事本”, 0, , )
    
11. 返回 ()
    $ ^6 y* n+ x+ z% w
12. 
    . f. D8 Q6 u% c0 T/ V. j2 C& i( ~
13. .如果真结束
    
14. .如果真 (开始截获 (hwnd))
    
15. 信息框 (“开始截获消息”, 0, , “成功”)
    0 e  {6 v) o( Q" U
16. .如果真结束
    * S! R* p* p9 T& h: U7 k+ Q# w  `
17. 
    5 l* o( h8 e: R# H  _1 y1 W
18. .子程序 _按钮2_被单击
    
19. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))
    . l0 E( T, M" M/ x) H) F, l$ A
20. .子程序 取指定窗口句柄, 整数型
    9 a$ \6 \& j1 r1 _( f' g# K
21. .参数 窗口标题, 文本型
    
22. 返回 (FindWindowA (字符 (0), 窗口标题))
    9 P% a# R1 b4 j9 @$ H
23. .子程序 __启动窗口_将被销毁
    
24. 
    
25. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))

复制代码

- `) w4 [* ]+ F4 ~! Y1 |5 [$ |2 ]2 _

2 y- q; E' G! {
0 V6 j6 }+ a' G+ W5 Y/ Q+ Y