[R] Test de Ping d'un proxy

[yohan8]

Bonjour,
Un programme me fait une liste de plusieurs proxy, mis dans un tableau, et j'aimerais intégré une fonction "test de ping" qui me permettrait de faire un classement de mes proxy du plus rapide au moins rapide.

Autoit permet de faire ce genre de test ?

Yohan

[matwachich]

Oui!
F1 -> Index -> "Ping"
Puis
F1 -> Index -> "_ArraySort"

[yohan8]

Bonsoir,

J'ai fait mes recherche et j'ai quelques questions :

Je ne comprend pas les résultat illogique de cette commande "ping". Je l'est essayé sur mes proxy. Sur certain il me retourne l'erreur "1" [Host offline] alors qu'il fonctionne lorsque je les utilises. Sur d'autre la commande "ping" fonctionne et me retourne une même valeur pour tous les proxy sur la plage de 30 à 70 milliseconde. Ces résultats ne me permet pas de différencier mes proxy.

Résultat des course la commande "ping" ne me permet pas de discerner les proxy qui ne fonctionne plus et encore moins de me faire une liste des proxy du plus ou moins rapide.

Peut être que je n'utilise pas correctement cette commande (j'ai prit l'exemple de script donné)

► Afficher le texte

Code : Tout sélectionner

Local $var = Ping("[color=#008000]IP de mon proxy[/color]", 250)
If $var Then; also possible:  If @error = 0 Then ...
    MsgBox(0, "Status", "Online, roundtrip was:" & $var)
Else
    MsgBox(0, "Status", "An error occured with number: " & @error)
EndIf

Ou qu'il faut que j'utilise une autre commande [...]

Yohan

[matwachich]

Est-ce que cela correspond a vos attentes???

Code : Tout sélectionner

#include <Array.au3>

; List des proxy séparé par des ;
$sListProxy = "192.168.1.2;192.168.1.10;192.168.1.1"

Global $__aProxy[1][2] = [[0, ""]]
$sListProxy = StringSplit($sListProxy, ";")
For $i = 1 To $sListProxy[0]
    ReDim $__aProxy[$__aProxy[0][0] + 2][2]
    $__aProxy[0][0] += 1
    $__aProxy[$__aProxy[0][0]][0] = $sListProxy[$i]
    $__aProxy[$__aProxy[0][0]][1] = 0
Next
;~ _ArrayDisplay($__aProxy, "Le Array plein de Proxy")

; on commence à pinger ...
For $i = 1 To $__aProxy[0][0]
    $__aProxy[$i][1] = Ping($__aProxy[$i][0])
    If @error Then
        Switch @error
            Case 1
                $__aProxy[$i][1] = "Host is offline"
            Case 2
                $__aProxy[$i][1] = "Host is unreachable"
            Case 3
                $__aProxy[$i][1] = "Bad destination"
            Case 4
                $__aProxy[$i][1] = "Other errors"
        EndSwitch
    EndIf
Next

; on trie le résultat
_ArraySort($__aProxy, 0, 1, 0, 1)
_ArrayDisplay($__aProxy, "La liste des proxy triée")

[GhostLine]

Sinon, tu peux aussi lancer un ping en mode DOS en redirigeant le résultat de ladite commande dans un fichier texte et récupérer les valeurs qui t'intéressent (ping 192.168.0.1 > c:\toto.txt puis une petite série de filereadline sur le fichier en question).

[Tlem]

@GhostLine
Il n'y à aucun avantage à faire cela (en dehors de rallonger le code).

[GhostLine]

Tlem> je propose ceci dans la mesure où il semble avoir des résultats différents entre un ping sous DOS et la commande ping sous AutoIt (au désavantage d'AutoIt) : ceci dit, je suis d'accord sur le point que dans l'absolu, tu as tout à fait raison

[Tlem]

@GhostLine
yohan8 ne parle en aucune manière de la commande ping sous DOS.

Sur certain il me retourne l'erreur "1" [Host offline] alors qu'il fonctionne lorsque je les utilises.

Sous entend que le ping de AutoIt lui retourne l'erreur 1 du offline, alors que le proxy fonctionne car il l'utilise avec sa/ses machine(s).

@yohan8
Certaines machines/OS/logiciels réseau sont configurés pour ne pas répondre aux pings (afin d'éviter une recherche de proxy par exemple ).

[yohan8]

@Tlem
Okééé, vous venez de me résoudre une énigme fatale

@matwachich
Pouvez-vous me commenter cette boucle, je m'y perd un peu dans ses tableau

Code : Tout sélectionner

For $i = 1 To $sListProxy[0]
    ReDim $__aProxy[$__aProxy[0][0] + 2][2]
    $__aProxy[0][0] += 1
    $__aProxy[$__aProxy[0][0]][0] = $sListProxy[$i]
    $__aProxy[$__aProxy[0][0]][1] = 0
Next

[GhostLine]

Tlem>Au temps pour moi, il faut que j'arrête la drogue (ou que je commence). Mes confuses!