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

admin

ShellHook是什么？当一个窗口创立、激活、封闭时，explorer总是能够捕捉相应的音讯，并更新义务栏上，就是经过ShellHook完成的。本课完成了对零碎一切顶级窗口的拦挡，和指定窗口的拦挡。
4 I0 V% Q9 D9 \7 \
; j+ M% s, e+ T9 h5 X3 rRegisterWindowMessage
RegisterWindowMessage函数定义一个新的窗口音讯，保障该音讯在零碎范畴内是惟一的。通常调用SendMessage或许PostMessage函数时，能够应用该函数前往的音讯值。
- o0 |. Z) h5 o& r2 M
9 U% S7 B! l$ Q: E; c正文：
RegisterWindowMessage函数通罕用于为两个协作应用顺序之间的通讯注销音讯。　　若两个不同的应用顺序注销了相反的音讯字符串，则这两个应用顺序前往相反的音讯值。该音讯不断维持被注销形态，直到Windows会话完结。当多个应用顺序必需解决同一音讯时才应用RegisterWindowMessage函数。在一个窗口类范畴内发送公有音讯时，获取调配给一个字串标识符的音讯编号 &C000（49152） 到 &FFFF（65535）之间的一个音讯编号。零象征着出错。
+ a- O7 U: C1 Y
! W# B- Q# W; {% ihttps://docs.microsoft.com/en-us ... isterwindowmessagea
9 e. \# Q  f/ O8 B4 J& u+ u字符串罕见有：
TaskBarCreated 普通用于Explorer解体后的托盘图标重建
) y3 B. ?! G8 z( A0 ]+ y9 o( aSHELLHOOK 配合RegisterShellHookWindow可用于拦挡零碎窗口创立等
1 `* j5 e4 J" z$ h* jTaskbarButtonCreated 在win7里的义务按钮创立

% p: T3 P+ E" R1 ZRegisterShellHookWindow
https://docs.microsoft.com/en-us ... stershellhookwindow
) n+ G7 {% N& _4 V* {
% c( j5 r2 c6 n7 \* p1 X( @8 ]开始拦截

1. .版本 2
   4 N' o- ~" [) V8 _6 h; y
2. 
   ; `4 k* [8 \. m, c* @
3. .子程序 开始拦截
   
4. 
   
5. MsgNum ＝ RegisterWindowMessage (“SHELLHOOK”)
   0 V; u8 G  V  ~' u( z' C6 O$ v0 r* [
6. .如果真 (MsgNum ＝ 0)
   # k1 \7 ?/ W' j. o2 s; M7 p; H
7.     信息框 (“注册shell hook 失败”, 0, , )
   ) V4 O0 H. z: Z$ U+ ?4 q- r2 P
8.     返回 ()
   
9. 
   
10. .如果真结束
    
11. RegisterShellHookWindow (取窗口句柄 ())
      M" Q3 l+ U2 w; Q  y- l' x
12. ' 窗口子类化
    
13. SetRet ＝ SetWindowLong (取窗口句柄 (), -4, 到整数 (&NewProc))

复制代码

窗口子类化

1. .版本 2
   7 x$ O3 H8 `2 {9 Y
2. .支持库 iext
   
3. 
   ( n! p  ^- c% n. w* F# B
4. .子程序 NewProc, 整数型
   
5. .参数 Hwnd, , , 这个句柄是程序本身的句柄
   
6. .参数 uMsg, , , 用户的消息识别类型
   
7. .参数 wParam, , , 事件类别
   4 z4 s$ K; f' e% P5 T
8. .参数 lParam, , , 拦截的系统的窗口 的句柄
   
9. .局部变量 Tid
   . D7 m  r* X& _
10. .局部变量 i
    
11. 
      r: L- k- o' d  v2 |  |
12. ' 只针对某一个特定顶级窗口hook
    
13. .如果真 (lParam ＝ 取指定窗口句柄 (“无标题 - 记事本”))
    7 Z7 K7 |" V) Z$ `* h& ]2 N' s. m
14.     .判断开始 (wParam ＝ 1)  ' 顶级窗口的创建’
    
15.         GetWindowThreadProcessId (lParam, Tid)
    
16.         .如果真 (Tid ≠ 0)
    
17.             i ＝ 超级列表框1.插入表项 (, “窗口创建”, , , , )
    
18.             超级列表框1.置标题 (i, 1, 到文本 (lParam))
    8 ^( V- V# }! p6 e$ L$ a
19.             超级列表框1.置标题 (i, 2, 到文本 (Tid))
    * h6 i% F! h5 `" C- P
20.             超级列表框1.置标题 (i, 3, 到文本 (取指定窗口标题 (lParam)))
    & h0 d2 b4 R7 k5 y' N1 M
21.             超级列表框1.保证显示 (i)
    ! z. }+ Z& F5 N
22. 
    
23.         .如果真结束
    
24. 
    
25.     .判断 (wParam ＝ 2)  ' 顶级窗口的销毁’
    4 T. k2 {4 Z) Q, [
26.         GetWindowThreadProcessId (lParam, Tid)
    + p2 M5 V( x5 m/ A' H
27.         .如果真 (Tid ≠ 0)
    8 H/ i1 `: B; V5 E2 j; h4 R$ _
28.             i ＝ 超级列表框1.插入表项 (, “窗口销毁”, , , , )
    
29.             超级列表框1.置标题 (i, 1, 到文本 (lParam))
    
30.             超级列表框1.置标题 (i, 2, 到文本 (Tid))
      E: z& I6 h6 O8 d! X, R
31.             超级列表框1.置标题 (i, 3, 到文本 (取指定窗口标题 (lParam)))
    " F+ ]. G9 _$ W, V/ V+ s0 t
32.             超级列表框1.保证显示 (i)
    " l& U) a- k/ N
33. 
    
34.         .如果真结束
    
35. 
    
36.     .判断 (wParam ＝ 32772)  ' 顶级窗口切换
    
37.         GetWindowThreadProcessId (lParam, Tid)
    
38.         .如果真 (Tid ≠ 0)
    
39.             i ＝ 超级列表框1.插入表项 (, “窗口切换”, , , , )
    " H& m5 a0 z$ D3 T% Z. L
40.             超级列表框1.置标题 (i, 1, 到文本 (lParam))
    0 e9 s9 N) f6 V4 {
41.             超级列表框1.置标题 (i, 2, 到文本 (Tid))
    
42.             超级列表框1.置标题 (i, 3, 到文本 (取指定窗口标题 (lParam)))
    ! F8 C7 V3 k. J& u" y$ @
43.             超级列表框1.保证显示 (i)
    
44. 
    " q) K) d& X$ C) T1 ?8 K& v7 I
45.         .如果真结束
    , G9 B& B2 D) v, Q
46. 
    
47.     .默认
    9 }! y4 e' o- K) f  L
48.     .判断结束
    . F/ j' n' q" D! ]7 J
49. .如果真结束
    
50. 返回 (CallWindowProc (SetRet, Hwnd, uMsg, wParam, lParam))

复制代码

$ \3 r2 @3 _+ U! c# {


9 W% |' x0 p' t3 d1 W! T