Quelques petites remarques :
Avant de faire une opération sur un fichier il est plus propre (comprendre par la c'est mieux), de lui dire comment tu ouvre le fichier (avec la fonction FileOpen)
Après dans ton programme tu as ceci.
Ce qui va littéralement mettre la valeur de ta fonction Pinger() dans ton fichier, normalement $Fichier devrais correspondre a ton FileOpen.
Bref maintenant regardons ce qui ce passe dans ta fonction Pinger.
Ici une boucle infini sa veut dire que tu ne la quitte jamais (a part si tu met la commande ExiteLoop)
Et dans cette boucle tu récupères le ping et si il n'y a pas d'erreur tu l'écris dans un fichier. (Tien tien a l'origine tu l'appelais comment ta fonction? Tu l'utilisais pas dans une fonction qui sert justement à écrire un fichier?).
Si tu veux qu'une fonction sois appeler tout le temps alors que ton code continue de s’exécuter utilise AdlibRegister
Il faut donc que ta fonction Pinger renvoie une valeur qui elle sera écrite.
Ainsi sa fera un truc comme ça
Code : Tout sélectionner
FileWrite($Fichier, Pinger())
Func Pinger()
$taValeurDePing = 2
return $taValeurDePing
EndFunc
Ainsi tu auras 2 écris dans ton fichier
Bref je ne peux pas te donner un code tout fais mais je pense avec ces quelques conseils normalement tu pourrais faire le script final
onjour à tous !
