[..] Ping infini jusqu'à la fin d'un sleep

[TheJungleman]

Bonjour,

J'aimerais effectué un "ping XX.XX.XX.XX -t" pendant 1heure mais je n'arrive pas à définir cela.

C'est pour tester si un router ADSL reste bien connecté

Test effectué à l'extérieur du réseau local

Voici mon code avec un temps de 10 secondes

Code : Tout sélectionner

Run(@ComSpec)
WinWaitActive("C:\WINDOWS\system32\cmd.exe")
sleep(2000)
Send("ping 193.252.53.142 -t >> c:\test.txt")
sleep(2000)
Send("{ENTER}")
sleep(2000)
WinActive("C:\WINDOWS\system32\cmd.exe - ping 193.252.53.142 -t")
Sleep(10000)
Send("^C")
sleep(2000)
Send("exit")
Send("{ENTER}")
 

Qui pourrait m'aider ?

[Iste]

Code : Tout sélectionner

$var = TimerInit
While TimerDiff($var) < 1000*60*60
    If Not Ping('192.168.1.1') Then MsgBox ("","","ca marche plus !")
    Sleep(100)
WEnd

voici une boucle qui sexecutera pendant une heure. Laissez tomber les solution graphique, au3 sait tres bien faire les ping tout seul

[TheJungleman]

Merci pour ta réponse

Mais j'ai besoin que le résultat de mon ping s'enregistre dans un fichier d'où le >> c:\test.txt car c'est un test effectué la nuit !

J'ai besoin d'avoir un fichier log : réponse..... puis à un moment délai d'attente.... puis réponse... ainsi je sais exactement quand cela ne fonctionne plus

Il n'y a donc pas moyen de "Send(^C)" car il n'est pas pris en compte...

[Iste]

Et bah, suffit de modifier ce qu'il y a dans la boucle !
C'est qu'un exemple

pour ecrir tout dans un log,

Code : Tout sélectionner

$var = TimerInit
While TimerDiff($var) < 1000*60*60
    FileWrite("log.txt", Ping('192.168.1.1'))
    Sleep(100)
WEnd

Vous pouvez le rendre plus détaillé. encore une foi, ce n'est qu'un exemple