[LehaMechanic]

Я пробовал делать через _IsPressed »

Может быть в этом затык:

http://www.autoitscript.com/autoit3/..._IsPressed.htm (по-английски)
http://autoit-script.ru/autoit3_docs..._ispressed.htm (по-русски)

If calling this function repeatedly, you should open 'user32.dll' and pass the handle. Если функция вызывается повторно, следует открыть 'user32.dll' и передать указатель.

Там же и пример, как использовать.

[Creat0R]

Попахивает Keylogger'ом, для отслежки ввода паролей...

Я сам код не видел, потому-что у меня задание написать под эту прогу функцию »

Это не причина чтобы не смотреть на код . Я даже большее скажу, это как раз таки причина чтобы таки да посмотреть на код.

[McLotos]

Creat0R, спокойнее, всё очень просто, есть готовый тестер, у которого куча заморочек, именно поэтому мне и не показывают весь код целиком, чтобы я не смог обойти их блокировку клавиатуры и подсказать студентам как параллельно с тестером запускать блокнот с ответами. Так что вполне понятно почему этот препод усиленно старается не показывать мне код.

[Creat0R]

вполне понятно почему этот препод усиленно старается не показывать мне код »

Видимо не очень ознакомлённый с AutoIt препод, если думает что его код нельзя получить, ладно, это так...

у меня задание написать под эту прогу функцию, которая бы просто запоминала в какой последовательности пользователь нажимал эти клавиши »

Код:

#include "IsPressedEx.au3"

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

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

While 1
    $vRet = _IsPressedEx("1|2|3|4")

    If $vRet Then
        $vRet = __KeyGetType($vRet, 0)

        MsgBox(64, 'Отслеживание ответов', 'Нажата клавиша: ' & $vRet)

        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

Нужн подключить библиотеку _IsPressedEx.au3

Я пробовал делать через _IsPressed »

Можно увидеть скрипт?

[McLotos]

Если убрать msgbox, то Ваш вариант тоже записывает каждое нажатие несколько раз.
А там немного другая система, справой стороны ведётся лог вопрос-ответ и статистика правильных ответов
Как сделать чтобы без MsgBox всё корректно работало?
Я сейчас на работе, а скрипт на домашнем компе, в общем логика там была примерно такая
если нажата 31
открыть DLL
открыть файл
записать туда А
закрыть файл
закрыть DLL
и так на каждую из 8и клавиш, потому-что как выяснилось, например 1 и Numpad1 имеют разные коды

[Iska]

McLotos, прислушайтесь к совету:

Видимо не очень ознакомлённый с AutoIt препод, если думает что его код нельзя получить »

и выложите скрипт.

[McLotos]

Код:

#include <Misc.au3>
#include <File.au3>
While 1
    If _IsPressed("31",DllOpen("user32.dll")) Then
	  If FileExists (@ScriptDir & '\' & $username & '.' $datetime & '.test.log') Then
		  FileOpen(@ScriptDir & '\' & $username & '.' $datetime & '.test.log',1)
	  Else
		  _FileCreate(@ScriptDir & '\' & $username & '.' $datetime & '.test.log')
	   EndIf	   
		  FileWrite(@ScriptDir & '\' & $username & '.' $datetime & '.test.log', "A")
		  FileClose(@ScriptDir & '\' & $username & '.' $datetime & '.test.log')
		  DllClose("user32.dll")
		  ; и так далее т.е. 31, 32, 33, 34б 61, 62, 63 ,64
    Sleep(20)
WEnd

Я вот например сейчас запустил эту часть кода, ввёл тупо 12341234 подряд
и он мне в файл записал
ABCCCDDDAAABBCCCCDDD
может так в самом autoit стоит какое-то ограничение, или он просто не успевает стирать из памяти букву и вводит её повторно?
Может тогда логичнее делать через массив, а после завершения (кнопка Посчитать) уже весь массив выдавать пользователю и записывать в файл? Тогда получается что эта штука, которая справа выводит номер вопроса-вариант ответа она работать не будет =(

[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 тоже неверно используется, см. справку к функциям.

[McLotos]

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

Вроде делал как в примерах в AutoIT справочнике, странно.
Блин, спасибо, как всегда выручил!