Deshalb hier der Versuch dies sichtbar zu machen (die aktuelle Version: https://github.com/Grrdi/WatchUserInput ... master.zip).
Code: Select all
Run, KeyBoardIn.ahk,,,EinzeltasteNowID
OnExit,Schluss
Loop
{
L:=A_Space A_Space A_Space
R:=A_Space A_Space A_Space
if(GetKeyState("LButton"))
L:="◄"
if(GetKeyState("RButton"))
R:="►"
MouseGetPos,X,Y
kveraendert:=false
k:=
FileRead,k,EinzeltasteNow.txt
if not ErrorLevel
{
FileDelete,EinzeltasteNow.txt
vomKeyboard= .%A_Tab%⌨ %kaaaa%%kaaa%%kaa%%ka%%k% ⌨
LastCharTime:=A_TickCount
kveraendert:=true
kaaaa:=kaaa
kaaa:=kaa
kaa:=ka
ka:=k
}
if(vomKeyboard<>"" AND A_TickCount-LastCharTime > 2000)
{
k:=
ka:=
kaa:=
kaaa:=
kaaaa:=
vomKeyboard:=
kveraendert:=true
}
if(A_TimeIdle>4000)
{
ToolTip
}
if (xalt<>x or yalt<>y or lalt<>l or ralt<>r or kveraendert)
{
ToolTip,%L%█%R%%vomKeyboard%
}
xalt:=x
yalt:=y
lalt:=l
ralt:=r
}
LShift & RShift::
Schluss:
Process,Close,%EinzeltasteNowID%
ExitApp
Code: Select all
Loop, 26
Transform, Strg%A_Index%, Chr,% A_Index ; Speichert das Zeichen für STRG+A bis Z in die Variable Strg1 bis Strg26.
Loop
{
Einzeltaste:=
Input, Einzeltaste,M V L1, {LControl}{RControl}{LAlt}{RAlt}{LShift}{RShift}{LWin}{RWin}{AppsKey}{F1}{F2}{F3}{F4}{F5}{F6}{F7}{F8}{F9}{F10}{F11}{F12}{Left}{Right}{Up}{Down}{Home}{End}{PgUp}{PgDn}{Del}{Ins}{BS}{Capslock}{Numlock}{PrintScreen}{Pause}{Enter}{Return}{Esc}
Loop,26
{
if (Einzeltaste = Strg%A_Index%)
Einzeltaste:="STRG " chr(A_index+64)
}
If (InStr(ErrorLevel, "EndKey:") and Einzeltaste="")
{
StringReplace,Einzeltaste,ErrorLevel,EndKey:
Einzeltaste:=A_Space Einzeltaste A_Space
}
FileAppend,%Einzeltaste%,EinzeltasteNow.txt
}
PS. die Unicode Zeichen Linke und Rechte Sprechblase sowie ein Mausbild wurde von der Forumssoftware abgelehnt.
Sie wurden durch ◄ , ► und █ ersetzt.