ja^^ sowas habe ich programmiert^^
Spoiler anzeigen
#include <String.au3>
#include <GUIConstants.au3>
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <GUIConstantsEx.au3>
#include <windowsconstants.au3>
#include <GUIConstants.au3>
#include <Date.au3>
#include <file.au3>
#include <_LOG.au3>
#include <Inet.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\users\matthias\desktop\battlefront ii global banlist\form1.kxf
$Form1 = GUICreate("", 771, 556, 186, 124)
$Edit1 = GUICtrlCreateEdit("", 336, 0, 433, 553)
GUICtrlSetData(-1, "Edit1")
$Label1 = GUICtrlCreateLabel("Server Aktivierungszeit : ", 8, 488, 121, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Log_Putzen = GUICtrlCreateButton("Log Fenster Putzen", 216, 520, 115, 25, 0)
;GUICtrlSetOnEvent(-1, "Button_3Click")!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$Start = GUICtrlCreateButton("Server Starten", 8, 520, 99, 25, 0)
GUICtrlSetOnEvent(-1, "Button_1Click")
$Stop = GUICtrlCreateButton("Server Abschalten", 112, 520, 99, 25, 0)
GUICtrlSetOnEvent(-1, "Button_2Click")
$Server_status = GUICtrlCreateLabel("Deaktiviert", 88, 8, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Server Status : ", 8, 8, 77, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("-----------------------------------------------------------------", 128, 488, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("C:\Users\Matthias\Desktop\Battlefront II Global Banlist\Server_Data\Bilder\gruen_aus.jpg", 248, 8, 17, 17, 0)
$Pic2 = GUICtrlCreatePic("C:\Users\Matthias\Desktop\Battlefront II Global Banlist\Server_Data\Bilder\rot_an.jpg", 280, 8, 17, 17, 0)
$Label2 = GUICtrlCreateLabel("Datum :", 32, 32, 41, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("-----------------------------------------------------------------", 80, 32, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Uhrzeit : ", 32, 48, 46, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("-----------------------------------------------------------------", 80, 48, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("System IP :", 16, 80, 57, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("-----------------------------------------------------------------", 80, 80, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("Netzwerk IP :", 8, 96, 68, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("-----------------------------------------------------------------", 80, 96, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("Internet IP :", 16, 112, 59, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel("-----------------------------------------------------------------", 80, 112, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("Letzter Ban :", 32, 176, 64, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label15 = GUICtrlCreateLabel("-----------------------------------------------------------------", 104, 176, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label16 = GUICtrlCreateLabel("Gebant von User :", 8, 192, 91, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label17 = GUICtrlCreateLabel("-----------------------------------------------------------------", 104, 192, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label18 = GUICtrlCreateLabel("Grund :", 56, 208, 39, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label19 = GUICtrlCreateLabel("-----------------------------------------------------------------", 104, 208, 199, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label20 = GUICtrlCreateLabel("Deaktiviert", 120, 264, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label21 = GUICtrlCreateLabel("Pings zu : ", 16, 264, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic3 = GUICtrlCreatePic("Server_Data\Bilder\gruen_aus.jpg", 256, 264, 17, 17, 0)
$Pic4 = GUICtrlCreatePic("Server_Data\Bilder\rot_an.jpg", 288, 264, 17, 17, 0)
$Label22 = GUICtrlCreateLabel("Deaktiviert", 120, 288, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label23 = GUICtrlCreateLabel("Pings zu : ", 16, 288, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic5 = GUICtrlCreatePic("Server_Data\Bilder\gruen_aus.jpg", 256, 288, 17, 17, 0)
$Pic6 = GUICtrlCreatePic("Server_Data\Bilder\rot_an.jpg", 288, 288, 17, 17, 0)
$Label24 = GUICtrlCreateLabel("Deaktiviert", 120, 312, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label25 = GUICtrlCreateLabel("Pings zu : ", 16, 312, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic7 = GUICtrlCreatePic("Server_Data\Bilder\gruen_aus.jpg", 256, 312, 17, 17, 0)
$Pic8 = GUICtrlCreatePic("Server_Data\Bilder\rot_an.jpg", 288, 312, 17, 17, 0)
$Label26 = GUICtrlCreateLabel("Deaktiviert", 120, 336, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label27 = GUICtrlCreateLabel("Pings zu : ", 16, 336, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic9 = GUICtrlCreatePic("Server_Data\Bilder\gruen_aus.jpg", 256, 336, 17, 17, 0)
$Pic10 = GUICtrlCreatePic("Server_Data\Bilder\rot_an.jpg", 288, 336, 17, 17, 0)
$Label28 = GUICtrlCreateLabel("Deaktiviert", 120, 360, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label29 = GUICtrlCreateLabel("Pings zu : ", 16, 360, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic11 = GUICtrlCreatePic("Server_Data\Bilder\gruen_aus.jpg", 256, 360, 17, 17, 0)
$Pic12 = GUICtrlCreatePic("Server_Data\Bilder\rot_an.jpg", 288, 360, 17, 17, 0)
$Label30 = GUICtrlCreateLabel("Deaktiviert", 120, 384, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label31 = GUICtrlCreateLabel("Pings zu : ", 16, 384, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic13 = GUICtrlCreatePic("Server_Data\Bilder\gruen_aus.jpg", 256, 384, 17, 17, 0)
$Pic14 = GUICtrlCreatePic("Server_Data\Bilder\rot_an.jpg", 288, 384, 17, 17, 0)
$Label32 = GUICtrlCreateLabel("Deaktiviert", 120, 408, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label33 = GUICtrlCreateLabel("Pings zu : ", 16, 408, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic15 = GUICtrlCreatePic("Server_Data\Bilder\gruen_aus.jpg", 256, 408, 17, 17, 0)
$Pic16 = GUICtrlCreatePic("Server_Data\Bilder\rot_an.jpg", 288, 408, 17, 17, 0)
$Label34 = GUICtrlCreateLabel("Deaktiviert", 120, 432, 55, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label35 = GUICtrlCreateLabel("Pings zu : ", 16, 432, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Pic17 = GUICtrlCreatePic("Server_Data\Bilder\gruen_aus.jpg", 256, 432, 17, 17, 0)
$Pic18 = GUICtrlCreatePic("Server_Data\Bilder\rot_an.jpg", 288, 432, 17, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibEnable("Timer",1000)
[/autoit] [autoit][/autoit] [autoit]Global $Start_Server = False
Global $Stop_Server = False
Global $Start_Gesamt_Timer = "0"
Global $Day = "0"
Global $Hour, $Mins, $Secs, $sTime, $Time ,$Systemadresse ,$Uhrzeit ,$Datum
Global $Inet_IP_Aktual = 1
Func Button_1Click()
$Start_Server = True
EndFunc
Func Button_2Click()
$Stop_Server = True
EndFunc
While 1
If $Start_Server = True Then
Global $timer = TimerInit()
GUICtrlSetImage ( $Pic1,"Server_Data\Bilder\gruen_an.jpg")
GUICtrlSetData ( $Server_status, "Aktiviert")
GUICtrlSetImage ( $Pic2,"Server_Data\Bilder\rot_aus.jpg")
$Start_Gesamt_Timer = "1"
$Start_Server = False
EndIf
If $Stop_Server = True Then
GUICtrlSetImage ( $Pic1,"Server_Data\Bilder\gruen_aus.jpg")
GUICtrlSetData ( $Server_status, "Deaktiviert")
GUICtrlSetImage ( $Pic2,"Server_Data\Bilder\rot_an.jpg")
$Start_Gesamt_Timer = "0"
$Stop_Server = False
EndIf
WEnd
; --------------------------Timer()-----------------------------------
Func Timer()
$1 = ("1")
If $Start_Gesamt_Timer = $1 Then
_TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs )
If $Hour = 23 And $Mins = 59 and $Secs = 59 Then
$Day = $Day + 1
EndIf
If $Day >= 1 Then
$Hour = $Hour - (24*$Day)
EndIf
Local $sTime = $Time ; save current time to be able to test and avoid flicker..
$Time = StringFormat("%s Tage. %01i Std. %01i Min. %01i Sek.",$Day, $Hour, $Mins, $Secs)
If $sTime <> $Time then ControlSetText($Form1, "", $Label4 , $Time)
Else
$Day = "0"
EndIf
$Uhrzeit = StringFormat("%s:%s:%s",@HOUR ,@MIN ,@SEC)
ControlSetText($Form1, "", $Label7 , $Uhrzeit)
$Datum = StringFormat("%s.%s.%s",@MDAY ,@MON ,@YEAR)
ControlSetText($Form1, "", $Label5 , $Datum)
$Systemadresse1 = @IPAddress1
ControlSetText($Form1, "", $Label9 , $Systemadresse1)
ControlSetText($Form1, "", $Label11 , $Systemadresse1)
If @SEC = 00 or $Inet_IP_Aktual = 1 Then
$Intenet_IP = _GetIP ( )
$Inet_IP_Aktual = 0
ControlSetText($Form1, "", $Label13 , $Intenet_IP)
EndIf
EndFunc
[/autoit]Also ich will den teimer, die Uhr und den ip aktuallisierer am laufen halt aber ohne so extrem viele resoursen zu fressen gibt es da ne möglichkeit?
Edit Oscar: Spoiler gesetzt!