易语言HOOK系统顶级窗口的创建销毁切换

admin

ShellHook是什么？当一个窗口创立、激活、封闭时，explorer总是能够捕捉相应的音讯，并更新义务栏上，就是经过ShellHook完成的。本课完成了对零碎一切顶级窗口的拦挡，和指定窗口的拦挡。

, V1 l7 s$ _" N  o9 TRegisterWindowMessage
RegisterWindowMessage函数定义一个新的窗口音讯，保障该音讯在零碎范畴内是惟一的。通常调用SendMessage或许PostMessage函数时，能够应用该函数前往的音讯值。

6 a& o- `" H2 F$ e正文：
# D5 b5 U$ ]5 S( L. nRegisterWindowMessage函数通罕用于为两个协作应用顺序之间的通讯注销音讯。　　若两个不同的应用顺序注销了相反的音讯字符串，则这两个应用顺序前往相反的音讯值。该音讯不断维持被注销形态，直到Windows会话完结。当多个应用顺序必需解决同一音讯时才应用RegisterWindowMessage函数。在一个窗口类范畴内发送公有音讯时，获取调配给一个字串标识符的音讯编号 &C000（49152） 到 &FFFF（65535）之间的一个音讯编号。零象征着出错。

- x: d6 p8 ^( {1 C5 Q7 I4 Hhttps://docs.microsoft.com/en-us ... isterwindowmessagea
+ M: \/ Y2 H5 X& Z& [+ v  \字符串罕见有：
TaskBarCreated 普通用于Explorer解体后的托盘图标重建
SHELLHOOK 配合RegisterShellHookWindow可用于拦挡零碎窗口创立等
TaskbarButtonCreated 在win7里的义务按钮创立

RegisterShellHookWindow
$ x$ M2 }9 B( f9 B: p# M2 O0 Nhttps://docs.microsoft.com/en-us ... stershellhookwindow

5 H. a0 l8 v( _  r4 S开始拦截

1. .版本 2
   
2. 
   
3. .子程序 开始拦截
   
4. 
   
5. MsgNum ＝ RegisterWindowMessage (“SHELLHOOK”)
   * B: J: R5 w+ f- p7 e
6. .如果真 (MsgNum ＝ 0)
   ) W# k6 c, A/ f
7.     信息框 (“注册shell hook 失败”, 0, , )
   ) ?! o1 D* M6 s& S3 l5 R' ]6 \# A/ Q
8.     返回 ()
   8 m* b1 S/ k- S
9. 
   
10. .如果真结束
    
11. RegisterShellHookWindow (取窗口句柄 ())
    ! C" P9 A% O3 Q+ Z7 J' u* c$ u
12. ' 窗口子类化
    
13. SetRet ＝ SetWindowLong (取窗口句柄 (), -4, 到整数 (&NewProc))

复制代码

窗口子类化

1. .版本 2
   & j' V9 b0 o- \5 V& r- q
2. .支持库 iext
   # ^; G! ?2 r( j. o8 B
3. 
   
4. .子程序 NewProc, 整数型
   
5. .参数 Hwnd, , , 这个句柄是程序本身的句柄
   
6. .参数 uMsg, , , 用户的消息识别类型
   
7. .参数 wParam, , , 事件类别
   6 r2 f1 k8 G" c2 {" g
8. .参数 lParam, , , 拦截的系统的窗口 的句柄
   * t4 \* v( z+ E$ V
9. .局部变量 Tid
   0 x, M- u( v) W4 x( \) X" a* ]
10. .局部变量 i
    1 T( U! I- z; g- V$ t
11. 
    $ K% X/ \6 W% t- T* ^, U; X
12. ' 只针对某一个特定顶级窗口hook
    / E9 G# h/ S. X' W6 |1 [: O9 T
13. .如果真 (lParam ＝ 取指定窗口句柄 (“无标题 - 记事本”))
    
14.     .判断开始 (wParam ＝ 1)  ' 顶级窗口的创建’
    0 v) x4 }% [" @! Q
15.         GetWindowThreadProcessId (lParam, Tid)
    
16.         .如果真 (Tid ≠ 0)
    
17.             i ＝ 超级列表框1.插入表项 (, “窗口创建”, , , , )
    0 ]  [" s% k# t$ k' _7 P. \
18.             超级列表框1.置标题 (i, 1, 到文本 (lParam))
    1 T' X. N6 O: v/ q, z
19.             超级列表框1.置标题 (i, 2, 到文本 (Tid))
    ) M, ?8 X' V# r/ W! f! @
20.             超级列表框1.置标题 (i, 3, 到文本 (取指定窗口标题 (lParam)))
    
21.             超级列表框1.保证显示 (i)
    8 o2 q/ M3 p( [. Y8 \$ k: O9 A
22. 
    
23.         .如果真结束
    % H! U) h! a3 o' I( p3 A
24. 
    
25.     .判断 (wParam ＝ 2)  ' 顶级窗口的销毁’
    
26.         GetWindowThreadProcessId (lParam, Tid)
    
27.         .如果真 (Tid ≠ 0)
    5 O& p( {7 _3 W) H' D
28.             i ＝ 超级列表框1.插入表项 (, “窗口销毁”, , , , )
    / ~/ z$ z8 I( G/ @8 X0 \! s2 S/ |3 J
29.             超级列表框1.置标题 (i, 1, 到文本 (lParam))
    ! B8 t8 G$ Q) J( l, P* U. Z6 ?
30.             超级列表框1.置标题 (i, 2, 到文本 (Tid))
    
31.             超级列表框1.置标题 (i, 3, 到文本 (取指定窗口标题 (lParam)))
    
32.             超级列表框1.保证显示 (i)
    
33. 
    
34.         .如果真结束
    
35. 
    
36.     .判断 (wParam ＝ 32772)  ' 顶级窗口切换
    
37.         GetWindowThreadProcessId (lParam, Tid)
    # V1 v  E# F4 W* a( ^- i! d5 o  [! @
38.         .如果真 (Tid ≠ 0)
    8 E6 h0 g; J+ L/ G$ E( ]/ g6 `
39.             i ＝ 超级列表框1.插入表项 (, “窗口切换”, , , , )
    7 C2 R9 O, c, f, y: `! [1 G
40.             超级列表框1.置标题 (i, 1, 到文本 (lParam))
    
41.             超级列表框1.置标题 (i, 2, 到文本 (Tid))
    1 B4 Y$ G" i7 o3 v
42.             超级列表框1.置标题 (i, 3, 到文本 (取指定窗口标题 (lParam)))
    
43.             超级列表框1.保证显示 (i)
    
44. 
    
45.         .如果真结束
    ' u. x& a) q9 R" f$ M8 J( s. D* ~
46. 
    
47.     .默认
    
48.     .判断结束
    
49. .如果真结束
    
50. 返回 (CallWindowProc (SetRet, Hwnd, uMsg, wParam, lParam))

复制代码

# g" ~3 _1 m' \
+ a/ B# M" z: S) T1 S
" j" O! b1 _5 |: a* B  z( M) p8 G
. \+ q6 ]8 |" K3 \7 R3 ]1 M