Hilfe zu Server Tool gesucht

seturo1375

Hi zusammen,

bin neu und auch AutoIT Anfänger und wäre happy über etwas Unterstützung.

Ich versuche mir ein kleines Server Überwachungstool zu basteln und verzeifle an der Möglichkeit, den Onlinestatus per grün/rot Symbol und Ping im GUI anzeigen zu lassen.

Zum Skriptstart kein Problem, allerdings wenn ich das per Timer machen will ( jeweils jede Minute ) dann fehlt mir einfach das KnowHow.

Wenn mir jemand unter die Arme greifen könnte mit entsprechender Erläuterung wäre ich superdankbar

Das Skript unten ist nur ein Test, deshalb unvollständig.

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.4.0
Author:

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Video Tool

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Opt('MustDeclareVars', 1)
Global $onlinestat, $Button1, $Button2, $Graphic1, $Label1, $pingAWP,

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Online ()

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=h:\speicher desktop\skripts\video\video_2.kxf
GUICreate("Video Tool", 423, 317, 274, 150)
GUISetOnEvent($GUI_EVENT_CLOSE, "_1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_1Restore")
$Button1 = GUICtrlCreateButton("Netzlaufwerk", 24, 32, 100, 25, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("VNC AWP", 24, 64, 99, 25, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
$Graphic1 = GUICtrlCreateGraphic(104, 8, 17, 17)
GUICtrlSetBkColor(-1, $onlinestat)
$Label1 = GUICtrlCreateLabel("Video AWP", 24, 8, 74, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "Label1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
sleep (100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _1Close()

[/autoit] [autoit][/autoit] [autoit]

EndFunc
Func _1Maximize()

[/autoit] [autoit][/autoit] [autoit]

EndFunc
Func _1Minimize()

[/autoit] [autoit][/autoit] [autoit]

EndFunc
Func _1Restore()

[/autoit] [autoit][/autoit] [autoit]

EndFunc
Func Button1Click()

[/autoit] [autoit][/autoit] [autoit]

EndFunc
Func Button2Click()

[/autoit] [autoit][/autoit] [autoit]

EndFunc
Func Graphic1Click()

[/autoit] [autoit][/autoit] [autoit]

EndFunc
Func Label1Click()

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Online ()
$pingAWP = ping ("192.168.1.1")
sleep (100)
if $pingAWP = 0 then
$onlinestat = 0xFF0000; Farbe Rot Online Status

[/autoit] [autoit][/autoit] [autoit]

else

[/autoit] [autoit][/autoit] [autoit]

$onlinestat = 0x00FF00; Farbe Grün Online Status

[/autoit] [autoit][/autoit] [autoit]

EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

name22

Meinst du :

[autoit]

AdlibRegister("Online", 60000)

[/autoit]

? Das würde diese Funktion alle 60000 Millisekunden (1 Minute) aufrufen.

seturo1375

Klasse Tip, wieder was gelernt, aber leider funktioniert es damit auch nicht

Der Anzeige Button in der GUI bleibt dann schwarz, wie in meinen Versuchen zuvor auch... hab ich nen Denkfehler

Setz ich die Funktion an den Anfang vom Skript, passt es , aber halt nur zum Start ...

Seldzar

Hallo,
du musst in deiner Funktion Online() auch wieder den Button aktualisieren mit GUICtrlSetBkColor(-1, $onlinestat).
Gruß[MSIE_newline_end ]

seturo1375

Klasse, vielen Dank

seturo1375

Hallöchen zusammen,

da bin ich wieder

Das Tool ist mittlerweile ganz ordentlich gewachsen und funktioniert auch soweit. Ein paar Fragen hab ich aber trotzdem noch

Wie zu sehen habe ich 6 Server die ich mit der GUI überwachen möchte, 3 oben 3 in der unteren Reihe der GUI. Die Aktualisierung
der Grafiken musste ich mit dem Komplettbefehl GUIctrlCreate ausführen, da es nur mit GUICtrlSetBkColor leider nicht funktioniert hat.

Folgender Fehler:

Wenn das Tool minimiert wird, verdoppelt sich die Online Grün/Rot Anzeige der unteren Reihe in der Größe, nachdem die "OnlineCheck" Funktion per Timer ausgeführt wird.

Leider hab ich keinen blassen Schimmer wieso. Hätte da jemand noch einen Tip für mich wie ich das etwas sauberer hinbekommen würde ?

Desweiteren: Wie kann ich bei "DriveMapAdd ("M:", "\\0.0.0.0.\c", 0, $netbn, $netpw)" die IP per Variable korrekt einfügen ?

Schon mal danke für evtl. Vorschläge ...

PS: Sorry für den langen Code , aber wie kann ich spoilern ?^^

Edit sagt: Danke für Spoiler Hilfe !

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.4.0
Author:

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Video Tool 1.0

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;-----------------Optionen------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Opt('MustDeclareVars', 1)
Global $Button1, $Button2, $Label1, $Label3, $Button3, $Button4, $Label2, $Button5, $Button6, $Label4, $Button7, $Button8;GUI Buttons u. Bezeichnungen
Global $Label5, $Button9, $Button10, $Label6, $Button11, $Button12, $MenuItem1,$MenuItem2, $GUI; GUI Buttons u. Bezeichnungen
Global $Graphic1, $Graphic2, $Graphic3, $Graphic4, $Graphic5, $Graphic6; GUI Online Grafik Grün/Rot
Global $onlinestatAWP, $onlinestatVS1, $onlinestatVS2, $onlinestatVS3, $onlinestatVS4, $onlinestatVS5; Variable Online Status
Global $pingAWP, $pingVS1, $pingVS2, $pingVS3, $pingVS4, $pingVS5; selbsterklärend
Global $pwbox, $GUI

[/autoit] [autoit][/autoit] [autoit]

;-----Vordefinierte Variablen-------------------

[/autoit] [autoit][/autoit] [autoit]

Global $pwlogin = "test", $ipAWP = "192.168.1.101", $ipVS1 = "192.168.1.1", $ipVS2 = "192.168.1.1", $ipVS3 = "192.168.1.1", $ipVS4 = "192.168.1.1", $ipVS5 = "192.168.1.1"
Global $netpw = "test", $netbn = "test"
Global $vncpwAWP = "test", $vncpwVS = "test"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;------------Startparameter---------------------

[/autoit] [autoit][/autoit] [autoit]

OnlineStart ()
AdlibRegister ("OnlineCheck", 10000)

[/autoit] [autoit][/autoit] [autoit]

;---------------GUI---------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=h:\speicher desktop\skripts\video\video_2.kxf
$GUI = GUICreate("Video Tool 1.0", 469, 329, 274, 150)
GUISetOnEvent($GUI_EVENT_CLOSE, "_1Close")
$Button1 = GUICtrlCreateButton("Netzlaufwerk", 24, 48, 116, 25, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("VNC AWP", 24, 80, 115, 25, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
$Graphic1 = GUICtrlCreateGraphic(120, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatAWP)
$Label1 = GUICtrlCreateLabel("Video AWP", 24, 16, 74, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Video Server 1", 176, 16, 93, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Graphic2 = GUICtrlCreateGraphic(272, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS1)
$Button3 = GUICtrlCreateButton("Netzlaufwerk", 176, 48, 116, 25, 0)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button4 = GUICtrlCreateButton("VNC Video Server 1", 176, 80, 115, 25, 0)
GUICtrlSetOnEvent(-1, "Button4Click")
$Label2 = GUICtrlCreateLabel("Video Server 2", 328, 16, 93, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Graphic3 = GUICtrlCreateGraphic(424, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS2)
$Button5 = GUICtrlCreateButton("Netzlaufwerk", 328, 48, 116, 25, 0)
GUICtrlSetOnEvent(-1, "Button5Click")
$Button6 = GUICtrlCreateButton("VNC Video Server 2", 328, 80, 115, 25, 0)
GUICtrlSetOnEvent(-1, "Button6Click")
$Label4 = GUICtrlCreateLabel("Video Server 3", 24, 144, 93, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Graphic4 = GUICtrlCreateGraphic(120, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS3)
$Button7 = GUICtrlCreateButton("Netzlaufwerk", 24, 176, 116, 25, 0)
GUICtrlSetOnEvent(-1, "Button7Click")
$Button8 = GUICtrlCreateButton("VNC Video Server 3", 24, 208, 115, 25, 0)
GUICtrlSetOnEvent(-1, "Button8Click")
$Label5 = GUICtrlCreateLabel("Video Server 4", 176, 144, 93, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Graphic5 = GUICtrlCreateGraphic(272, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS4)
$Button9 = GUICtrlCreateButton("Netzlaufwerk", 176, 176, 116, 25, 0)
GUICtrlSetOnEvent(-1, "Button9Click")
$Button10 = GUICtrlCreateButton("VNC Video Server 4", 176, 208, 115, 25, 0)
GUICtrlSetOnEvent(-1, "Button10Click")
$Label6 = GUICtrlCreateLabel("Video Server 5", 328, 144, 93, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Graphic6 = GUICtrlCreateGraphic(424, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS5)
$Button11 = GUICtrlCreateButton("Netzlaufwerk", 328, 176, 116, 25, 0)
GUICtrlSetOnEvent(-1, "Button11Click")
$Button12 = GUICtrlCreateButton("VNC Video Server 5", 328, 208, 115, 25, 0)
GUICtrlSetOnEvent(-1, "Button12Click")
$MenuItem1 = GUICtrlCreateMenu("&Info")
$MenuItem2 = GUICtrlCreateMenuItem("Über", $MenuItem1)
GUICtrlSetOnEvent(-1, "MenuItem2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

;--------------Login Check--------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

$pwbox = InputBox ("Video Tool", "Bitte geben Sie das Berechtigungs Passwort ein:", "", "*M", 280, 190, 520, 400, 20 )
If $pwbox = $pwlogin Then
sleep (100)
Else
SplashTextOn ("WARNUNG!", "Sie verfügen nicht über die notwendige Berechtigung. Das Programm wird beendet !", 320, 220, -1, -1, 0, "Arial", 22)
sleep (3000)
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

;--------------GUI Schleife--------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

;------------GUI Button Funktionen------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Func _1Close()
DriveMapDel ("L:")
DriveMapDel ("M:")
DriveMapDel ("N:")
DriveMapDel ("O:")
DriveMapDel ("P:")
DriveMapDel ("Q:")
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button1Click(); Netzlaufwerk AWP
DriveMapAdd ("L:", "\\0.0.0.0\d", 0, $netbn, $netpw)
Run ("explorer.exe /root, L:\Video 2010")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button2Click()
Run ("vncviewer.exe")
WinWaitActive ("Connection details","")
send ($ipAWP)
Send ("{ENTER}")
sleep (100)
Send ($vncpwAWP)
Send ("{ENTER}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button3Click(); Netzlaufwerk VS1
DriveMapAdd ("M:", "\\0.0.0.0\c", 0, $netbn, $netpw)
Run ("explorer.exe /root, M:")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button4Click()
Run ("vncviewer.exe")
WinWaitActive ("Connection details","")
send ($ipVS1)
Send ("{ENTER}")
WinWaitActive ("VNC Authentication","")
Send ($vncpwVS)
Send ("{ENTER}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button5Click();Netzlaufwerk VS2
DriveMapAdd ("N:", "\\0.0.0.0\c", 0, $netbn, $netpw)
Run ("explorer.exe /root, N:")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button6Click()
Run ("vncviewer.exe")
WinWaitActive ("Connection details","")
send ($ipVS2)
Send ("{ENTER}")
WinWaitActive ("VNC Authentication","")
Send ($vncpwVS)
Send ("{ENTER}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button7Click();Netzlaufwerk VS3
DriveMapAdd ("O:", "\\0.0.0.0\c", 0, $netbn, $netpw)
Run ("explorer.exe /root, O:")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button8Click()
Run ("vncviewer.exe")
WinWaitActive ("Connection details","")
send ($ipVS3)
Send ("{ENTER}")
WinWaitActive ("VNC Authentication","")
Send ($vncpwVS)
Send ("{ENTER}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button9Click();;Netzlaufwerk VS4
DriveMapAdd ("P:", "\\0.0.0.0\c", 0, $netbn, $netpw)
Run ("explorer.exe /root, P:")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button10Click()
Run ("vncviewer.exe")
WinWaitActive ("Connection details","")
send ($ipVS4)
Send ("{ENTER}")
WinWaitActive ("VNC Authentication","")
Send ($vncpwVS)
Send ("{ENTER}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button11Click();Netzlaufwerk VS5
DriveMapAdd ("Q:", "\\0.0.0.0\c", 0, $netbn, $netpw)
Run ("explorer.exe /root, Q:")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Button12Click()
Run ("vncviewer.exe")
WinWaitActive ("Connection details","")
send ($ipVS4)
Send ("{ENTER}")
WinWaitActive ("VNC Authentication","")
Send ($vncpwVS)
Send ("{ENTER}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func MenuItem2Click()
MsgBox (4096, "Video Tool Info", "blablablablabalalalal",30)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;---Online Funktionen-------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Func OnlineStart ()
TCPStartup ()
ProgressOn("Server Status","Der Online Status wird ermittelt")
ProgressSet(5,"Bitte warten ...","Der Online Status wird ermittelt ...")

[/autoit] [autoit][/autoit] [autoit]

$pingAWP = ping ($ipAWP)
sleep (60)
if $pingAWP = 0 then
$onlinestatAWP = 0xFF0000
$Graphic1 = GUICtrlCreateGraphic(120, 16, 17, 17)
GUICtrlSetBkColor (-1, $onlinestatAWP); Farbe Rot Online Status
else
$onlinestatAWP = 0x00FF00
$Graphic1 = GUICtrlCreateGraphic(120, 16, 17, 17)
GUICtrlSetBkColor (-1, $onlinestatAWP); Farbe Rot Online Status

[/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

ProgressSet(20,"Bitte warten ...","Der Online Status wird ermittelt ...")

[/autoit] [autoit][/autoit] [autoit]

$pingVS1 = ping ($ipVS1)
sleep (60)
if $pingVS1 = 0 then
$onlinestatVS1 = 0xFF0000; Farbe Rot Online Status
$Graphic2 = GUICtrlCreateGraphic (272, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS1)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS1 = 0x00FF00; Farbe Grün Online Status
$Graphic2 = GUICtrlCreateGraphic (272, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS1)
EndIf

[/autoit] [autoit][/autoit] [autoit]

ProgressSet(40,"Bitte warten ...","Der Online Status wird ermittelt ...")

[/autoit] [autoit][/autoit] [autoit]

$pingVS2 = ping ($ipVS2)
sleep (60)
if $pingVS2 = 0 then
$onlinestatVS2 = 0xFF0000; Farbe Rot Online Status
$Graphic3 = GUICtrlCreateGraphic (424, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS2)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS2 = 0x00FF00; Farbe Grün Online Status
$Graphic3 = GUICtrlCreateGraphic (424, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS2)
EndIf

[/autoit] [autoit][/autoit] [autoit]

ProgressSet(60,"Bitte warten ...","Der Online Status wird ermittelt ...")

[/autoit] [autoit][/autoit] [autoit]

$pingVS3 = ping ($ipVS3)
sleep (60)
if $pingVS3 = 0 then
$onlinestatVS3 = 0xFF0000; Farbe Rot Online Status
$Graphic4 = GUICtrlCreateGraphic (120, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS3)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS3 = 0x00FF00; Farbe Grün Online Status
$Graphic4 = GUICtrlCreateGraphic (120, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS3)
EndIf

[/autoit] [autoit][/autoit] [autoit]

ProgressSet(80,"Bitte warten ...","Der Online Status wird ermittelt ...")

[/autoit] [autoit][/autoit] [autoit]

$pingVS4 = ping ($ipVS4)
sleep (60)
if $pingVS4 = 0 then
$onlinestatVS4 = 0xFF0000; Farbe Rot Online Status
$Graphic5 = GUICtrlCreateGraphic (272, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS4)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS4 = 0x00FF00; Farbe Grün Online Status
$Graphic5 = GUICtrlCreateGraphic (272, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS4)
EndIf

[/autoit] [autoit][/autoit] [autoit]

ProgressSet(90,"Bitte warten ...","Der Online Status wird ermittelt ...")

[/autoit] [autoit][/autoit] [autoit]

$pingVS5 = ping ($ipVS5)
sleep (60)
if $pingVS5 = 0 then
$onlinestatVS5 = 0xFF0000; Farbe Rot Online Status
$Graphic6 = GUICtrlCreateGraphic (424, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS5)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS5 = 0x00FF00; Farbe Grün Online Status
$Graphic6 = GUICtrlCreateGraphic (424, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS5)
EndIf

[/autoit] [autoit][/autoit] [autoit]

ProgressSet(100,"Bitte warten ...","Der Online Status wird ermittelt ...")
sleep(2000)
ProgressOff ()
TCPShutdown ()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func OnlineCheck ()
TCPStartup ()

[/autoit] [autoit][/autoit] [autoit]

$pingAWP = ping ($ipAWP)
sleep (60)
if $pingAWP = 0 then
$onlinestatAWP = 0xFF0000
$Graphic1 = GUICtrlCreateGraphic(120, 16, 17, 17)
GUICtrlSetBkColor (-1, $onlinestatAWP); Farbe Rot Online Status
else
$onlinestatAWP = 0x00FF00
$Graphic1 = GUICtrlCreateGraphic(120, 16, 17, 17)
GUICtrlSetBkColor (-1, $onlinestatAWP); Farbe Rot Online Status

[/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

$pingVS1 = ping ($ipVS1)
sleep (60)
if $pingVS1 = 0 then
$onlinestatVS1 = 0xFF0000; Farbe Rot Online Status
$Graphic2 = GUICtrlCreateGraphic (272, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS1)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS1 = 0x00FF00; Farbe Grün Online Status
$Graphic2 = GUICtrlCreateGraphic (272, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS1)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$pingVS2 = ping ($ipVS2)
sleep (60)
if $pingVS2 = 0 then
$onlinestatVS2 = 0xFF0000; Farbe Rot Online Status
$Graphic3 = GUICtrlCreateGraphic (424, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS2)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS2 = 0x00FF00; Farbe Grün Online Status
$Graphic3 = GUICtrlCreateGraphic (424, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS2)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$pingVS3 = ping ($ipVS3)
sleep (60)
if $pingVS3 = 0 then
$onlinestatVS3 = 0xFF0000; Farbe Rot Online Status
$Graphic4 = GUICtrlCreateGraphic (120, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS3)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS3 = 0x00FF00; Farbe Grün Online Status
$Graphic4 = GUICtrlCreateGraphic (120, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS3)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$pingVS4 = ping ($ipVS4)
sleep (60)
if $pingVS4 = 0 then
$onlinestatVS4 = 0xFF0000; Farbe Rot Online Status
$Graphic5 = GUICtrlCreateGraphic (272, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS4)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS4 = 0x00FF00; Farbe Grün Online Status
$Graphic5 = GUICtrlCreateGraphic (272, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS4)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$pingVS5 = ping ($ipVS5)
sleep (60)
if $pingVS5 = 0 then
$onlinestatVS5 = 0xFF0000; Farbe Rot Online Status
$Graphic6 = GUICtrlCreateGraphic (424, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS5)
else

[/autoit] [autoit][/autoit] [autoit]

$onlinestatVS5 = 0x00FF00; Farbe Grün Online Status
$Graphic6 = GUICtrlCreateGraphic (424, 144, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS5)
EndIf

[/autoit] [autoit][/autoit] [autoit]

TCPShutdown ()

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

**Schnitzel**

also zuerst spoilern kannst du mithilfe

Code

[spoiler] [/spoiler]

einfach auf SP klicken

zum problem an sich.
ich will jetz nicht unbedingt deinen code ausführen. aber im überfliegen hab ich gesehn dass du während der laufzeit immer wieder weitere Controls erzeugst.
und das immer und immer wieder.
das is nie gut.
erzeuge die graphicen gemeinsam mit den anderen elementen deiner gui und setzte den status erst dann wenn du sie brauchst.
kannst sie ja anfangs mit guictrlsetstate hiden und erst dann auf show setzten wenn du sie auch brauchst

Jonathan

mal rein interessenhalber: Wieso heißt das Video tool

seturo1375

Zitat von Jonathan

mal rein interessenhalber: Wieso heißt das Video tool

Es soll ne Hilfestellung werden, um 6 Video Server zu überwachen etc, es könnte auch Video Server Tool heißen Wenn es denn mal halbwegs rund läuft kommen auch noch ein
paar weitere Funktionen hinzu, aber erstmal soll das Grundgerüst stabil laufen.

Schnitzel
Danke für den Tip, werd ich mir mal anschauen. Evtl. kannst du das noch bissl näher ausführen ... ?

seturo1375

Nabend

Fehler selbst gefunden, und damit alle was davon haben unten die Beschreibung.

Ich hatte schlicht und ergreifend ein Mega Brett vorm Kopf ... aber wieder was gelernt

Jetzt klappts auch mit dem Nachbar ... äh Skript

Trotzdem danke an die fleißgen Helfer.

Falsch:

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

$Graphic2 = GUICtrlCreateGraphic (272, 16, 17, 17)
GUICtrlSetBkColor(-1, $onlinestatVS1)

[/autoit] [autoit][/autoit] [autoit][/autoit]

Richtig:

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

GUICtrlSetBkColor ($Graphic2, $onlinestatVS1)

[/autoit] [autoit][/autoit] [autoit][/autoit]