Ping absetzen

1. offizieller Beitrag

    Hallo zusammen,

    wie kann ich eigentlich mit AutoIT einen Ping in bestimmten Zeitabständen auf eine IP-Adresse absetzen?

    Danke für Eure Unterstützung...

    SEIWA

    Hallo Seiwa!

    hoffe, Du hast schon die Hilfen gelesen, mußt das selbst verstehen, sonst nützt das einfach nichts.

    Hier mein Spitzenprodukt dazu namens ROHRFREI (gibt doch so schöne deutsche Wörter für alles).
    Die Mädels haben sich kaputtgelacht, als ein Kunde in der Hotline anruft und sagt: er hat noch ne Frage wegen dem Rohrfrei --)))

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; rohrfrei.au3
    ; Verbindung zeitgesteuert aufhalten
    ;
    ; ; #######RELEASEHISTORIE
    ; 20080314 1.00 GD
    ; ######################

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

    #include <date.au3>
    #include <string.au3>
    #include <file.au3>

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

    $rohrfreiini = @SCRIPTDIR & "\rohrfrei.ini"
    $Version="1.00 14.03.2008 GD"

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

    ; so sieht die rohrfrei.ini aus
    ;[GLOBAL]
    ;Zielip=151.189.21.100
    ;Pingtime=3600

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

    If FileExists($rohrfreiini) then
    $ZielIP=IniRead($rohrfreiini,"Global","ZielIP","NotFound")
    $Pingtime=IniRead($rohrfreiini,"Global","Pingtime","NotFound")
    Else
    MsgBox(16,"Rohrfrei " & $Version,"keine INI-Datei rohrfrei.ini im Verzeichnis " & @Scriptdir ,10)
    exit
    EndIf

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

    if $ZielIP = "NotFound" then
    MsgBox(16,"Rohrfrei " & $Version, "INI-Datei ohne ZielIP",10)
    exit
    EndIf

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

    $i = 0
    While $i <= $Pingtime
    $doit=ping($ZielIP,850)
    if $doit > 0 then
    $message="PING OK"
    else
    $message="NETWORK ERROR"
    EndIf
    sleep(2500)
    TrayTip("clears any tray tip","",0)
    TrayTip("ROHRFREI", $message,5,1)
    sleep(2500)
    TrayTip("clears any tray tip","",0)
    $i = $i + 6
    WEnd

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