au3 get key name text

#include <GUIConstantsEx.au3>
#include <WinAPISys.au3>
#include <WindowsConstants.au3>

GUICreate('',200,300)
GUIRegisterMsg($WM_KEYDOWN, 'WM_KEYDOWN')
GUISetState(@SW_SHOW)
$file = "keytouch" ;fichier de stockage
$hFileOpen = FileOpen ($file,1); création ou ouverture du fichier pour écriture

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

#cs
Func WM_KEYDOWN($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam
    MsgBox(0,"info",$hWnd&","&$iMsg&","&$wParam&","&$lParam)
    FileWrite($hFileOpen,_WinAPI_GetKeyNameText($lParam))

EndFunc   ;==>WM_KEYDOWN
#ce

Func WM_KEYDOWN($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam
	MSGBOX(0,'',$lParam)
    ConsoleWrite(_WinAPI_GetKeyNameText($lParam) & @CRLF)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_KEYDOWN