Maus- und Tastatureingaben sichtbar machen
Posted: 31 Oct 2017, 17:34
Bei Youtube-Bildschirm-Anleitungen ist es nicht immer einfach zu sehen bzw. zu zeigen, was denn gerade eingegeben wird.
Deshalb hier der Versuch dies sichtbar zu machen (die aktuelle Version: https://github.com/Grrdi/WatchUserInput ... master.zip).
mit dem ganz oben aufgerufenen Hilfsskript KeyBoardIn.ahk
Verbesserte Versionen oder Tipps wilkommen!
PS. die Unicode Zeichen Linke und Rechte Sprechblase sowie ein Mausbild wurde von der Forumssoftware abgelehnt.
Sie wurden durch ◄ , ► und █ ersetzt.
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.