hab paar kleine änderungen vorgenommen:
1. Opt auf die zwingenden verringert (alle anderen Optionen die du hattest waren default)
2. Bitand bei guicreate eingefügt
3. Quellcode übersichtlicher gemacht (man könnte auch sagen ich hab ihn lesbar gemacht
)
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#Include <Timers.au3>
#include <Date.au3>
#Include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet ("{F5}", "_button")
HotKeySet ("{ESC}", "_exit")
Opt ("TrayAutoPause",0)
Opt ("TrayIconDebug", 0)
Opt ("TrayMenuMode",1)
Opt ("WinSearchChildren", 1)
Global $Secs, $Mins, $Hour, $Time
[/autoit] [autoit][/autoit] [autoit]$gui00001 = GUICreate ("GUI", -1, -1, -1, -1, BitAND($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_SYSMENU, $WS_CAPTION))
GUISetCursor (3)
GUISetBkColor (0x000000)
GUISetState (@SW_SHOW, $gui00001)
_GUICtrlStatusBar_Create($gui00001)
_GUICtrlStatusBar_GetHeight($gui00001)
$iconmenu0001 = TrayCreateItem ("GUI-Fenster schließen")
$iconmenu0002 = TrayCreateItem ("GUI-Fenster öffnen")
TrayCreateItem ("")
$iconmenu0003 = TrayCreateItem ("Information")
$iconmenu0004 = TrayCreateItem ("Information")
$iconmenu0005 = TrayCreateItem ("Information")
$iconmenu0006 = TrayCreateItem ("Information")
TrayCreateItem ("")
$iconmenu0007 = TrayCreateItem ("Info")
TrayCreateItem ("")
$iconmenu0008 = TrayCreateItem ("Pause")
$iconmenu0009 = TrayCreateItem ("Exit")
$0001_0001 = _Timer_SetTimer($gui00001, 1000, "_information0001", -1)
$0002_0001 = _NowCalc ()
Send ("{F5}")
[/autoit] [autoit][/autoit] [autoit]Func _button ()
While True
$tmsg = TrayGetMsg()
Switch $tmsg
Case $iconmenu0001
MsgBox (64, "Fehler", "Befehl nicht verfügbar")
Case $iconmenu0002
MsgBox (64, "Fehler", "Befehl nicht verfügbar")
Case $iconmenu0003
MsgBox (64, "Fehler", "Befehl nicht verfügbar")
Case $iconmenu0004
MsgBox (64, "Fehler", "Befehl nicht verfügbar")
Case $iconmenu0005
MsgBox (64, "Fehler", "Befehl nicht verfügbar")
Case $iconmenu0006
MsgBox (64, "Fehler", "Befehl nicht verfügbar")
Case $iconmenu0007
MsgBox (64, "Fehler", "Befehl nicht verfügbar")
Case $iconmenu0008
MsgBox (64, "Fehler", "Befehl nicht verfügbar")
Case $iconmenu0009
MsgBox (64, "Fehler", _exit ())
EndSwitch
WEnd
EndFunc
Func _information0001 ($hWnd, $Msg, $0001_0001, $dwTime)
GUICtrlCreateLabel ("Uhrzeit:", 4, 4, 40, 13)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor (-1, 0xFFFF00)
GUICtrlCreateLabel (@HOUR & ":" & @MIN & ":" & @SEC, 44, 4, 50, 13)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor (-1, 0xFFFFFF)
GUICtrlCreateLabel ("Datum:", 104, 4, 40, 13)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor (-1, 0xFFFF00)
GUICtrlCreateLabel (@MDAY & "." & @MON & "." & @YEAR, 144, 4, 60, 13)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor (-1, 0xFFFFFF)
GUICtrlCreateLabel ("Jahrestag:", 214, 4, 60, 13)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor (-1, 0xFFFF00)
GUICtrlCreateLabel (@YDAY, 274, 4, 20, 13)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor (-1, 0xFFFFFF)
GUICtrlCreateLabel ("Laufzeit:", 304, 4 , 40, 13)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor (-1, 0xFFFF00)
$0002_0002 = _DateDiff('s', $0002_0001 , _NowCalc ())
$0002_0003 = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", Floor($0002_0002 / 3600), Mod(($0002_0002 / 60),60), $0002_0002 - Floor($0002_0002 / 60) * 60)
GUICtrlCreateLabel ($0002_0003, 350, 4 , 150, 13)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor (-1,0xFFFFFF)
EndFunc
Func _exit ()
Exit
EndFunc