Hi all,
wenn man MS Access öffnet, kommt zuerst die "Sicherheitswarnung". In dieser möchte ich die Pfeiltasten sperren.
Grund ist folgender:
Ich habe eine Routine erstellt, die beim Drücken der Shift-Taste die Controls deaktiviert und diese solange nicht mehr anklickbar sind, bis Shift losgelassen wird.
Das Problem ist aber, wenn man Shift gedrückt hält und dann mit den Pfeiltasten navigiert, kommt man trotzdem zum Ziel...
Mit folgendem funktioniert dies aber leider nicht (dafür aber überall sonst!):
Spoiler anzeigen
HotKeySet("{right}", "go")
func go()
sleep(1)
EndFunc
Edit: Der bisherige Code:
Spoiler anzeigen
#NoTrayIcon
#include <misc.au3>
dim $enabled = 1, $time = TimerInit()
[/autoit] [autoit][/autoit] [autoit]HotKeySet("^!d","disable")
[/autoit] [autoit][/autoit] [autoit]while 1
[/autoit] [autoit][/autoit] [autoit]if WinExists("Sicherheitswarnung") and $enabled Then
[/autoit] [autoit][/autoit] [autoit]if _IsPressed(10) Then
WinSetState("Sicherheitswarnung","",@SW_DISABLE)
Else
WinSetState("Sicherheitswarnung","",@SW_ENABLE)
EndIf
EndIf
if TimerDiff($time) > 10000 Then
$enabled = 1
$time = TimerInit()
EndIf
sleep(1)
WEnd
func disable()
$enabled = 0
EndFunc
HotKeySet("{right}", "go")
[/autoit] [autoit][/autoit] [autoit]func go()
sleep(1)
EndFunc
...lässt sich für ca 10 Sekunden per Strg+Alt+D deaktivieren.
Funktioniert soweit auch perfekt, Mausklicks sind nicht mehr möglich, nur leider die Pfeiltasten noch.
Danke und Grüße
x0r