[Creat0R]

Если убрать msgbox, то Ваш вариант тоже записывает каждое нажатие несколько раз. »

Исправленный вариант:

Код:

#include "IsPressedEx.au3"

Global $sLog_File = @ScriptDir & '\Answers.log'

HotKeySet('{ESC}', '_Exit')

While 1
    $vRet = _IsPressedEx("1|2|3|4|{Numpad1}|{Numpad2}|{Numpad3}|{Numpad4}")

    If $vRet Then
        ;Это для ожидания отжатия клавиши
        While _IsPressed($vRet)
            Sleep(10)
        WEnd

        $vRet = __KeyGetType($vRet, 0)

        ;Эта строка удаляет Numpad если нажата цифра на правой части клавиатуры, если нужно записывать вместе с Numpad, ту следует убрать строку ниже
        $vRet = StringReplace($vRet, 'Numpad', '')

        If FileGetSize($sLog_File) > 0 Then
            $vRet = ',' & $vRet
        EndIf

        $hFile = FileOpen($sLog_File, 1)
        FileWrite($hFile, $vRet)
        FileClose($hFile)
    EndIf

    Sleep(10)
WEnd

Func _Exit()
    Exit
EndFunc

Код »

Неправильное использование функции, DllOpen не нужно помещать в параметр, её нужно вызвать заранее и передавать переменную, а FileOpen тоже неверно используется, см. справку к функциям.