Hoopa einen Geilen Tag an Alle
Mein Vorhaben
ich bin gerade am basteln eines 0815 Pingers (Pingt die 4 wichtigsten Server und schreibt ein Logfile). Um von jeder Workstation die Verbindung zu testen. Später soll auch noch ein Remote Shutdownprogramm dazukommen um meine Kollegen zu ärgern
Anstatt der Labels sollen für Online grüne icons erscheinen und für Offline rote hab aber keine ahnung wie ich das realisiere.
Woher weis man was für icons es alles in shell32 gibt z.b shell32
Mein Ziel
Die Datei soll immer mit dem aktuellem Datum gespeichert werden.
Kann mir (Möchtegernprogrammierer) jemand verraten wie ich zuerst das Datum dann das ping.log hinbekomme und mir vielleicht noch schreiben ob der Code so okay ist oder viel zu umständlich usw ist.
Ich glaube auch das ich einen Fehler beim Erstellen und Beschreiben der Logfile habe ab Zeile 46
Zeigt mir als kompilierte Exe auf einem anderen rechner einen File Handle fehler.
Herzlichen Dank schon mal
;Include Dateien werden geladen
#include <GUIConstants.au3>
#include <file.au3>
#include <Date.au3>
;Zeigt mir schmutzige Debugging-Infos an
opt("TrayIconDebug", 1)
;Guischriftart wird gesetzt
$font = "Arial Black"
;Hauptfenster wird erstellt (Genial)
GUICreate("Ping some Ass Baby",250,270)
GUISetBkColor (0x8AB7EA)
;Erstellt die Überschriften ("Titel",Links,Höhe,Breite)
$label1 = GUICtrlCreateLabel("Server Status",10,25,200)
GUICtrlSetFont($label1,11,700,$font)
;Erstell die Server-Labels
GUICtrlCreateLabel("Lxmain",11,50,70)
GUICtrlCreateLabel("Ntmain",11,80,70)
GUICtrlCreateLabel("Notesapp",11,110,70)
GUICtrlCreateLabel("Notesmail",11,140,70)
;Erstell die Ergebniss-Labels
$labellx = GUICtrlCreateLabel("?",115,50,50)
$labelnt = GUICtrlCreateLabel("?",115,80,50)
$labelna = GUICtrlCreateLabel("?",115,110,50)
$labelnm = GUICtrlCreateLabel("?",115,140,50)
;Erstell den begehrten Button
$pingdemall = GUICtrlCreateButton ("2", 12,180,40,40,$BS_ICON)
GUICtrlSetImage (-1, "shell32.dll",22)
;Events beim Buttondrücken
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlSetOnEvent($pingdemall, "Pingdem")
;IP Adressen Variablen
$pinglx = Ping("192.168.1.1",250)
$pingnt = Ping("192.168.2.1",250)
$pingna = Ping("192.168.2.2",250)
$pingnm = Ping("192.168.2.3",250)
;Erstellt die Variablen
Global $datei = ("ping " & _NowDate() & ".log")
Global $pinglog = FileExists($datei)
Global $file = FileOpen($datei, 1)
;Funktionen
Func Pingdem()
If $pinglx Then
GUICtrlSetData($labellx,"Online")
Else
GUICtrlSetData($labellx,"Offline")
EndIf
If $pingnt Then
GUICtrlSetData($labelnt,"Online")
Else
GUICtrlSetData($labelnt,"Offline")
EndIf
if $pingna Then
GUICtrlSetData($labelna,"Online")
Else
GUICtrlSetData($labelna,"Offline")
EndIf
If $pingnm Then
GUICtrlSetData($labelnm,"Online")
Else
GUICtrlSetData($labelnm,"Offline")
EndIf
If $pinglog = 0 then
_FileCreate("$datei")
EndIf
;Checkt ob Datei geöffnet ist
If $file = -1 Then
MsgBox(0, "Error", "Schließ das Logfile du Affe.")
EndIf
;Schreibt den Wert in die Log
FileWrite($file, "Gepingt am " & _Now() & @CRLF)
;Schließt die Datei Dirty
;FileClose($file)
EndFunc
Func CLOSEClicked()
Exit
EndFunc
;Zeigt die erotische Gui an
GUISetState(@SW_SHOW)
;Hält die Gui am leben
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
sleep (1)
Wend
Alles anzeigen