; Script Start - Add your code below here
#include <File.au3>
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Status", 345, 89, 193, 125)
$Progress1 = GUICtrlCreateProgress(8, 64, 326, 17)
GUICtrlSetLimit(-1, 4590, 0)
$Label1 = GUICtrlCreateLabel("Bitte Warten - Die IP-Adressen werde überprüft", 8, 40, 327, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Starten!", 8, 8, 331, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            ; Benötigte Textdateien erstellen
            If Not _FileCreate("erfolgreich.txt") Then
            EndIf
            If Not _FileCreate("fehlgeschlagen.txt") Then
            EndIf

            $erfolgreich = FileOpen("erfolgreich.txt", 2)
            $fehlgeschlagen = FileOpen("fehlgeschlagen.txt", 2)
            For $bereich = 1 To 18
                For $adresse = 1 To 255
                    If Ping("10.110."&$bereich&"."&$adresse,2) Then
                        FileWriteLine($erfolgreich, "Online: 10.110."&$bereich&"."&$adresse&@CRLF)
                    Else
                        FileWriteLine($fehlgeschlagen, "Offline: 10.110."&$bereich&"."&$adresse&@CRLF)
                    EndIf
                Next
                GUICtrlSetData($Progress1,$Bereich*5)
            Next
            MsgBox(0, "Erfolgreich!", "Es wurden alle IPs erfolgreich überprüft!")
            ExitLoop
    EndSwitch
WEnd