Mit zweimal Num-Taste drücken Umschalten zwischen Punkt und Komma auf dem Nummernblock

[autoit]

#include <Misc.au3>
; Mit zweimal Num-Taste drücken Umschalten zwischen Punkt und Komma auf dem Nummernblock
HotKeySet("{ESC}", "__Quit")
$sKey = 90 ; Num
$iI = 1
$iJ = 0
$sToggle = False
;~ TraySetIcon("Komma.ico")
TrayTip("Nummernblock", "Komma", 5)
While 1
If _IsPressed($sKey) Then
;~ ConsoleWrite($sToggle & "..." & $iI & "..." & $iI-$iJ & @LF)
If $iI-$iJ < 10000 Then ; Zeit zwischen zwei Tastananschläge
$sToggle = Not $sToggle
Sleep(100)
Send("{NUMLOCK on}")
$iI=1
$iJ=1
Send("{NUMLOCK on}")
If $sToggle Then
;~ ConsoleWrite("Punkt" & @LF)
;~ TraySetIcon("Punkt.ico")
TrayTip("Nummernblock", "Punkt", 5)
HotKeySet("{NUMPADDOT}", "__Punkt")
Else
;~ ConsoleWrite("Komma" & @LF)
;~ TraySetIcon("Komma.ico")
TrayTip("Nummernblock", "Komma", 5)
HotKeySet("{NUMPADDOT}")
EndIf
EndIf
While _IsPressed($sKey)
$iJ = $iI
Sleep(10)
WEnd
EndIf
$iI += 1
WEnd

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

Func __Punkt()
Send(".")
EndFunc

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

Func __Quit()
HotKeySet("{ESC}")
HotKeySet("{NUMPADDOT}")
Exit
EndFunc

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