Hallo zusammen,
ich suche nach eine Möglichkeit einen Wert zur Laufzeit über das Tray-Menü zu ändern.
In meinem Beispiel habe ich das mit AdlibRegister versucht. Es arbeitet aber leider sehr langsam.
Hat jemand von euch eine Idee wie man das besser lösen kann?
Danke vorab...
Hier mein Beispiel:
[autoit]
#NoTrayIcon
#Include <Constants.au3>
AdlibRegister("MyTrayFnc",150)
Opt("TrayMenuMode",1) ; Standard Traymenüeinträge (Skript pausieren/beenden) werden nicht angezeigt.
[/autoit][autoit][/autoit][autoit]$Schnell = TrayCreateItem("Schnell")
$Langsam = TrayCreateItem("Langsam")
TrayCreateItem("") ; Strich
TrayCreateItem("") ; Strich
$exititem = TrayCreateItem("Beenden")
TraySetState()
$Wait = 5
$Max =50
For $I=1 To $Max
$Result= MsgBox(1,"Test: Durchlauf " & $I & " von " & $Max,"Ich warte " & $Wait & " Sekunden" & @CRLF & "und gehe dann weiter!", $Wait)
if $Result=2 Then ExitLoop
sleep(1000)
Next
MsgBox(0,"Testlauf","Durchlauf beendet.." )
Exit
Func MyTrayFnc()
$msg = TrayGetMsg()
;Beep(500,100)
Select
Case $msg = $Schnell
$Wait -= 2
Beep(700,100)
Case $msg = $Langsam
$Wait += 2
Beep(200,100)
Case $msg = $exititem
Exit
EndSelect
EndFunc