Ich habe hier eine Kleine Datumsanzeige für XP user gebastelt ;D
Hier der Source....
Hier der Source....
PHP Code:
hotkeyset("^!<","_Exit")
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
msgbox(0,"Hotkey","Mit STRG Alt und < beendet ihr das Script")
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Kalender", 124, 117, 1218, 20,$WS_POPUP)
$Label1 = GUICtrlCreateLabel(@WDAY, 24, 8, 80, 30)
Wochentag()
guictrlsetdata($Label1,$Wochentag)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel(@mday, 40, 40, 38, 41)
GUICtrlSetFont(-1, 71, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel(@Mon, 8, 88, 93, 20)
Monat()
guictrlsetdata($Label3,$Monatstag&" "&@YEAR)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
guisetbkcolor(0xEA5200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
case $GUI_EVENT_MINIMIZE
GUISetState(@SW_HIDE)
TraySetState(1)
EndSwitch
WEnd
Func Wochentag()
$WDAY = guictrlread($Label1)
if $WDAY = "1" Then global $Wochentag = "Sonntag"
if $WDAY = "2" Then global $Wochentag = "Montag"
if $WDAY = "3" Then global $Wochentag = "Dienstag"
if $WDAY = "4" Then global $Wochentag = " Mittwoch"
if $WDAY = "5" Then global $Wochentag = "Donnerstag"
if $WDAY = "6" Then global $Wochentag = "Freitag"
if $WDAY = "7" Then global $Wochentag = "Samstag"
endfunc
Func Monat()
$MON = guictrlread($Label3)
if $MON = "01" Then global $Monatstag = "Januar"
if $MON = "02" Then global $Monatstag = "Februar"
if $MON = "03" Then global $Monatstag = "März"
if $MON = "04" Then global $Monatstag = "April"
if $MON = "05" Then global $Monatstag = "Mai"
if $MON = "06" Then global $Monatstag = "Juni"
if $MON = "07" Then global $Monatstag = "Juli"
if $MON = "08" Then global $Monatstag = "August"
if $MON = "09" Then global $Monatstag = "September"
if $MON = "10" Then global $Monatstag = "Oktober"
if $MON = "11" Then global $Monatstag = "November"
if $MON = "12" Then global $Monatstag = "Dezember"
endfunc
Func _Exit()
Exit
endfunc