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

admin

开始截获

1. .版本 2
   
2. 
   
3. .子程序 开始截获, 逻辑型
   ( c& A4 l5 Q; l9 l: Y
4. .参数 窗口句柄
   
5. .局部变量 hmod, 整数型
   
6. .局部变量 lpProc, 子程序指针
   
7. .局部变量 ThreadID, 整数型
   1 \3 B. B* y; D. x2 U' d# V+ U" o1 I
8. .局部变量 hHook, 整数型
   , p* t: t( k% }+ H
9. 
   
10. .如果真 (窗口句柄 ＝ 0)
    " X+ u: {/ J# ?% h3 I; S
11.     返回 (假)
    
12. .如果真结束
    
13. .如果真 (GetPropA (窗口句柄, #prop) ≠ 0)
    : R8 D$ }  M4 o9 v1 N: G
14.     ' 不等于0说明已经加载过钩子了
    ) C4 L3 F% o- g
15.     返回 (假)
    
16. .如果真结束
    
17. ' 第一步  获取 Hookdll的 句柄
    
18. hmod ＝ LoadLibraryA (取运行目录 () ＋ “\msghook.dll”)
    
19. ' 第二步  获取GetMsgProc 这个回调函数的 指针
    
20. lpProc ＝ GetProcAddress (hmod, “GetMsgProc”)
    + N! }& @& U2 P* X2 \+ Q
21. ' 第三部 获取截获窗口的线程ID
    9 W' a# s; o; U6 \5 f
22. ThreadID ＝ GetWindowThreadProcessId (窗口句柄, 0)
    4 v! q- |& ^. U9 C/ l. j! \! o
23. ' 给指定的窗口安装消息钩子，该窗口在收到postMessage的消息后会自动加载钩子函数所在的DLLmsghook.dll
    + I7 O1 u- w8 G. x  v( m4 g
24. hHook ＝ SetWindowsHookExA (#WH_GETMESSAGE, lpProc, hmod, ThreadID)
    3 G7 L2 t/ Z# U$ [: N; G4 m
25. ' 释放dll
    8 N- Y' M2 d4 \' ~4 D  N9 |- _
26. FreeLibrary (hmod)
    2 `; C- o+ z; R3 ?# {$ R
27. ' 开始给窗口发送消息，通知msghook.dll子类化窗口过程，并传递钩子句柄过去
    ; e$ p6 F0 [0 R# D9 H
28. PostMessageA (窗口句柄, #MyMsgClass, 1, hHook)
    
29. 返回 (hHook ≠ 0)

复制代码

( |! X' Y+ R, U( J! j
8 M3 h. d. z6 q( v% U5 v结束截获

1. .版本 2
   
2. 
   & R# g- h$ O3 E3 g! z  @  e
3. .子程序 结束截获, 逻辑型
   
4. .参数 窗口句柄, 整数型
   
5. .局部变量 hHOOK, 整数型
   
6. 
   8 ]3 Q: F9 y( h0 D
7. .如果 (窗口句柄 ＝ 0)
   6 h! V3 I7 u4 I  O4 `  S2 a& a+ |
8.     返回 (假)
   
9. .否则
   7 y+ I  S$ T1 J' S
10. 
    0 d3 a6 m% f$ f9 B+ n: k- v
11. .如果结束
    
12. ' 取回钩子的句柄
    * H/ E. ~  {$ J8 a
13. hHOOK ＝ SendMessageA (窗口句柄, #MyMsgClassHook, 0, 0)
    
14. .如果真 (hHOOK ＝ 0)
    
15.     ' 0说明窗口已经关闭了
    7 W$ O$ K0 i( i9 }/ ~+ y
16.     返回 (真)
    
17. .如果真结束
    
18. ' 通知窗口截获结束，恢复窗口过程
    
19. SendMessageA (窗口句柄, #MyMsgClass, 0, 0)
    5 m2 W: v& E6 I+ s  X! ?
20. 返回 (UnhookWindowsHookEx (hHOOK))

复制代码

主程序调用开始截获

1. .版本 2
   
2. 
   4 L" g% V  y* l" J
3. .程序集 窗口程序集_启动窗口
   
4. 
   $ D: Y8 Z7 k& j& y- f2 ~
5. .子程序 _按钮1_被单击
   . g, M  l( P; B0 \9 S
6. .局部变量 hwnd
   7 S3 s+ N- b. s/ |! W. ]
7. 
   + k8 {3 {# M0 ~5 E! ^! x+ O9 E
8. hwnd ＝ 取指定窗口句柄 (“无标题 - 记事本”)
   7 O& R* ]. @+ d) G- O
9. .如果真 (hwnd ＝ 0)
   
10. 信息框 (“请打开一个空白记事本”, 0, , )
    ) |. J. B1 K  j  y: q0 F
11. 返回 ()
    
12. 
    
13. .如果真结束
    
14. .如果真 (开始截获 (hwnd))
    
15. 信息框 (“开始截获消息”, 0, , “成功”)
    - Y9 z5 O+ g# R# Q3 T
16. .如果真结束
      r8 |0 j8 w; _8 n
17. 
    
18. .子程序 _按钮2_被单击
    1 ^; G1 K& P' }( W
19. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))
    ( e- z2 T7 l; W4 C- j7 F
20. .子程序 取指定窗口句柄, 整数型
    
21. .参数 窗口标题, 文本型
    " c3 s. f/ r( A
22. 返回 (FindWindowA (字符 (0), 窗口标题))
    
23. .子程序 __启动窗口_将被销毁
    
24. 
    
25. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))

复制代码

; i) u! n4 H# u2 r* [+ A, Y4 E