Programm - Ping

    Brauchbar? 7

    1. Ja (1) 14%
    2. Manchmal (3) 43%
    3. Nein (3) 43%

    Hallo

    Programmname: Ping
    Programmversion: 3.3.6.1--1.1-B

    Diese Update's folgen:
    Diese Änderungen folgen:


    * TraySetIcon

    Programmversion + Update's:


    * Ping _ 3.3.6.1--1.1-B
    - IP Range durchpingen
    - Bitte Warten GUI abgeändert

    Diese Änderungen sind eingeführt:


    * $Variablen verkürzt
    * Icon

    Download's:


    * 3.3.6.1--1.0-0.zip = 30 + "Jetziger Stand"
    * 3.3.6.1--1.1-B.zip = 8 + "Jetziger Stand"

    Script v3.3.6.1--1.1-B
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=ico\Ping.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;Teil 0001 [Einstellungen]
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    Opt ("CaretCoordMode", 1)
    Opt ("ExpandEnvStrings", 0)
    Opt ("ExpandVarStrings", 0)
    Opt ("GUICloseOnESC", 1)
    Opt ("GUICoordMode", 1)
    Opt ("GUIDataSeparatorChar", "|")
    Opt ("GUIOnEventMode", 0)
    Opt ("GUIResizeMode", 0)
    Opt ("GUIEventOptions", 0)
    Opt ("MouseClickDelay", 10)
    Opt ("MouseClickDownDelay", 10)
    Opt ("MouseClickDragDelay", 250)
    Opt ("MouseCoordMode", 1)
    Opt ("MustDeclareVars", 0)
    Opt ("PixelCoordMode", 1)
    Opt ("SendAttachMode", 0)
    Opt ("SendCapslockMode", 1)
    Opt ("SendKeyDelay", 5)
    Opt ("SendKeyDownDelay", 1)
    Opt ("TCPTimeout", 100)
    Opt ("TrayAutoPause", 0)
    Opt ("TrayIconDebug", 1)
    Opt ("TrayIconHide", 0)
    Opt ("TrayMenuMode", 3)
    Opt ("TrayOnEventMode", 0)
    Opt ("WinDetectHiddenText", 0)
    Opt ("WinSearchChildren", 1)
    Opt ("WinTextMatchMode", 1)
    Opt ("WinTitleMatchMode", 1)
    Opt ("WinWaitDelay", 250)
    ;----------------------------------------------------------------------------------------------------
    #include <EditConstants.au3>
    #Include <File.au3>
    #include <GUIConstantsEx.au3>
    #Include <GuiListView.au3>
    #include <ListviewConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    ;#include-once <>
    ;----------------------------------------------------------------------------------------------------
    $Programmname = "Ping"
    $Programmversion = "3.3.6.1--1.1-B"
    $Herstellungsdatum = "21.09.2011"
    $Updatedatum = "28.09.2011"
    $AnzahlVersionen = "2"
    $HerstellerMitwirkende = "Schrotter Christian|Idee/Designer/Programmierer|3.3.6.1--1.1-B,Schrotter Christian|Idee/Designer/Programmierer|3.3.6.1--1.0-0"
    $SupportEmail = "Christian.Schrotter@hotmail.com"
    $AngemeldeterUser = @UserName
    ;----------------------------------------------------------------------------------------------------
    $GUIInformation_ERROR_Dir_0001 = @ScriptDir & "/ERRORs/"
    $GUIInformation_ERROR_Pfad_0001 = $GUIInformation_ERROR_Dir_0001 & "ERROR.ini"
    $GUIInformation_ERROR_IniSection_0001 = "Hersteller, Mitwirkende"
    ;----------------------------------------------------------------------------------------------------
    ;Global
    ;Local
    ;----------------------------------------------------------------------------------------------------
    ;Starteinstellungen [#NoTrayIcon, TraySetIcon]

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

    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;Teil 0002 [Aktion: GUI]
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------

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

    $GUI_0001_GUICreate_0001 = GUICreate ($Programmname & " - " & $Programmversion & "_ Single Ping", 500, 310, -1, -1, 0x00C00000)
    GUICtrlCreateLabel ("Ping-Adresse:", 5, 5, 120, 20)
    GUICtrlCreateLabel ("Ping-Timeout:", 5, 30, 120, 20)
    $GUI_0001_GUICtrlCreateInput_0001 = GUICtrlCreateInput ("", 130, 5, 365, 20, 0x0001)
    $GUI_0001_GUICtrlCreateInput_0002 = GUICtrlCreateInput ("4000", 130, 30, 365, 20, 0x2001)
    $GUI_0001_GUICtrlCreateListView_0001 = GUICtrlCreateListView ("Adresse|Rückgabe|Antwortzeit [MSec.]", 5, 55, 490, 200)
    $GUI_0001_GUICtrlGetHandle_0001 = GUICtrlGetHandle ($GUI_0001_GUICtrlCreateListView_0001)
    _GUICtrlListView_SetColumnWidth ($GUI_0001_GUICtrlGetHandle_0001, 0, 160)
    _GUICtrlListView_SetColumnWidth ($GUI_0001_GUICtrlGetHandle_0001, 1, 150)
    _GUICtrlListView_SetColumnWidth ($GUI_0001_GUICtrlGetHandle_0001, 2, 150)
    $GUI_0001_GUICtrlCreateButton_0001 = GUICtrlCreateButton ("Ping", 5, 260, 300, 20)
    $GUI_0001_GUICtrlCreateButton_0002 = GUICtrlCreateButton ("Range Ping", 310, 260, 185, 20)
    $GUI_0001_GUICtrlCreateButton_0003 = GUICtrlCreateButton ("Exit", 5, 285, 405, 20)
    $GUI_0001_GUICtrlCreateButton_0004 = GUICtrlCreateButton ("Information", 415, 285, 80, 20)
    GUISetState (@SW_SHOW, $GUI_0001_GUICreate_0001)

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

    $GUI_0002_GUICreate_0001 = GUICreate ($Programmname & " - " & $Programmversion & "_ Range Ping", 500, 310, -1, -1, 0x00C00000)
    GUICtrlCreateLabel ("Ping-Adresse (min.):", 5, 5, 120, 20)
    GUICtrlCreateLabel ("Ping-Adresse (max.)", 5, 30, 120, 20)
    GUICtrlCreateLabel ("Ping-Timeout:", 5, 55, 120, 20)
    GUICtrlCreateLabel (".", 210, 5, 15, 20, 0x01)
    GUICtrlCreateLabel (".", 305, 5, 15, 20, 0x01)
    GUICtrlCreateLabel (".", 400, 5, 15, 20, 0x01)
    GUICtrlCreateLabel (".", 210, 30, 15, 20, 0x01)
    GUICtrlCreateLabel (".", 305, 30, 15, 20, 0x01)
    GUICtrlCreateLabel (".", 400, 30, 15, 20, 0x01)
    $GUI_0002_GUICtrlCreateInput_0001 = GUICtrlCreateInput ("", 130, 5, 80, 20, 0x0001)
    $GUI_0002_GUICtrlCreateInput_0002 = GUICtrlCreateInput ("", 225, 5, 80, 20, 0x0001)
    $GUI_0002_GUICtrlCreateInput_0003 = GUICtrlCreateInput ("", 320, 5, 80, 20, 0x0001)
    $GUI_0002_GUICtrlCreateInput_0004 = GUICtrlCreateInput ("", 415, 5, 80, 20, 0x0001)
    $GUI_0002_GUICtrlCreateInput_0005 = GUICtrlCreateInput ("", 130, 30, 80, 20, 0x0001)
    $GUI_0002_GUICtrlCreateInput_0006 = GUICtrlCreateInput ("", 225, 30, 80, 20, 0x0001)
    $GUI_0002_GUICtrlCreateInput_0007 = GUICtrlCreateInput ("", 320, 30, 80, 20, 0x0001)
    $GUI_0002_GUICtrlCreateInput_0008 = GUICtrlCreateInput ("", 415, 30, 80, 20, 0x0001)
    $GUI_0002_GUICtrlCreateInput_0009 = GUICtrlCreateInput ("4000", 130, 55, 365, 20, 0x2001)
    $GUI_0002_GUICtrlCreateListView_0001 = GUICtrlCreateListView ("Adresse|Rückgabe|Antwortzeit [MSec.]", 5, 80, 490, 175)
    $GUI_0002_GUICtrlGetHandle_0001 = GUICtrlGetHandle ($GUI_0002_GUICtrlCreateListView_0001)
    _GUICtrlListView_SetColumnWidth ($GUI_0002_GUICtrlGetHandle_0001, 0, 160)
    _GUICtrlListView_SetColumnWidth ($GUI_0002_GUICtrlGetHandle_0001, 1, 150)
    _GUICtrlListView_SetColumnWidth ($GUI_0002_GUICtrlGetHandle_0001, 2, 150)
    $GUI_0002_GUICtrlCreateButton_0001 = GUICtrlCreateButton ("Durch Pingen", 5, 260, 300, 20)
    $GUI_0002_GUICtrlCreateButton_0002 = GUICtrlCreateButton ("Single Ping", 310, 260, 185, 20)
    $GUI_0002_GUICtrlCreateButton_0003 = GUICtrlCreateButton ("Exit", 5, 285, 405, 20)
    $GUI_0002_GUICtrlCreateButton_0004 = GUICtrlCreateButton ("Information", 415, 285, 80, 20)
    GUISetState (@SW_HIDE, $GUI_0002_GUICreate_0001)

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

    $GUI_0003_GUICreate_0001 = GUICreate ("Information", 600, 200, -1, -1, 0x00C00000)
    GUICtrlCreateLabel ("Angemeldeter USERNAME:", 5, 5, 150, 20)
    GUICtrlCreateLabel ("Programmname:", 5, 25, 150, 20)
    GUICtrlCreateLabel ("Programmversion:", 5, 45, 150, 20)
    GUICtrlCreateLabel ("Herstellungsdatum:", 5, 65, 150, 20)
    GUICtrlCreateLabel ("Updatedatum:", 5, 85, 150, 20)
    GUICtrlCreateLabel ("Anzahl Versionen:", 5, 105, 150, 20)
    GUICtrlCreateLabel ("Support E-Mail:", 5, 125, 150, 20)
    GUICtrlCreateLabel ($AngemeldeterUser, 160, 5, 435, 20)
    GUICtrlCreateLabel ($Programmname, 160, 25, 435, 20)
    GUICtrlCreateLabel ($Programmversion, 160, 45, 435, 20)
    GUICtrlCreateLabel ($HerstellungsDatum, 160, 65, 435, 20)
    GUICtrlCreateLabel ($Updatedatum, 160, 85, 435, 20)
    GUICtrlCreateLabel ($AnzahlVersionen, 160, 105, 435, 20)
    GUICtrlCreateLabel ($SupportEmail, 160, 125, 435, 20)
    $GUI_0003_GUICtrlCreateButton_0001 = GUICtrlCreateButton ("Hersteller, Mitwirkende", 5, 150, 590, 20)
    $GUI_0003_GUICtrlCreateButton_0002 = GUICtrlCreateButton ("Zurück", 5, 175, 292, 20)
    $GUI_0003_GUICtrlCreateButton_0003 = GUICtrlCreateButton ("Beenden", 302, 175, 293, 20)
    GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)

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

    $GUI_0004_GUICreate_0001 = GUICreate ("Information - Hersteller, Mitwirkende", 600, 200, -1, -1, 0x00C00000)
    GUICtrlCreateLabel ("Hersteller, Mitwirkende:", 5, 5, 590, 20, 0x01)
    $GUI_0004_GUICtrlCreateListView_0001 = GUICtrlCreateListView ("Name:|Aktion:|Version:", 5, 25, 590, 145, 0x0004)
    $GUI_0004_GUICtrlGetHandle_0001 = GUICtrlGetHandle ($GUI_0004_GUICtrlCreateListView_0001)
    _GUICtrlListView_SetColumnWidth ($GUI_0004_GUICtrlGetHandle_0001, 0, 200)
    _GUICtrlListView_SetColumnWidth ($GUI_0004_GUICtrlGetHandle_0001, 1, 200)
    _GUICtrlListView_SetColumnWidth ($GUI_0004_GUICtrlGetHandle_0001, 2, 150)
    $GUI_0004_GUICtrlCreateButton_0001 = GUICtrlCreateButton ("Zurück", 5, 175, 292, 20)
    $GUI_0004_GUICtrlCreateButton_0002 = GUICtrlCreateButton ("Beenden", 302, 175, 293, 20)
    $GUI_0004_StringSplit_0001 = StringSplit ($HerstellerMitwirkende, ",")
    If $GUI_0004_StringSplit_0001[0] = 0 Then
    _GUIInformation_Error_0001 ()
    _GUIInformation_Error_0002 ()
    Else
    For $GUI_0004_Anzahl_0001 = 1 To $GUI_0004_StringSplit_0001[0] Step 1
    $GUI_0004_StringSplit_0002 = StringSplit ($GUI_0004_StringSplit_0001[$GUI_0004_Anzahl_0001], "|")
    If $GUI_0004_StringSplit_0002[0] = 3 Then
    GUICtrlCreateListViewItem ($GUI_0004_StringSplit_0001[$GUI_0004_Anzahl_0001], $GUI_0004_GUICtrlCreateListView_0001)
    Else
    _GUIInformation_Error_0001 ()
    _GUIInformation_Error_0002 ()
    EndIf
    Next
    EndIf
    GUISetState (@SW_HIDE, $GUI_0004_GUICreate_0001)

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

    $GUI_0005_GUICreate_0001 = GUICreate ("Bitte Warten ...", 450, 95, -1, -1, 0x00C00000)
    $GUI_0005_GUICtrlCreateLabel_0001 = GUICtrlCreateLabel ("Bitte Warten ...", 5, 5, 440, 70, 0x01)
    $GUI_0005_GUICtrlCreateLabel_0002 = GUICtrlCreateLabel ("0 / 0", 5, 80, 440, 20, 0x0002)
    GUISetBkColor (0x000000, $GUI_0005_GUICreate_0001)
    GUICtrlSetFont ($GUI_0005_GUICtrlCreateLabel_0001, 50)
    GUICtrlSetColor ($GUI_0005_GUICtrlCreateLabel_0001, 0xFF0000)
    GUICtrlSetColor ($GUI_0005_GUICtrlCreateLabel_0002, 0xFFFFFF)
    GUISetState (@SW_HIDE, $GUI_0005_GUICreate_0001)

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

    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;Teil 0003 [Aktion: Programm]
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------

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

    While True
    Switch GUIGetMsg ()
    Case $GUI_0001_GUICtrlCreateButton_0001
    GUISetState (@SW_HIDE, $GUI_0001_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0005_GUICreate_0001)

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

    If GUICtrlRead ($GUI_0001_GUICtrlCreateInput_0001) = "" Or GUICtrlRead ($GUI_0001_GUICtrlCreateInput_0002) = "" Then
    MsgBox (0+16+0+0+262144, "Fehler", "Es wurde bei mindestens einem Feld keinen Wert eingetragen!")
    Else
    $GUICtrlRead_0001 = GUICtrlRead ($GUI_0001_GUICtrlCreateInput_0001)
    $GUICtrlRead_0002 = GUICtrlRead ($GUI_0001_GUICtrlCreateInput_0002)

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

    $Ping_0001 = Ping ($GUICtrlRead_0001, $GUICtrlRead_0002)

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

    If @error = 1 Then
    GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Der Computer ist Offline." & "|" & "-----", $GUI_0001_GUICtrlCreateListView_0001)
    Else
    If @error = 2 Then
    GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Der Computer ist nicht erreichbar." & "|" & "-----", $GUI_0001_GUICtrlCreateListView_0001)
    Else
    If @error = 3 Then
    GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Falsche Adresse." & "|" & "-----", $GUI_0001_GUICtrlCreateListView_0001)
    Else
    If @error = 4 Then
    GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Andere Fehler." & "|" & "-----", $GUI_0001_GUICtrlCreateListView_0001)
    Else
    GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Der Computer ist Online." & "|" & $Ping_0001, $GUI_0001_GUICtrlCreateListView_0001)
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf

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

    GUISetState (@SW_HIDE, $GUI_0005_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0001_GUICreate_0001)

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

    Case $GUI_0001_GUICtrlCreateButton_0002
    GUISetState (@SW_HIDE, $GUI_0001_GUICreate_0001)
    _GUICtrlListView_DeleteAllItems ($GUI_0001_GUICtrlGetHandle_0001)
    _GUICtrlListView_DeleteAllItems ($GUI_0002_GUICtrlGetHandle_0001)
    GUISetState (@SW_SHOW, $GUI_0002_GUICreate_0001)
    While True
    Switch GUIGetMsg ()
    Case $GUI_0002_GUICtrlCreateButton_0001
    GUISetState (@SW_HIDE, $GUI_0002_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0005_GUICreate_0001)

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

    If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0005) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0006) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0007) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0008) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0009) = "" Then
    MsgBox (0+16+0+0+262144, "Fehler", "Es wurde bei mindestens einem Feld keinen Wert eingetragen!")
    Else
    If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0005) Then
    If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0006) Then
    If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0007) Then
    If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004) < GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0008) Then
    $MinMax_Unterschied_0001 = ""
    $MinMax_Unterschied_0001 = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0008) - GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004)
    If $MinMax_Unterschied_0001 = "" Then
    MsgBox (0+16+0+0+262144, "Fehler", "Es gab ein Problem mit dem Ausrechnen!")
    Else
    _GUICtrlListView_DeleteAllItems ($GUI_0002_GUICtrlGetHandle_0001)
    For $Anzahl_0001 = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004) To GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0008) Step 1
    GUICtrlSetData ($GUI_0005_GUICtrlCreateLabel_0002, $Anzahl_0001 - GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004) & " / " & $MinMax_Unterschied_0001)
    $Ping_0002 = Ping (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001, $GUI_0002_GUICtrlCreateInput_0009)

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

    If @error = 1 Then
    GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Der Computer ist Offline." & "|" & "-----", $GUI_0002_GUICtrlCreateListView_0001)
    Else
    If @error = 2 Then
    GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Der Computer ist nicht erreichbar." & "|" & "-----", $GUI_0002_GUICtrlCreateListView_0001)
    Else
    If @error = 3 Then
    GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Falsche Adresse." & "|" & "-----", $GUI_0002_GUICtrlCreateListView_0001)
    Else
    If @error = 4 Then
    GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Andere Fehler." & "|" & "-----", $GUI_0002_GUICtrlCreateListView_0001)
    Else
    GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Der Computer ist Online." & "|" & $Ping_0002, $GUI_0002_GUICtrlCreateListView_0001)
    EndIf
    EndIf
    EndIf
    EndIf
    Next
    $MinMax_Unterschied_0001 = ""
    GUICtrlSetData ($GUI_0005_GUICtrlCreateLabel_0002, "")
    EndIf

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

    Else
    MsgBox (0+16+0+0+262144, "Fehler", "Die Zahl ''zzz'' [xxx.xxx.xxx.zzz] muss bei max. höher sein als min.!")
    EndIf
    Else
    MsgBox (0+16+0+0+262144, "Fehler", "Die Zahlen ''yyy'' [xxx.xxx.yyy.zzz] stimmen bei den 2 IP-Adressen nicht überein!")
    EndIf
    Else
    MsgBox (0+16+0+0+262144, "Fehler", "Die Zahlen ''yyy'' [xxx.yyy.xxx.zzz] stimmen bei den 2 IP-Adressen nicht überein!")
    EndIf
    Else
    MsgBox (0+16+0+0+262144, "Fehler", "Die Zahlen ''yyy'' [yyy.xxx.xxx.zzz] stimmen bei den 2 IP-Adressen nicht überein!")
    EndIf
    EndIf
    GUISetState (@SW_HIDE, $GUI_0005_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0002_GUICreate_0001)

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

    Case $GUI_0002_GUICtrlCreateButton_0002
    ExitLoop

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

    Case $GUI_0002_GUICtrlCreateButton_0003
    _Exit ()

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

    Case $GUI_0002_GUICtrlCreateButton_0004
    GUISetState (@SW_HIDE, $GUI_0002_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0003_GUICreate_0001)
    While True
    Switch GUIGetMsg ()
    Case $GUI_0003_GUICtrlCreateButton_0001
    GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0004_GUICreate_0001)
    While True
    Switch GUIGetMsg ()
    Case $GUI_0004_GUICtrlCreateButton_0001
    ExitLoop

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

    Case $GUI_0004_GUICtrlCreateButton_0002
    _Exit ()

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

    EndSwitch
    WEnd
    GUISetState (@SW_HIDE, $GUI_0004_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0003_GUICreate_0001)

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

    Case $GUI_0003_GUICtrlCreateButton_0002
    ExitLoop

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

    Case $GUI_0003_GUICtrlCreateButton_0003
    _Exit ()
    EndSwitch
    WEnd
    GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0002_GUICreate_0001)

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

    EndSwitch
    WEnd
    GUISetState (@SW_HIDE, $GUI_0002_GUICreate_0001)
    _GUICtrlListView_DeleteAllItems ($GUI_0001_GUICtrlGetHandle_0001)
    _GUICtrlListView_DeleteAllItems ($GUI_0002_GUICtrlGetHandle_0001)
    GUISetState (@SW_SHOW, $GUI_0001_GUICreate_0001)

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

    Case $GUI_0001_GUICtrlCreateButton_0003
    _Exit ()

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

    Case $GUI_0001_GUICtrlCreateButton_0004
    GUISetState (@SW_HIDE, $GUI_0001_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0003_GUICreate_0001)
    While True
    Switch GUIGetMsg ()
    Case $GUI_0003_GUICtrlCreateButton_0001
    GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0004_GUICreate_0001)
    While True
    Switch GUIGetMsg ()
    Case $GUI_0004_GUICtrlCreateButton_0001
    ExitLoop

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

    Case $GUI_0004_GUICtrlCreateButton_0002
    _Exit ()

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

    EndSwitch
    WEnd
    GUISetState (@SW_HIDE, $GUI_0004_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0003_GUICreate_0001)

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

    Case $GUI_0003_GUICtrlCreateButton_0002
    ExitLoop

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

    Case $GUI_0003_GUICtrlCreateButton_0003
    _Exit ()
    EndSwitch
    WEnd
    GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
    GUISetState (@SW_SHOW, $GUI_0001_GUICreate_0001)

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

    EndSwitch
    WEnd

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

    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;Teil 0004 [Aktion: Func]
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------
    ;----------------------------------------------------------------------------------------------------

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

    Func _GUIInformation_Error_0001 ()
    GUICtrlSetData ($GUI_0003_GUICtrlCreateButton_0001, "------ ERROR ------ Hersteller, Mitwirkende ------ ERROR ------")
    GUICtrlSetState ($GUI_0003_GUICtrlCreateButton_0001, $GUI_DISABLE)
    EndFunc

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

    Func _GUIInformation_Error_0002 ()
    $GUIInformation_ERROR_0002__CHECK_0001 = "0"
    $GUIInformation_ERROR_0002__TIME_0001 = @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC
    If FileExists ($GUIInformation_ERROR_Dir_0001) = 0 Then
    DirCreate ($GUIInformation_ERROR_Dir_0001)
    EndIf

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

    If FileExists ($GUIInformation_ERROR_Pfad_0001) = 1 Then
    $ERROR_IniReadSectionNames_0001 = IniReadSectionNames ($GUIInformation_ERROR_Pfad_0001)
    For $GUIInformation_ERROR__Anzahl_0001 = 1 To $ERROR_IniReadSectionNames_0001[0] Step 1
    If $ERROR_IniReadSectionNames_0001[$GUIInformation_ERROR__Anzahl_0001] = $GUIInformation_ERROR_IniSection_0001 Then
    IniWrite ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, $GUIInformation_ERROR_0002__TIME_0001, "ERROR")
    $GUIInformation_ERROR_0002__CHECK_0001 = "1"
    EndIf
    Next
    If $GUIInformation_ERROR_0002__CHECK_0001 = "0" Then
    IniWriteSection ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, "ERROR")
    IniWrite ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, $GUIInformation_ERROR_0002__TIME_0001, "ERROR")
    $GUIInformation_ERROR_0002__CHECK_0001 = "0"
    EndIf
    Else
    _FileCreate ($GUIInformation_ERROR_Pfad_0001)
    IniWriteSection ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, "ERROR")
    IniWrite ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, $GUIInformation_ERROR_0002__TIME_0001, "ERROR")
    EndIf
    $GUIInformation_ERROR_0002__TIME_0001 = "-"
    $GUIInformation_ERROR_0002__CHECK_0001 = "0"
    ShellExecute ($GUIInformation_ERROR_Pfad_0001)
    EndFunc

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

    Func _Exit ()
    $Exit__MsgBox_0001 = MsgBox (1+32+256+0+262144, "Beenden", "Soll das Programm wirklich Beendet werden?")
    If $Exit__MsgBox_0001 = 1 Then
    Exit
    EndIf
    EndFunc

    [/autoit]


    Bitte lasst Meinungen, Ideen, Bugs, etc. hier das ich das ändern kann :).
    LG Christian.Schrotter

    Jep, alles was man wissen sollte ist leer :D

    Gruß Marvin

    Einmal editiert, zuletzt von Protex (22. September 2011 um 15:12)

    jo sry ^^ musste erst freigegeben werden hatte die dateien vergessen uploaden ^^ und dann konnte ich nicht zugreifen bis es freigegeben wurde (und das merkte ich jetzt ^^)

    EDIT:

    so jetzt ^^ ist es oben ^^ *gg*

    Hey, also an sich ganz schoenes Script, was mir zuerst aufgefallen ist sind die Gigantischen Variablennamen xD :D
    aber an sich ist das Script eig relativ nett :P, auf dieser Basis könnte man nun gut weiter aufbauen

    Z.B.

    - IP Range durchpingen ( von 10.30.65.0 - 10.30.65.254) oder auch Netzübergreifend ...
    - Wenn Rechner zu erreichen, ist zb Remote Regestrierung Aktiv wenn ja kann man alles auslesen
    - angemeldeten User
    - installierte Programme
    - usw...
    - Auflösen des PC Namens und auch zurück IP zurück in Namen
    - MAC Adresse >> siehe "ARP"

    mit den und vill noch paar anderen Features wäre das Programm eigentlich ganz gut zu gebrauchen :P

    Gruß Marvin


    alles kein Problem ^^ wann ich wüsste wie ich das machen soll ^^

    * IP Range durchpingen ( von 10.30.65.0 - 10.30.65.254) ist eigentlich kein Problem werd mir das mal anschauen :D ist eig ne schöne Idee ^^

    Frage.. kannst du bitte eine Beschreibung bringen.. wo alles drinnen steht wozu es verwendet wird und was es kann..

    MFG Schnacko

    Also IP Range würde ich sagen erklärt sich von selber jetzt mal ganz banal ohne Subnetze usw..
    die IP's gehen ja meist von 192.168.1.(1- 254) und das kann man ja einfach mit einer For Schleife machen die hochgezählt wird
    zu den anderen Sachen gibt es verschiedene Ansätze, Möglichkeit 1 wäre die SysTerminals von Microsoft mit zu verwenden um genau zu sein das Tool "PSinfo.exe" dieses kleine auf CMD Tool Fragt alles ab was du nur wissen willst, vorrausgesetzt die Remote Regestrierung ist Aktiv :P.
    Bin mir leider nicht sicher in wie weit man Programme usw mit Autoit abfragen kann also ohne Hilfstools aber da gibt es bestimmt auch möglichkeiten die Regestry Remote anzusteuern
    MAC zu IP gibt es einen einfachen Befehl in der CMD für nennt sich "ARP" der gibt dir die MAC zur gewünschten IP (wenn erreichbar) zurück

    Gruß´Marvin

    Zitat von Schnacko

    Frage.. kannst du bitte eine Beschreibung bringen.. wo alles drinnen steht wozu es verwendet wird und was es kann..

    MFG Schnacko

    kennst du im CMD (Eingabeaufforderung) fenster den Befehl Ping dann hat sich das erledigt ^^
    mit dem kannst du kurz gesagt falls du es nicht kennst andere IP adressen anpingen zum schauen ob sie online sind etc.

    Zitat von Protex

    Also IP Range würde ich sagen erklärt sich von selber jetzt mal ganz banal ohne Subnetze usw..
    die IP's gehen ja meist von 192.168.1.(1- 254) und das kann man ja einfach mit einer For Schleife machen die hochgezählt wird
    zu den anderen Sachen gibt es verschiedene Ansätze, Möglichkeit 1 wäre die SysTerminals von Microsoft mit zu verwenden um genau zu sein das Tool "PSinfo.exe" dieses kleine auf CMD Tool Fragt alles ab was du nur wissen willst, vorrausgesetzt die Remote Regestrierung ist Aktiv :P.
    Bin mir leider nicht sicher in wie weit man Programme usw mit Autoit abfragen kann also ohne Hilfstools aber da gibt es bestimmt auch möglichkeiten die Regestry Remote anzusteuern
    MAC zu IP gibt es einen einfachen Befehl in der CMD für nennt sich "ARP" der gibt dir die MAC zur gewünschten IP (wenn erreichbar) zurück

    Gruß´Marvin

    1.) jo das durchpingen ist kein prob ^^ das hätte ich auch so gemacht ^^ (sicher geil in ner großen firma mal eben durch pingen zum schauen wer gerade am pc eingeloggt ist bzw der pc eingeschalten hat etc ^^)
    2.) jo wann er das im cmd fenster rückgibt gibts da ein befehl zum das auslesen :/ wollte da schon mal was machen und hatte probleme :S

    Hallo,
    @Christian.Schrotter zu deiner Frage 2 ( Wie macht man so was?)

    [autoit]

    Global $re = _getDOSOutput('ipconfig /all')

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

    MsgBox(64, 'IPCONFIG / ALL', StringStripWS($re, 7), 20)

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

    Func _getDOSOutput($command)
    Local $text = '', $Pid = Run('"' & @ComSpec & '" /c ' & $command, '', @SW_HIDE, 2 + 4)
    While 1
    $text &= StdoutRead($Pid, False, False)
    If @error Then ExitLoop
    Sleep(10)
    WEnd
    Return $text
    EndFunc ;==>_getDOSOutput

    [/autoit]

    Gruß Marvin

    Zitat von Cheater Dieter

    Ganz OK, dein Programm. Allerdings kannst du das "Bitte warten" Fenster meiner Ansicht nach entfernen, denn ein durchschnittlicher Ping dauert i.d.R. wohl kaum mehr als 100 ms.

    Hallo ja jetzt ist es überflüssig ^^ aber bin gerade dran für 1.1 ein Massenping zu machen und da dauert es natürlich eine weile ^^ da werd ich deswegen das bitte warten fenster da lassen.


    danke Marvin :)
    werd es mir nach dem massenping genauer anschauen :D


    ________________ EDIT __________________ 28.09.2011 ____________________

    So hab jetzt IP Range Durchpingen drin und werde mir heute mal das genauer anschauen :)

    LG Chris

    Einmal editiert, zuletzt von Christian.Schrotter (28. September 2011 um 11:31)

    Hallo

    Neue Version verfügbar "3.3.6.1--1.1-B"
    Neue Funktionen sind oben angeführt im Spoiler "Programmversion + Update's:"

    LG Christian.Schrotter

    Hallo ich habe es mir mal angeschaut aber blick da nicht durch wo ich die ip adresse einfügen müsste :/ unter welchem befehl find ich es in der hilfe oder gibt es dazu ein tut? :)

    okay, schoen habe mir eben dein Script mal angeschaut ist eigentlich ordentlich gelöst worden, aber ich persöhnlich finde die Riesen $Var neben sehr störend und eigentlich auch behindernd bei der Fehlersuche würde gern wissen woher
    du so was hast :D

    aber nun gut, ein kleiner Tipp noch wenn du mehr Feedback haben willst Poste dein Script in einem Autoit Spoiler, die meisten hier im Forum laden keine Script erst herrunter um sie sich anzusehen..

    Gruß Marvin

    Zitat von Protex

    okay, schoen habe mir eben dein Script mal angeschaut ist eigentlich ordentlich gelöst worden, aber ich persöhnlich finde die Riesen $Var neben sehr störend und eigentlich auch behindernd bei der Fehlersuche würde gern wissen woher
    du so was hast :D

    aber nun gut, ein kleiner Tipp noch wenn du mehr Feedback haben willst Poste dein Script in einem Autoit Spoiler, die meisten hier im Forum laden keine Script erst herrunter um sie sich anzusehen..

    Gruß Marvin

    hallo ja hab mir das selbst so gelöst da ich damals bei einem größeren projekt später probleme hatte und so jedes eine eindeutige $variable hat ;)

    ok mach ich danke für den tipp :)


    ------- EDIT --------

    Wegen den großen $Variablen hab die jetzt verkürzt und hatte vergessen zu schreiben mich stören die nicht so bei der fehler suche da ich wann nötig 2 bildschirme zu verfügung habe ^^ d.H. 1920 x 1200 x2 ^^ also fast 4k länge ;)

    lg christian :)

    Einmal editiert, zuletzt von Christian.Schrotter (29. September 2011 um 16:30)