[..] Ping en continu

[Shade]

Bonjour à tous,

depuis ce matin j'essaye de faire un script qui me permettrai de pinger un PC en continu, tant que le ping répond il ne se passe rien, mais lorsqu'il ne répond plus j'affiche une MsgBox?

Comment puis-je faire?

Merci d'avance de vos réponses.

Cordialement.

[mikell]

Code : Tout sélectionner

While 1
If Ping("adresse", 500) = 0 Then Exitloop
Sleep(100)
Wend
Msgbox(0,"", "pas de ping")

[sylvanie]

Bonjour
Conceptuellement le principe n'est pas vraiment bon, car charger un réseau de pings à outrance n'est pas bon du tout.

Plus humblement temporisez vos ping genre 1 fois par minute (avez vous vraiment besoins d'un temps réel ?)
Je vous conseillerai alors quelque chose comme ceci :

► Afficher le texte

Code : Tout sélectionner

Global $serveur="192.167.66.2"
$tps_idle=1000*60 ;une minute

AdlibRegister("check_srv",$tps_idle)

While 1
    Sleep(int($tps_idle/2)+1)
WEnd


Func check_srv()
    Local $resultat_ping,$cause,$str_cause=""
    $resultat_ping = Ping($serveur)
    $cause=@error
    If Not $resultat_ping Then
        Switch $cause
            Case 1
                $str_cause="Machine hors ligne"
            Case 2
                $str_cause="Machine non atteignable"
            Case 3
                $str_cause="Mauvaise destination"
            Case 4
                $str_cause="Autre erreur"
            Case Else
                $str_cause="Erreur inconnue"
        EndSwitch
        MsgBox(16,"Problème de ping sur "&$serveur,$str_cause,5)
        Return 0
    EndIf
    Return 1
EndFunc
 

[Shade]

J'ai finalement réussi!
Mais j'ai maintenant un autre problème comment lancer un script php depuis autoit?

Merci d'avance de votre aide.

[TommyDDR]

Code : Tout sélectionner

ShellExecute("http://votreSite.com/monphp.php")

?

[Shade]

J'y ai pensé, mais je souhaiterai plutôt utiliser C:\php\PHP5\php.exe C:\script\test.php

[Percival]

Si c'est du local pourquoi ne pas convertir le test.php en test.au3?

[Shade]

Car le script php me sert a envoyer une notification sur mon iPhone. Et je n'ai pas trouvé comment utiliser curl avec autoit!

[mikell]

Code : Tout sélectionner

Run("C:\php\PHP5\php.exe C:\script\test.php") 
Run(@ComSpec & " /c " & "php C:\script\test.php", "", @SW_HIDE)