Beiträge von Lesmerdino

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

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

Lesmerdino

oh wow, da hätte ich auch drauf kommen können das als allgemeine variable zu setzen, DANKE.

manchmal hat man eben ein Brett vor dem kopf.

Lesmerdino

sollte an sich so aussehen denke ich.

Code

If FileExists("C:/Interfacesicherung_" & @YEAR & "-" & @MON & "-" & @MDAY"") Then
MsgBox(4096, "", "Ordner besteht bereits.")
Else
DirCreate("C:/Interfacesicherung_" & @YEAR & "-" & @MON & "-" & @MDAY)
EndIf

Lesmerdino

Hallo Leute ich habe mal ein anliegen, es ist klar dass das automatische anlegen von ordnern durchführbar ist, allerdings wollte ich es so schreiben das er vorher schaut ob der ordner existiert, da ich den Ordner mit Datumsvariablen erstellen lasse bekomme ich bei der suche danach immer einen syntaxerror, kann mir da jemand helfen?

Beiträge von Lesmerdino

Sehr CPU-lastiges script und Kinderkrankheiten

Sehr CPU-lastiges script und Kinderkrankheiten

Automatische ordner mit einer kleinen besonderheut

Automatische ordner mit einer kleinen besonderheut

Automatische ordner mit einer kleinen besonderheut