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

游侠无极限

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; EnableButton ALL For bbs.xsclub.com 9 B. {: p* @# g. N; by 游侠无极限 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; EndableButton.asm ; 基于对话框资源 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .386 6 n( n* ~9 O! H4 l .model flat, stdcall option casemap :none ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; Include 文件定义 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> include windows.inc include user32.inc includelib user32.lib 0 B. @3 B- x [! winclude shell32.inc includelib shell32.lib include kernel32.inc includelib kernel32.lib * J, t, l; z" h; M3 k4 Y. m* Q& u;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; Equ 等值定义 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ICO_MAIN equ 104 ;图标 $ ]$ k$ ]: |: ^7 t2 gDLG_MAIN equ 101 ;对话框 EDIT_MAIN equ 1002 ;编辑框 ID_ABOUT equ 1000 ;关于按钮 8 n1 ]/ g1 P4 R5 e `;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; 数据段 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .data? hInstance dd ? hHook dd ? hWndMain dd ? 7 f: o% b3 x3 }* k" `IsStop dd ? 2 E8 C! o+ ?7 v! A# [1 r0 m .const % }0 L6 P0 V) IszStart db '启动',0 szStop db '停止',0 : G% ~# @' `3 `+ J) c; pszCaption db 'EnableButton',0 szInfo db '版权没有 03.8.20 游侠无极限制作',0 szErr db '安装钩子失败，原因不明',0 szWnd db '%lxH',0 ' ]" T) o4 B9 o0 b6 n1 m;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; 代码段 & Z) g) @8 W- P' f* ];>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .code ( k( R; Q" k0 J: B* n;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 4 F) U9 @* {) T;钩子回调函数 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _HookProc proc _dwCode,_wParam,_lParam local @szBuffer[100]:byte invoke CallNextHookEx,hHook,_dwCode,_wParam,_lParam ;钩子链传递 ' Z6 [+ z/ g7 }) Y9 I) c pushad .if _dwCode == HC_ACTION ;Windows要移除一条消息时 mov ebx,_lParam $ H7 W& a! Y' S0 ? assume ebx:ptr EVENTMSG & V& g( X# F- [ .if [ebx].message == WM_LBUTTONDOWN H9 D% }+ V- s& R6 { mov eax,[ebx].hwnd ;取得当前鼠标所在控件句柄 ' C# E% Z$ l! u invoke wsprintf,addr @szBuffer,addr szWnd,eax invoke SetDlgItemText,hWndMain,EDIT_MAIN,addr @szBuffer ;显示句柄 ' @- Z- }- T4 |' @+ | invoke IsWindowEnabled,[ebx].hwnd ;判断控件是否无效 , P, W2 e2 r4 a1 {- c9 l .if eax == FALSE invoke EnableWindow,[ebx].hwnd,TRUE ;使控件可用 .endif ;.endif 3 u' Z5 ~, c8 u1 F- W O .endif assume ebx:nothing .endif ( W: e1 F7 }) G1 f1 G( M popad . X, V* i9 ~/ j* S& w xor eax,eax ret # L) Y0 ? d. j0 X# @- V5 m* n! `_HookProc endp / Z7 N1 h6 u$ S, @;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> , G9 `2 H2 Y( ?5 ^2 S$ j_ProcDlgMain proc uses ebx edi esi hWnd,wMsg,wParam,lParam ' X8 V( b# {3 p5 z2 p mov eax,wMsg 3 P) W" s, c& m7 t .if eax == WM_CLOSE 1 t' l9 ~, _' g! t# z' m* q* S' Y- U .if IsStop != TRUE # T3 @2 n7 \* D5 n7 w invoke UnhookWindowsHookEx,hHook ;卸载钩子 .endif ! M: ^' G1 H: D* v invoke EndDialog,hWnd,NULL .elseif eax == WM_INITDIALOG ) Z& t0 k( m- y1 y/ s invoke LoadIcon,hInstance,ICO_MAIN , M9 n4 U" Y& N5 ]1 P: c/ P, M invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,eax invoke SetWindowPos,hWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE ;窗口最顶层 ( ]7 D+ p# _% t7 ]- h+ { mov IsStop,TRUE 8 V1 P( {8 G' x0 g6 q" T push hWnd pop hWndMain ) G2 a. z) M" F5 L) [- ~ .elseif eax == WM_COMMAND 1 |- \6 u4 }% k# a: [/ u) B8 w mov eax,wParam .if ax == IDOK .if IsStop == TRUE invoke SetDlgItemText,hWnd,IDOK,offset szStop invoke SetWindowsHookEx,WH_JOURNALRECORD,addr _HookProc,hInstance,NULL ;挂钩，日志记录钩子 . Y4 c7 E4 s) _4 ?! }5 F .if eax mov hHook,eax .else ;挂钩失败 invoke MessageBox,hWnd,offset szErr,offset szCaption,MB_OK or MB_ICONWARNING 9 G* ]; f r9 R7 o$ x5 _6 q, N2 ^ .endif 0 g- S( L- W" `0 Q mov IsStop,FALSE " M+ c* m7 o; O0 E+ m1 U" i! v5 a .else invoke SetDlgItemText,hWnd,IDOK,offset szStart 4 A/ J& R1 A- ~% `- A3 J2 J1 y invoke UnhookWindowsHookEx,hHook ; P) f* K7 R7 n mov IsStop,TRUE .endif .elseif ax == IDCANCEL 2 ~% |$ s5 b4 d6 ?, p% A! @ invoke SendMessage,hWnd,WM_CLOSE,NULL,NULL .elseif ax == ID_ABOUT 1 `# M9 p% g& h" r9 [! ^( |, w invoke ShellAbout,hWnd,offset szCaption,offset szInfo,NULL ;关于对话框 .endif 9 G) e; F7 q3 P6 b! N. @& u .else mov eax,FALSE ret 4 U- ]$ C! N2 b .endif 8 [: M& @( a& B" C- s G% K mov eax,TRUE ret . l5 ?7 d `% N% U4 s/ ^, ?- a_ProcDlgMain endp : n3 a: z" [- Z& h! k$ _( w : l% T: g* p4 ]+ |;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 5 d H W; }- Q9 a$ p/ }: Z8 i- O4 jstart: 2 q& e' d ~1 Q3 j invoke GetModuleHandle,NULL mov hInstance,eax invoke DialogBoxParam,hInstance,DLG_MAIN,NULL,offset _ProcDlgMain,NULL invoke ExitProcess,NULL 8 p. t0 R1 F4 D' S/ U;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 3 `8 _$ k1 Z% W+ v w' Q end start ) M& m! a5 D. N6 Z' p% Y 界面看下图片 $ I8 X7 j, Q, U M& \ ]+ C 1 ?3 o" l% u6 D* u- V 2 g7 l/ q( N; t. u# R2 n% D* I

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

搞了个WH_JOURNALRECORD hook，大概是把变灰的控件Enable，有点意思
; A5 {" s! V( x$ Z+ H不过这类界面程序实在不是汇编的强项，用了大量的invoke  ，整个程序结构看上去和c别无二致
% Q% H- e$ k9 L/ Z- l' z汇编的强项不在这里，楼主如果想显耀汇编的强大，这个例子不怎么，
4 O# ~& t0 [+ l* _8 y再来一个强一点的原创瞧瞧 ^_^
3 t9 |# p1 B- N( N8 Q$ i3 m: u

7 B& K* d" i: i- Y

[此贴子已经被作者于2003-11-1 11:16:10编辑过]

firelinux

bigfoot，留个QQ怎么样。