dkey.asm

我想学习一下其他的编程工具.希望能得到帐号

;=========================================< 彬 >==
;名  称:与KEY程序相关的DLL文件
;用  途:HOOK KEYBOARD
;语  言:MASM32
;日  期:2002年11月15日
;本代码出自 vBin 的水色银光站。
;站  址:Http://www.vbin.org
;=================================================
.386
.model flat,stdcall
  option casemap:none
  include \masm32\include\windows.inc
  include \masm32\include\kernel32.inc
  include \masm32\include\user32.inc


  includelib \masm32\lib\kernel32.lib
  includelib \masm32\lib\user32.lib

.data
  hInstance dd 0
  szTitle   db "关  于",0
  szAbout   db "文件名：Dkey.dll",0dh,0ah
            db "版  本：1.0",0dh,0ah
	    db "设计者：vBin",0dh,0ah
	    db "邮  箱：[e-mail]",0dh,0ah
	    db "网  址: Http://www.vbin.org",0
.data?
  hHook dd ?
  hWnd  dd ?
  lMsg  dd ?

.code
  dllentry proc hInst:HINSTANCE,reason:dword,reserved1:dword
    .if reason==DLL_PROCESS_ATTACH
         push hInst
	 pop hInstance
    .endif
    mov eax,TRUE
    ret
  dllentry endp


  KeyProc proc nCode:dword,wParam:dword,lParam:dword
    mov eax,wParam

    push edx
    mov edx,lParam
    invoke PostMessage,hWnd,lMsg,eax,edx
    pop edx

    invoke CallNextHookEx,hHook,nCode,wParam,lParam

    ret
  KeyProc endp
  

  InstallHook proc hwnd:dword,vMsg:dword
    push hwnd
    pop hWnd
    push vMsg
    pop lMsg
    invoke SetWindowsHookEx,WH_KEYBOARD ,addr KeyProc,hInstance,NULL
    mov hHook,eax
    ret
  InstallHook endp

  UninstallHook proc
     invoke UnhookWindowsHookEx,hHook
     ret
  UninstallHook endp


  vAboutHook proc
     invoke MessageBox,hWnd,addr szAbout,addr szTitle,64
     ret
  vAboutHook endp

end dllentry