Sehr CPU-lastiges script und Kinderkrankheiten

Lesmerdino

Hey Leute, ich hab mir mal was gebastelt um server zu überwachen, oder andere user im Netzwerk, mein Probleme sind folgende.

1: Wie bereits angesprochen ist das script jetzt bereis sehr CPU Lastig was im allgemeinen schon nicht so gut ist.

2: Zum anderen wenn ich sleeps einbaue reagieren die Buttons mit der selben verzögerung, hat da Jemand ne idee wie ich dese aus dem Case nehmen kann?

3: Würde ich gern die .bat auslösen indem ich die traceausgabe über ein Autoit Fenster reallisiere.

Am besten wäre es wenn das script alle 10 Sek pingt und dazu nur Statusänderungen in die ini schreibt, aber während dessen der rest der UI normal reagiert.

Ich hoffe es hat jemand erhellende ideen und jetzt mal das script was ich mir bis jetzt gebastelt habe.

Nicht meckern, ich hab schon mitr so einigem herumgespielt zum Beispiel mit Mail, oder Tooltip Benachrichtigungen.

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon\favicon.ico
#AutoIt3Wrapper_Outfile=Client-Monitor.exe
#AutoIt3Wrapper_Res_Description=Online-Monitor
#AutoIt3Wrapper_Res_Fileversion=0.0.3.5
#AutoIt3Wrapper_Res_LegalCopyright=@ 2015 Bla
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Run_Au3Stripper=y
#Au3Stripper_Parameters=/so
#EndRegion
#AutoIt3Wrapper_icon = ""
#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUICtrlPic.au3>
#include <WinAPI.au3>
#include <Date.au3>
Global $www = 0
Global $tka = 0
Global $130 = 0
Global $131 = 0
Global $ht = 0
Global $pt = 0
Global $i = 0
GLobal $red = @ScriptDir & "\icon\rot.jpg"
Global $green = @ScriptDir & "\icon\grün.jpg"
Global $Mailbetreff = "Aufall eines Benötigten Systems"
Global $Mailtext = "test"
Global $Off = "Ausfallzeitpunkt: "
GLobal $time = 2000
Global $killlog = 0
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Onlinemonitor", 110, 181, 1157, 750)
GUISetIcon(@ScriptDir & "\icon\favicon.ico",0)
GUISetBkColor(0x808184)
$Onlinemonitor = GUICtrlCreateLabel("Monitor", 23, 2, 90, 17)
GUICtrlSetFont(-1, 14, 800, 0, "Narkisim")
GUICtrlSetColor(-1, 0xFFFFFF)
$1 = GUICtrlCreateButton("www", 5, 22, 35, 17)
$2 = GUICtrlCreateButton("TKA", 5, 46, 35, 17)
$3 = GUICtrlCreateButton("130", 5, 70, 35, 17)
$4 = GUICtrlCreateButton("131", 5, 94, 35, 17)
$5 = GUICtrlCreateButton("HT", 5, 118, 35, 17)
$6 = GUICtrlCreateButton("PT", 5, 142, 35, 17)
$mail = GUICtrlCreateButton("*", 90,166,20,16)
GUICtrlSetFont(-1, 12, 800, 0, "Wingdings")
$log = GUICtrlCreateButton("Logs", 60,166,30,16)
$BlaBla = GUICtrlCreateLabel("QSC", 2, 167, 42, 25)
GUICtrlSetFont(-1, 14, 800, 0, "Narkisim")
GUICtrlSetColor(-1, 0xFFFFFF)
$AG = GUICtrlCreateLabel("AG", 40, 173, 22, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Narkisim")
GUICtrlSetColor(-1, 0xFFFFFF)
$11 = GUICtrlCreateLabel("ms", 65, 24, 28, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$22 = GUICtrlCreateLabel("ms", 65, 48, 25, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$33 = GUICtrlCreateLabel("ms", 65, 72, 28, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$44 = GUICtrlCreateLabel("ms", 65, 96, 28, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$55 = GUICtrlCreateLabel("ms", 65, 120, 28, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$66 = GUICtrlCreateLabel("ms", 65, 144, 28, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$pic_www = _GUICtrlPic_Create("", 85, 22, 16, 16, BitOR($SS_CENTERIMAGE, $SS_NOTIFY), Default)
$pic_tka = _GUICtrlPic_Create("", 85, 46, 16, 16, BitOR($SS_CENTERIMAGE, $SS_NOTIFY), Default)
$pic_130 = _GUICtrlPic_Create("", 85, 70, 16, 16, BitOR($SS_CENTERIMAGE, $SS_NOTIFY), Default)
$pic_131 = _GUICtrlPic_Create("", 85, 94, 16, 16, BitOR($SS_CENTERIMAGE, $SS_NOTIFY), Default)
$pic_ht = _GUICtrlPic_Create("", 85, 118, 16, 16, BitOR($SS_CENTERIMAGE, $SS_NOTIFY), Default)
$pic_pt = _GUICtrlPic_Create("", 85, 142, 16, 16, BitOR($SS_CENTERIMAGE, $SS_NOTIFY), Default)
$Label1 = GUICtrlCreateLabel($www, 45, 24, 16, 16)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel($tka, 45, 48, 16, 16)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel($130, 45, 72, 16, 16)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel($131, 45, 96, 16, 16)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel($131, 45, 120, 16, 16)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel($131, 45, 144, 16, 16)
GUICtrlSetColor(-1, 0xFFFFFF)
Local $aIni = @ScriptDir & "\Ausfälle.ini"
Local $config = @ScriptDir & "\config.ini"
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $iPID = 0


;~ ##################################################### Abfragen und Buttons ####################################################################


While 1
$msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
ExitLoop
			 Case $msg =$Onlinemonitor
				_monitor ()
			 Case $msg = $1
				_trwww ()
			 Case $msg = $2
				_trtka ()
			 Case $msg = $3
				_tr130 ()
			 Case $msg = $4
				_tr131 ()
			 Case $msg = $5
				_trht ()
			 Case $msg = $6
				_trpt ()
			 Case $msg = $log
				_log ()
			 Case $msg = $mail
				_mail ()
        EndSelect
Switch $i
Case 1


_Ping ()
	GUICtrlSetData ($Label1,$www)
	GUICtrlSetData ($Label2,$tka)
	GUICtrlSetData ($Label3,$130)
	GUICtrlSetData ($Label4,$131)
	GUICtrlSetData ($Label5,$ht)
	GUICtrlSetData ($Label6,$pt)
	$i=0
 Case Else
	$i=$i+1
 EndSwitch


;~ ##################################################### Zustände ####################################################################


If $www  Then
   _GUICtrlPic_SetImage($pic_www, $green)
Else
   _GUICtrlPic_SetImage($pic_www, $red)
	  IniWriteSection($aIni, "Internet", $Off & _Now())
	  MsgBox(4096, "Warnung!!!", "Die Internernetverbindung ist Ausgefallen")
EndIf


If $tka  Then
   _GUICtrlPic_SetImage($pic_tka, $green)
Else
   _GUICtrlPic_SetImage($pic_tka, $red)
	  IniWriteSection($aIni, "Telefonanlage", $Off & _Now())
EndIf


If $130  Then
   _GUICtrlPic_SetImage($pic_130, $green)
Else
   _GUICtrlPic_SetImage($pic_130, $red)
	  IniWriteSection($aIni, "Remote 130", $Off & _Now())
EndIf


If $131  Then
   _GUICtrlPic_SetImage($pic_131, $green)
Else
   _GUICtrlPic_SetImage($pic_131, $red)
	  IniWriteSection($aIni, "Remote131", $Off & _Now())
;~    (_INetMail($Mailadresse_1, "Ausfall der Remote 131", "Mehr infos in ... ")
EndIf


If $ht Then
   _GUICtrlPic_SetImage($pic_ht, $green)
Else
   _GUICtrlPic_SetImage($pic_ht, $red)
	  IniWriteSection($aIni, "Helptool", $Off & _Now())
   EndIf


If $pt Then
   _GUICtrlPic_SetImage($pic_pt, $green)
Else
   _GUICtrlPic_SetImage($pic_pt, $red)
	  IniWriteSection($aIni, "Pausentool", $Off & _Now)
   EndIf


If $killlog Then
   IniDelete ($aIni)
Else
ElseIf


 WEnd
;~ ##################################################### Funktionen ####################################################################
func _Ping ()
Global $www = Ping("8.8.8.8", $time)
Global $tka = Ping("hgw-cic-01.kdwnetwork.com", $time)
Global $130 = Ping("195.158.161.130", $time)
Global $131 = Ping("195.158.161.131", $time)
Global $ht = Ping("192.168.8.201", $time)
Global $pt = Ping("192.168.11.230", $time)
EndFunc


Func IconButton($BItext, $BIleft, $BItop, $BIwidth, $BIheight, $BIconSize, $BIDLL, $BIconNum = -1)
GUICtrlCreateIcon($BIDLL, $BIconNum, $BIleft + 0, $BItop + (($BIheight - $BIconSize) / 3), $BIconSize, $BIconSize)
GUICtrlSetState( -1, $GUI_DISABLE)
$XS_btnx = GUICtrlCreateButton($BItext, $BIleft, $BItop, $BIwidth, $BIheight, $WS_CLIPSIBLINGS)
Return $XS_btnx
EndFunc


Func _monitor ()
   MsgBox(0, 'Info', 'Bei Fragen wenden Sie sich an Danilo Grigo')
EndFunc


Func _trwww ()
   Run("prog\trace www.bat")
EndFunc


Func _trtka ()
   Run("prog\trace tka.bat")
EndFunc


Func _tr130 ()
   Run("prog\trace 130.bat")
EndFunc


Func _tr131 ()
   Run("prog\trace 131.bat")
EndFunc


Func _trht ()
   Run("prog\trace ht.bat")
EndFunc


Func _trpt ()
   Run("prog\trace pt")
EndFunc


Func _log ()
   ShellExecute(@ScriptDir & "\Ausfälle.ini")
EndFunc


Func _mail ()
   ShellExecute("mailto:blabla@bla.de?subject=Anfrage zum Onlinemonitor&body=Fragen? Sorgen? Nöte?")
EndFunc

Alles anzeigen

Ahnungslos

Also ohne dein Script getestet zu haben:

a) Die GuiGetMessage-Schleife sollte immer schnellst möglich ablaufen. Das tut sie durch den Aufruf von _Ping() leider nicht. Schau dir mal den OnEventMode an. Da hast du dann nur noch das Switch mit dem Ping() Aufruf in der Schleife und kannst dort ein kleines Sleep() einfügen.

b) In der Funktion Ping() haben die Global nichts zu suchen. Du definierst die Variablen korrekt am Anfang des Scriptes und solltest sie dann nur noch befüllen. Ein erneutes anlegen ist hier unnötig.

c) Du solltest die ganze If Abfragen mit in die Ping Funktion schieben, so werden sie nicht bei jedem Schleifendurchgang abgefragt, sondern nur bei Änderung. Und bitte keine MessageBox in die Message-Schleife

Lesmerdino

Vielen Dank für die schnelle Antwort.

Werde ich versuchen mal umzusetzen, kann ich das gesammte script an sich auch ohne Case umsetzen?

Sorry, blutiger Anfänger

Ahnungslos

Ja, du kannst dann komplett auf die Case verzichten. Schau dir mal das Beispiel an:
GUICtrlSetOnEvent

Jedem Button wird eine Funktion zugeordnet. (Die Funktionen hast du ja schon.)

In die Schleife mit dem Sleep schreibst du dein Pingaufruf.