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

admin

开始截获

1. .版本 2
   0 a5 s  |/ n7 b# [7 R& f
2. 
   
3. .子程序 开始截获, 逻辑型
   
4. .参数 窗口句柄
   
5. .局部变量 hmod, 整数型
   4 W* L# ~( c1 @' t9 \
6. .局部变量 lpProc, 子程序指针
   
7. .局部变量 ThreadID, 整数型
   
8. .局部变量 hHook, 整数型
   
9. 
   
10. .如果真 (窗口句柄 ＝ 0)
    $ t  ?0 b5 `( L( z' k* R
11.     返回 (假)
    
12. .如果真结束
    
13. .如果真 (GetPropA (窗口句柄, #prop) ≠ 0)
    
14.     ' 不等于0说明已经加载过钩子了
    
15.     返回 (假)
    
16. .如果真结束
    
17. ' 第一步  获取 Hookdll的 句柄
    1 a$ R' x0 j. w  o4 M
18. hmod ＝ LoadLibraryA (取运行目录 () ＋ “\msghook.dll”)
    ) V0 u6 G& I) V$ W) X
19. ' 第二步  获取GetMsgProc 这个回调函数的 指针
    
20. lpProc ＝ GetProcAddress (hmod, “GetMsgProc”)
    + [, W* O" Z8 T+ v8 P* }9 W
21. ' 第三部 获取截获窗口的线程ID
    
22. ThreadID ＝ GetWindowThreadProcessId (窗口句柄, 0)
    
23. ' 给指定的窗口安装消息钩子，该窗口在收到postMessage的消息后会自动加载钩子函数所在的DLLmsghook.dll
    
24. hHook ＝ SetWindowsHookExA (#WH_GETMESSAGE, lpProc, hmod, ThreadID)
    
25. ' 释放dll
    8 {+ e  r' \( a
26. FreeLibrary (hmod)
    
27. ' 开始给窗口发送消息，通知msghook.dll子类化窗口过程，并传递钩子句柄过去
    
28. PostMessageA (窗口句柄, #MyMsgClass, 1, hHook)
    
29. 返回 (hHook ≠ 0)

复制代码

% I( E6 U% g% c; E4 U4 W( t' z, u结束截获

1. .版本 2
   + C$ p$ H# y7 f  ^* F2 l( v
2. 
   
3. .子程序 结束截获, 逻辑型
   - W8 }* ?0 y/ s
4. .参数 窗口句柄, 整数型
   
5. .局部变量 hHOOK, 整数型
   ; W5 _  U# \" _
6. 
   
7. .如果 (窗口句柄 ＝ 0)
   
8.     返回 (假)
   , k8 a/ m+ D$ x0 }9 `* \
9. .否则
   
10. 
    ( d2 K4 ~2 K5 ~% p$ `1 {3 O' V
11. .如果结束
    ) A" Z: W# D# V3 [' O8 Q5 J8 Q- K
12. ' 取回钩子的句柄
    
13. hHOOK ＝ SendMessageA (窗口句柄, #MyMsgClassHook, 0, 0)
    * [. K/ V( r( q# \* x8 s
14. .如果真 (hHOOK ＝ 0)
    & ^: b' e5 B" a6 b
15.     ' 0说明窗口已经关闭了
    
16.     返回 (真)
    
17. .如果真结束
    
18. ' 通知窗口截获结束，恢复窗口过程
    
19. SendMessageA (窗口句柄, #MyMsgClass, 0, 0)
    & T! h- B" q$ _% T1 q" a+ o5 r
20. 返回 (UnhookWindowsHookEx (hHOOK))

复制代码

主程序调用开始截获

1. .版本 2
   1 R9 F) h% l( \$ `8 L8 D
2. 
   # I! E4 a& r6 u
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 _按钮1_被单击
     @) M" f  d( \) Z' R, g
6. .局部变量 hwnd
   
7. 
   
8. hwnd ＝ 取指定窗口句柄 (“无标题 - 记事本”)
   5 |8 [/ [# v% R4 m" L
9. .如果真 (hwnd ＝ 0)
   
10. 信息框 (“请打开一个空白记事本”, 0, , )
    
11. 返回 ()
    . Y- ]$ l; i$ B5 s
12. 
    9 s; z) K6 o& l- R8 y
13. .如果真结束
    , {/ u5 X" p0 Y7 b; {
14. .如果真 (开始截获 (hwnd))
    
15. 信息框 (“开始截获消息”, 0, , “成功”)
    
16. .如果真结束
    
17. 
    3 K& Y0 @% G' C6 I  r, O
18. .子程序 _按钮2_被单击
    
19. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))
    
20. .子程序 取指定窗口句柄, 整数型
    
21. .参数 窗口标题, 文本型
    
22. 返回 (FindWindowA (字符 (0), 窗口标题))
    8 r3 V+ u; J( ?& `
23. .子程序 __启动窗口_将被销毁
    1 z* a2 A! t0 O4 a- @* _4 p
24. 
    
25. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))

复制代码

* F' V" ?2 Z/ f
/ G) P5 M9 T1 {: R+ y