_arrayadd

  • Hallo Leute,
    Ich habe ein kleines Problem..
    Und zwar möchte ich das alle 5 sec mein Programm googel anpingt und dann den wert in einer Ini. Speichert.
    Mein eig. problem ist aber das:

    [autoit]

    $iPing = Ping( "Google.de")

    [/autoit]


    So und jetzt soll der den wert erstmal in einen wert speichern.
    -...- und da weis ich nich wie das Funktioniert ich weis das man mit _arrayadd und For Next unf ich glaube auch mit Step arbeiten muss aber ich weis nich wie..
    Ich hoffe ihr könnt mir helfen

    MFG CF*Gaming

  • Hier eine Variante auf die Schnelle erstellt:

    [autoit]


    #include <Array.au3>

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

    Dim $aPing[1]
    $aPing[0] = "www.google.de"

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

    AdlibRegister("Ping_Result", 5000)

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

    HotKeySet("{Esc}", "_Exit")

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

    While Sleep(100)
    WEnd

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

    Func Ping_Result()
    _ArrayAdd($aPing, Ping($aPing[0]))
    EndFunc

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

    Func _Exit()
    AdlibUnRegister("Ping_Result")
    _ArrayDisplay($aPing)
    Exit
    EndFunc

    [/autoit]

    Gruß,
    UEZ

    Auch am Arsch geht ein Weg vorbei...

    ¯\_(ツ)_/¯

  • Hab mal ein Programm vor langer Zeit geschrieben, ist nicht das was in die Richtung Deiner Vorstellung geht, aber vielleicht hilft es Dir trotzdem:

    [autoit]

    #include <Array.au3>

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

    Global $aArray[1] = ['']
    $sInput = InputBox('Anpingseite','Bitte gebe die Seite an die geprüft werden soll!','','',60,140)
    $iErg = 0
    If @error Or $sInput = '' Then Exit
    ConsoleWrite('Betrete For-Schleife' & @CRLF)
    For $i = 1 To 10 Step +1
    $iPing = Ping($sInput)
    If $aArray[0] = '' Then
    $aArray[0] = $iPing
    Else
    _ArrayAdd($aArray,$iPing)
    EndIf
    Next
    For $i = 0 To UBound($aArray) -1 Step +1
    $iErg += $aArray[$i]
    Next
    MsgBox(64,'Ping',$iErg/UBound($aArray))

    [/autoit]