Hallo
ich arbeite gerade an eine Eieruhr bzw. Teeuhr. Hierzu habe ich ein Programm geschrieben, das ausschließlich im als TrayIcon existiert. Es gibt eine InputBox die die Zeit abfragt. Leider hat dieses Fenster nur das normale Autoit Icon und nicht mein eigenes Icon, dass ich geändert habe.
Ich hoffe Ihr habt eine Idee
Danke
Hier ist mein Bescheidener Quelltext:
C
;#include <Array.au3>
#include <TrayConstants.au3>
#include <GUIConstantsEx.au3>
Global $timerison = 0
Global $Timer = 0;Handle für Timer
Global $TimerTime = 1000;Zeit für Timer
Opt("TrayMenuMode", 3) ; Default tray menu items (Script Paused/Exit) will not be shown.
Local $beepitem = TrayCreateItem("Beep")
TrayCreateItem("");separator
Local $aboutitem = TrayCreateItem("About")
TrayCreateItem("");separator
Local $exititem = TrayCreateItem("Exit")
TraySetIcon("Clock.ico", 0)
TraySetState();Show Tray Icon
TraySetToolTip("Eieruhr")
While 1
Local $msg = TrayGetMsg()
If $timerison = 1 Then
Local $Diff = TimerDiff($Timer);
If $Diff >= $TimerTime Then
Beep(1500, 1000)
$timerison = 0
EndIf
EndIf
Select
Case $msg = 0
ContinueLoop
Case $msg = $beepitem
Local $TimerTime = InputBox("Zeit", "Geben Sie die Zeit ein", "5")
$TimerTime = $TimerTime * 1000
If @error = 0 Then
Local $Timer = TimerInit()
$timerison = 1
EndIf
TrayItemSetState($beepitem, $TRAY_UNCHECKED)
Case $msg = $aboutitem
MsgBox(64, "Eieruhr", "Stellen Sie die Zeit und es piep")
TrayItemSetState($aboutitem, 4)
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
Exit
Alles anzeigen