HotKeySet - AutoIt soll Taste gedrückt halten

Nasenbär

Hi,
ich möchte mit dem HotKey {NUMPAD5}, die Shift-Taste dauerhaft runtergedrückt haben.
Und beim erneuten betätigen von {NUMPAD5}, soll die Shift-Taste wieder losgelassen werden.

Mein laienhafter Versuch schaut so aus:

[autoit]

HotKeySet("{NUMPAD5}","shift")
HotKeySet("{NUMPAD8}","ende")

[/autoit][autoit][/autoit][autoit]

Dim $shiftrunter = False
Func shift()
If $shiftrunter = False Then
$shiftrunter = True
Send("{SHIFTDOWN}")
Else
$shiftrunter = False
Send("{SHIFTUP}")
EndIf
EndFunc

[/autoit][autoit][/autoit][autoit]

Func ende()
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

While 1
Sleep(100)
WEnd

[/autoit]

Aber irgendwie lässt sich {SHIFTDOWN} dann nicht mehr lösen und ist dauerhaft aktiviert

Ich würde mich riesig freuen, wenn ihr mir helfen könntet.

Gruß
Nasenbär

**Xenobiologist**

[autoit]

Opt("SendCapslockMode",0)
HotKeySet("{NUMPAD5}", "shift")
HotKeySet("{NUMPAD8}", "ende")

[/autoit][autoit][/autoit][autoit]

Func shift()
Send("{CAPSLOCK toggle}")
EndFunc ;==>shift

[/autoit][autoit][/autoit][autoit]

Func ende()
Exit
EndFunc ;==>ende

[/autoit][autoit][/autoit][autoit]

While 1
Sleep(100)
WEnd

[/autoit]

Nasenbär

Hehe.. das mit Capslock ist eine lustige Idee.
Leider unterscheidet die Anwendung zwischen Shift und Capslock.

Aber vielen Dank, dass du den Code so ordentlich gestalltet hast!

**BugFix**

Du mußt das KeyEvent direkt auslösen.
Das Aufrufen dieser Funktion klappt aber nicht in jedem Fall über HotKeys. Wenn SHIFTDOWN aktiv ist, wird der HotKey zum Aufheben nicht mehr registriert. Deshalb muß auch die HotKey-Abfrage innerhalb der Hook-Prozedur erfolgen.:

Spoiler anzeigen

[autoit]

#include <WinAPI.au3>
#include <WindowsConstants.au3>