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

admin

开始截获

1. .版本 2
   
2. 
   ! q9 \: Y9 V3 x9 `" m
3. .子程序 开始截获, 逻辑型
   ! _: c" K/ n$ ]0 h
4. .参数 窗口句柄
   0 d/ s+ O) X1 _& C' h
5. .局部变量 hmod, 整数型
   - n. x4 M! j6 A* k7 z0 Q; L
6. .局部变量 lpProc, 子程序指针
   
7. .局部变量 ThreadID, 整数型
   , c  {$ N: a7 T5 c- Q
8. .局部变量 hHook, 整数型
   ' t# z! r6 ]+ N$ Z9 y! p+ j
9. 
   - L3 N& m1 T- v# Y4 o  O
10. .如果真 (窗口句柄 ＝ 0)
    5 U4 n  M& y( @5 Z, F/ J
11.     返回 (假)
    , y) }6 b0 L7 I) H# G9 t
12. .如果真结束
    - Z5 b4 H# L4 @8 u" d
13. .如果真 (GetPropA (窗口句柄, #prop) ≠ 0)
    ) V* t% |" _6 ]3 r! K* d! m& F4 H0 r& ^
14.     ' 不等于0说明已经加载过钩子了
    # g- c5 i# E$ |1 F; m) T; e
15.     返回 (假)
    
16. .如果真结束
    
17. ' 第一步  获取 Hookdll的 句柄
    ) t; C! X; m8 h9 ~; O
18. hmod ＝ LoadLibraryA (取运行目录 () ＋ “\msghook.dll”)
    $ o4 e4 Q# \4 f* d
19. ' 第二步  获取GetMsgProc 这个回调函数的 指针
    
20. lpProc ＝ GetProcAddress (hmod, “GetMsgProc”)
    
21. ' 第三部 获取截获窗口的线程ID
    , s# o+ _' W/ h8 N0 d9 w) f
22. ThreadID ＝ GetWindowThreadProcessId (窗口句柄, 0)
    7 c' S+ n  U0 |# C5 ~( \
23. ' 给指定的窗口安装消息钩子，该窗口在收到postMessage的消息后会自动加载钩子函数所在的DLLmsghook.dll
    . g. p$ {( t. a9 Q2 f7 F+ ~
24. hHook ＝ SetWindowsHookExA (#WH_GETMESSAGE, lpProc, hmod, ThreadID)
    4 g$ @6 g) z0 {. g8 T# }7 E
25. ' 释放dll
    
26. FreeLibrary (hmod)
    5 ^1 q5 }6 e$ i( o
27. ' 开始给窗口发送消息，通知msghook.dll子类化窗口过程，并传递钩子句柄过去
    
28. PostMessageA (窗口句柄, #MyMsgClass, 1, hHook)
    
29. 返回 (hHook ≠ 0)

复制代码

( d: U$ c8 Y% ^: ~5 z  `! }
, {: s( I. q! b7 `- J5 \! h结束截获

1. .版本 2
   ! |! M2 o* S) C1 U  s: u
2. 
   4 o4 z! k) t. d( K) p  F# g  l7 B5 J4 N) A
3. .子程序 结束截获, 逻辑型
   
4. .参数 窗口句柄, 整数型
   / V) l! _( c; ]4 q* F' N
5. .局部变量 hHOOK, 整数型
   ) L/ C4 U( `7 {0 k# w$ |
6. 
   * r( }& w. u) h* K' @
7. .如果 (窗口句柄 ＝ 0)
   
8.     返回 (假)
   
9. .否则
   
10. 
    
11. .如果结束
    # C4 o% x$ A% ?& [7 J  u+ q
12. ' 取回钩子的句柄
    1 W! G$ N. v$ F# q! N5 V
13. hHOOK ＝ SendMessageA (窗口句柄, #MyMsgClassHook, 0, 0)
    
14. .如果真 (hHOOK ＝ 0)
    0 d3 m1 y8 F( j: [# e
15.     ' 0说明窗口已经关闭了
    $ M6 f7 t5 C8 a" t! n
16.     返回 (真)
    . f; T& ]! J) W! n2 j7 g5 T
17. .如果真结束
    
18. ' 通知窗口截获结束，恢复窗口过程
    
19. SendMessageA (窗口句柄, #MyMsgClass, 0, 0)
      L9 @" @" V* c7 b  f$ r
20. 返回 (UnhookWindowsHookEx (hHOOK))

复制代码

主程序调用开始截获

1. .版本 2
   " H+ m( s- c7 Q' k) s
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 _按钮1_被单击
   & Y  R6 S: ?% e& ^+ G
6. .局部变量 hwnd
   
7. 
   
8. hwnd ＝ 取指定窗口句柄 (“无标题 - 记事本”)
   1 M  A3 ^' ?# e% H
9. .如果真 (hwnd ＝ 0)
   
10. 信息框 (“请打开一个空白记事本”, 0, , )
    
11. 返回 ()
    0 Y5 r  w% U* o* V; Z; x) }
12. 
    ( l+ q. T. \8 g8 v' ?+ D
13. .如果真结束
    # L6 W0 @0 p- z; `6 d! y8 B
14. .如果真 (开始截获 (hwnd))
    ! n" ?1 `0 l  ?. Z
15. 信息框 (“开始截获消息”, 0, , “成功”)
    
16. .如果真结束
    / u$ e' B' L) a9 ~5 \7 L# P0 i
17. 
    " t2 @, X2 w" m5 K4 l
18. .子程序 _按钮2_被单击
    $ o' |. w- U; V) _9 q
19. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))
    
20. .子程序 取指定窗口句柄, 整数型
    
21. .参数 窗口标题, 文本型
    + e+ q& l$ `' B; C) ~6 [
22. 返回 (FindWindowA (字符 (0), 窗口标题))
    
23. .子程序 __启动窗口_将被销毁
    
24. 
    
25. 结束截获 (取指定窗口句柄 (“无标题 - 记事本”))

复制代码

: i, W4 |5 f$ V# M0 w

( }+ a5 p2 O( M) b# U- I6 j
- R4 |. ^4 @+ e; j% z4 i