Post by Nussbeisser » 17 Jan 2020, 14:17
Danke für Vorschläge und Tipps.
@Rohwedder Macht genau das, was ich wollte.
Gestern habe ich auch versucht mit SetTimer es zu realisieren, habe irgendwann aufgegeben.
Auf A_TimeIdle bin ich gar nicht gekommen.
Code: Select all
^F1::
AktLang := 0
NachLang := 0
SetTimer, InPutTimer, 3000
InputBox, OutputVar, HotString starter, ,,80,100
Return
InPutTimer:
ControlGetText, MyVar, Edit1, HotString starter
AktLang := StrLen(MyVar)
if (AktLang != NachLang)
{
SetTimer, InPutTimer, On
WinClose , HotString starter
If !WinExist("HotString starter")
SetTimer, InPutTimer, Off
NachLang := StrLen(MyVar)
ToolTip, %AktLang% - %NachLang%
Sleep, 1500
ToolTip
return
#IfWinActive HotString starter
:*:aboutr::
MsgBox, Es wurde aboutr gestartet.
#IfWinActive
Return
Danke für Vorschläge und Tipps.
[mention]Rohwedder[/mention] Macht genau das, was ich wollte.
Gestern habe ich auch versucht mit SetTimer es zu realisieren, habe irgendwann aufgegeben.
Auf A_TimeIdle bin ich gar nicht gekommen.
[code]^F1::
AktLang := 0
NachLang := 0
SetTimer, InPutTimer, 3000
InputBox, OutputVar, HotString starter, ,,80,100
Return
InPutTimer:
ControlGetText, MyVar, Edit1, HotString starter
AktLang := StrLen(MyVar)
if (AktLang != NachLang)
{
SetTimer, InPutTimer, On
WinClose , HotString starter
If !WinExist("HotString starter")
SetTimer, InPutTimer, Off
NachLang := StrLen(MyVar)
ToolTip, %AktLang% - %NachLang%
Sleep, 1500
ToolTip
return
#IfWinActive HotString starter
:*:aboutr::
MsgBox, Es wurde aboutr gestartet.
#IfWinActive
Return[/code]