EnableButton，大家自己看看是做什么的吧

游侠无极限

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; EnableButton ALL For bbs.xsclub.com ; by 游侠无极限 / R( R/ |: M( K; r$ V2 `# m;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> & `8 h* W# o% o3 x1 p( \6 I; EndableButton.asm * C1 x4 b% N' U# B; 基于对话框资源 2 [7 p9 k' W$ }; S5 N;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .386 0 ]7 ?2 \! E" ^ N2 d .model flat, stdcall * q0 Z6 {( q$ k( T- l option casemap :none 8 G) C/ K) ], K/ o* h6 G* i$ ]: J;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; Include 文件定义 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 8 \( m& ^2 d% h, h. |! G! uinclude windows.inc include user32.inc + G6 r7 }" J1 _8 {% ?5 Xincludelib user32.lib include shell32.inc - [, L& f3 U/ o% w+ L/ g+ z2 mincludelib shell32.lib include kernel32.inc 9 Z3 `/ j! g. n( f- h* p2 Jincludelib kernel32.lib $ |+ H1 f* d9 X" d;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; Equ 等值定义 5 n4 A& C, P% X0 P8 S* Y. ^;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ICO_MAIN equ 104 ;图标 DLG_MAIN equ 101 ;对话框 EDIT_MAIN equ 1002 ;编辑框 0 R, S: ~+ P/ E- gID_ABOUT equ 1000 ;关于按钮 $ q, n! }( K4 N) N- i$ W: [, \;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; 数据段 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - A& `; U0 z- I/ o5 b .data? 1 v$ b* s! f1 x t& ^4 LhInstance dd ? hHook dd ? " z! H" g% r6 \8 n5 O2 I0 ahWndMain dd ? IsStop dd ? q1 s! l0 V: S2 `( r! ^0 R ( Z. m! T; O- l4 W) Z- p .const szStart db '启动',0 szStop db '停止',0 szCaption db 'EnableButton',0 szInfo db '版权没有 03.8.20 游侠无极限制作',0 7 ~: o+ W$ D1 xszErr db '安装钩子失败，原因不明',0 & {: n; T( t4 P; d9 K, Y9 F; B% eszWnd db '%lxH',0 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; 代码段 $ {# C: R8 @ U;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .code ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 1 u6 K! }6 h. t5 K& @& \;钩子回调函数 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _HookProc proc _dwCode,_wParam,_lParam 3 t& X% y' M( S6 c local @szBuffer[100]:byte ; n' f5 ]- y9 ?. F% g invoke CallNextHookEx,hHook,_dwCode,_wParam,_lParam ;钩子链传递 pushad .if _dwCode == HC_ACTION ;Windows要移除一条消息时 4 }/ b( N" E6 s1 U mov ebx,_lParam 5 h/ G( L) z1 z$ ~$ k assume ebx:ptr EVENTMSG .if [ebx].message == WM_LBUTTONDOWN t' [3 E1 `3 z0 T mov eax,[ebx].hwnd ;取得当前鼠标所在控件句柄 ' M# L: K1 X: A7 C2 | invoke wsprintf,addr @szBuffer,addr szWnd,eax invoke SetDlgItemText,hWndMain,EDIT_MAIN,addr @szBuffer ;显示句柄 invoke IsWindowEnabled,[ebx].hwnd ;判断控件是否无效 .if eax == FALSE invoke EnableWindow,[ebx].hwnd,TRUE ;使控件可用 4 u$ r( F2 L) D6 i5 |) o" K0 `; U .endif ;.endif ) [8 a; d- A/ r w% d0 ?8 Z .endif assume ebx:nothing , G2 O% R* c7 f .endif ; }5 ^" d+ j7 I popad xor eax,eax 3 x6 `, p& ~* f ret _HookProc endp ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> m9 X6 n, A" M0 g _ProcDlgMain proc uses ebx edi esi hWnd,wMsg,wParam,lParam mov eax,wMsg .if eax == WM_CLOSE 8 R9 t1 Z7 N' W, w. I( V/ ?% b, ? .if IsStop != TRUE invoke UnhookWindowsHookEx,hHook ;卸载钩子 .endif 2 H# A' K9 X$ }9 b$ { invoke EndDialog,hWnd,NULL & A/ n, _6 }4 [ .elseif eax == WM_INITDIALOG invoke LoadIcon,hInstance,ICO_MAIN invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,eax invoke SetWindowPos,hWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE ;窗口最顶层 " U9 N, X) u2 g6 } mov IsStop,TRUE push hWnd pop hWndMain 9 _- u1 x/ l4 w2 \" C; B2 W .elseif eax == WM_COMMAND ! W3 q% e/ ^7 H, g mov eax,wParam / F+ G t2 G% D7 Q' J( D U8 b4 F .if ax == IDOK .if IsStop == TRUE : F+ h3 j0 |& \( ~: \# B invoke SetDlgItemText,hWnd,IDOK,offset szStop , \& j3 T* X: C. T: K" p8 ^ invoke SetWindowsHookEx,WH_JOURNALRECORD,addr _HookProc,hInstance,NULL ;挂钩，日志记录钩子 .if eax mov hHook,eax 0 t2 f2 X* a. u! C. o8 \ .else ;挂钩失败 invoke MessageBox,hWnd,offset szErr,offset szCaption,MB_OK or MB_ICONWARNING : Q, Y; l: A( l1 ^ .endif mov IsStop,FALSE : A" Q8 t6 d9 ^ .else invoke SetDlgItemText,hWnd,IDOK,offset szStart 6 |1 F* u( a& n) y$ p. \% ^6 D5 ~ s invoke UnhookWindowsHookEx,hHook ( ~' O+ \; G6 r4 P0 c' f8 s( Y mov IsStop,TRUE .endif .elseif ax == IDCANCEL invoke SendMessage,hWnd,WM_CLOSE,NULL,NULL .elseif ax == ID_ABOUT 0 h) u+ \1 G- ?6 T, ~ invoke ShellAbout,hWnd,offset szCaption,offset szInfo,NULL ;关于对话框 4 `3 b/ F9 z0 M .endif ! Y3 C, X" d2 c% E' ~+ d8 U .else mov eax,FALSE ret 0 X6 X& d B; z& b/ g1 b .endif mov eax,TRUE + c, m4 w$ w5 ]+ Y$ [ ret $ _ F0 u& |$ f; E. t4 }- l 8 J) H$ M1 L- [. \6 a$ h! m_ProcDlgMain endp : O) K% L5 S6 y) l . P" q4 r4 l, Z;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> / R* a& U6 \4 x: e" n+ s& O- fstart: invoke GetModuleHandle,NULL % _5 C k) r" p9 M% t3 M mov hInstance,eax invoke DialogBoxParam,hInstance,DLG_MAIN,NULL,offset _ProcDlgMain,NULL invoke ExitProcess,NULL ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ( h/ _+ c% x3 ?) F1 r; P4 G3 ~ end start 1 d; Q& b5 }7 p; u* b/ o) I& n ' i3 K' o( Z/ K! D* h. S界面看下图片 6 H" W: @/ Z8 ^$ J0 j5 `# Y 5 C/ I0 Z( F w6 A ; f. C5 \5 ^! Y. A3 R

[此贴子已经被作者于2003-10-31 23:37:05编辑过]