[решено] Запоминать последовательность нажатия определенных клавиш

[McLotos]

Доброго времени суток. Подскажите. как можно сделать чтобы AutoIT отслеживал последовательность некоторых клавиш.
Поясню детально:
Есть программа для тестирования написанная на AutoIT (как будто нельзя было её на delphi написать =( )
Программа выводит вопрос и несколько вариантов ответа, казалось бы сиди и отвечай, но она блокирует мышь и почти всю клавиатуру оставляя в рабочем состоянии только 4 клавиши - цифры от 1 до 4
Я сам код не видел, потому-что у меня задание написать под эту прогу функцию, которая бы просто запоминала в какой последовательности пользователь нажимал эти клавиши
Я пробовал делать через _IsPressed
Т.е. в цикле вертится select с 4ми вариантами и если какой-то вариант появился то он записывается в файл
Но AutoIT выдал несколько интересных сюрпризов:
1. Записывалась только первая нажатая кнопка, а дальше ничего больше не писалось, хотя функция продолжала работать
2. Запоминалась первая нажатая кнопка и дублировалась столько раз, сколько кнопок было нажато.
3. Записывалась каждая кнопка но вводилась в файл несколько раз подряд - если бы хотя бы количество повторений было одинаковое можно было бы отфильтровать, но оно всегда разное.
Помогите разобраться.

[LehaMechanic]

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

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

http://www.autoitscript.com/autoit3/docs/libfunctions/_IsPressed.htm (по-английски)
http://autoit-script.ru/autoit3_docs/libfunctions/_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 (http://autoit-script.ru/autoit3_docs/keywords.htm##include) "IsPressedEx.au3"

Global (http://www.autoitscript.com/autoit3/docs/keywords.htm#Global) $sLog_File = @ScriptDir (http://autoit-script.ru/autoit3_docs/macros.htm#@scriptdir) & '\Answers.log'

HotKeySet (http://autoit-script.ru/autoit3_docs/functions/HotKeySet.htm)('{ESC}', '_Exit')

While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) 1
$vRet = _IsPressedEx("1|2|3|4")

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $vRet Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$vRet = __KeyGetType($vRet, 0)

MsgBox (http://autoit-script.ru/autoit3_docs/functions/MsgBox.htm)(64, 'Отслеживание ответов', 'Нажата клавиша: ' & $vRet)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) FileGetSize (http://autoit-script.ru/autoit3_docs/functions/FileGetSize.htm)($sLog_File) > 0 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$vRet = ',' & $vRet
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$hFile = FileOpen (http://autoit-script.ru/autoit3_docs/functions/FileOpen.htm)($sLog_File, 1)
FileWrite (http://autoit-script.ru/autoit3_docs/functions/FileWrite.htm)($hFile, $vRet)
FileClose (http://autoit-script.ru/autoit3_docs/functions/FileClose.htm)($hFile)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

Sleep (http://autoit-script.ru/autoit3_docs/functions/Sleep.htm)(10)
WEnd (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _Exit()
Exit (http://www.autoitscript.com/autoit3/docs/keywords.htm#Exit)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)

Нужн подключить библиотеку _IsPressedEx.au3 (http://autoit-script.ru/index.php/topic,1391.0.html)

Я пробовал делать через _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 (http://autoit-script.ru/autoit3_docs/keywords.htm##include) "IsPressedEx.au3"

Global (http://www.autoitscript.com/autoit3/docs/keywords.htm#Global) $sLog_File = @ScriptDir (http://autoit-script.ru/autoit3_docs/macros.htm#@scriptdir) & '\Answers.log'

HotKeySet (http://autoit-script.ru/autoit3_docs/functions/HotKeySet.htm)('{ESC}', '_Exit')

While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) 1
$vRet = _IsPressedEx("1|2|3|4|{Numpad1}|{Numpad2}|{Numpad3}|{Numpad4}")

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $vRet Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
;Это для ожидания отжатия клавиши
While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) _IsPressed (http://autoit-script.ru/autoit3_docs/libfunctions/_ispressed.htm)($vRet)
Sleep (http://autoit-script.ru/autoit3_docs/functions/Sleep.htm)(10)
WEnd (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)

$vRet = __KeyGetType($vRet, 0)

;Эта строка удаляет Numpad если нажата цифра на правой части клавиатуры, если нужно записывать вместе с Numpad, ту следует убрать строку ниже
$vRet = StringReplace (http://autoit-script.ru/autoit3_docs/functions/StringReplace.htm)($vRet, 'Numpad', '')

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) FileGetSize (http://autoit-script.ru/autoit3_docs/functions/FileGetSize.htm)($sLog_File) > 0 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$vRet = ',' & $vRet
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$hFile = FileOpen (http://autoit-script.ru/autoit3_docs/functions/FileOpen.htm)($sLog_File, 1)
FileWrite (http://autoit-script.ru/autoit3_docs/functions/FileWrite.htm)($hFile, $vRet)
FileClose (http://autoit-script.ru/autoit3_docs/functions/FileClose.htm)($hFile)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

Sleep (http://autoit-script.ru/autoit3_docs/functions/Sleep.htm)(10)
WEnd (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _Exit()
Exit (http://www.autoitscript.com/autoit3/docs/keywords.htm#Exit)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)

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

[McLotos]

Неправильное использование функции, DllOpen не нужно помещать в параметр, её нужно вызвать заранее и передавать переменную, а FileOpen тоже неверно используется, см. справку к функциям. »
Вроде делал как в примерах в AutoIT справочнике, странно.
Блин, спасибо, как всегда выручил!

[Creat0R]

Вроде делал как в примерах в AutoIT справочнике »
Я бы хотел посмотреть на эти примеры из справки.

спасибо »
Если тема решена, то её следует пометить как таковую.