[R] Tester si la connexion est bien activée

[ELGAMALI]

Bonjour
Je cherche un script qui permet de tester dans un 1er temps que l’utilisateur de l’application est déjà connecté sur le net ou pas.
Merci

[Yogui]

Bonjour,

La commande PING me semble répondre à votre question.

Code : Tout sélectionner

$var = Ping("www.AutoItScript.com",250)
If $var Then; also possible:  If @error = 0 Then ...
    Msgbox(0,"Status","Online, Utilisateur connecté au web")
Else
    Msgbox(0,"Status","An error,utilisateur non connecté au web (erreur" & @error&")")
EndIf
 

[ELGAMALI]

Merci pour ta réponse
Ce que je cherche si la connexion est bien activée (ouverte pour recevoir et envoyer messages).
Le script de l'aide ne marche pas??!!

[mikell]

Bah si, le ping est ce qu'il te faut
Moi j'utilise ça en tête de script, mais on peut aussi bien faire une boucle qui va vérifier plusieurs fois avant de quitter

Code : Tout sélectionner

While 1
$ping = Ping("www.google.fr", 500)
If $ping = 0 Then 
    Msgbox(48,"Fatal Error", "  Pas de connexion internet   ")
    Exit
Else
    Exitloop
EndIf
Wend

[ELGAMALI]

Testez le script est vous allez voir que sa ne marche pas

[mikell]

Le script de l'aide te renvoie quel numéro d'erreur ?

[ricky]

Hello,

@mikell : ta méthode ne marche pas à tous les coups. Au boulot, le ping est désactivé, donc avec ta commande dans ton script "Surveillance de réponse sur le forum" celui-ci quittait de suite.

[ELGAMALI]

Bonsoir
Le scripte il avait besoin d'une petite correction pour qu'il marche correctement.

Code : Tout sélectionner

$ping = Ping("www.google.fr", 500)
If $ping = 0 Then Msgbox(48,"Fatal Error", "  Pas de connexion internet   ")
If $ping <> 0 Then Msgbox(48,"Fatal Error", "   connexion internet active ")
    
 

[mikell]

ta méthode ne marche pas à tous les coups. Au boulot, le ping est désactivé, donc avec ta commande dans ton script "Surveillance de réponse sur le forum" celui-ci quittait de suite.

Ah parce que tu fais de la surveillance de forum autoit au boulot toi ?
Tsss Tsss

Valait mieux qu'il quitte de suite, parce que sans ce test, pas de connexion => monstrueux plantage avec blocage d'explorer...
Blague à part s'il existe une autre méthode que le ping pour tester une connexion internet, je suis preneur ^^

@elgamali
Heu, " If $ping = 0 Then ... " + " If $ping <> 0 Then "
c'est la même chose que " If $ping = 0 Then ... Else... "

[Yogui]

Bonsoir
Le scripte il avait besoin d'une petite correction pour qu'il marche correctement.

Code : Tout sélectionner

$ping = Ping("www.google.fr", 500)
If $ping = 0 Then Msgbox(48,"Fatal Error", "  Pas de connexion internet   ")
If $ping <> 0 Then Msgbox(48,"Fatal Error", "   connexion internet active ")
    
 

C'est vrai faire deux conditions là où je n'en écris qu'une c'est de l'amélioration de code...

en fait le plus court est d'écrire

Code : Tout sélectionner

$ping = Ping("www.google.fr", 500)
If $ping = 0 Then exit

Faire deux conditions à la suite du même test (vrai faux)ne sert à rien puisque si l'un est vrai l'autre ne l'est pas.

concernant le ping c'est assez rare de le bloquer en sortie comme quoi ça arrive

[ELGAMALI]

Yogui a écrit : C'est vrai faire deux conditions là où je n'en écris qu'une c'est de l'amélioration de code...
en fait le plus court est d'écrire

Vous avez raison il serait très intéressant d'améliorer le dit script et lui donné une forme plus professionnel.
Merci

[ELGAMALI]

Bonsoir
J'ai tester le scripte suivant:

Code : Tout sélectionner

#NoTrayIcon
$list = ProcessList()
For $j=1 to $list[0][0]
    $i=0
   Next
$ping = Ping("www.google.fr", 500)
If $ping = 0 Then  
    Msgbox(48,"Fatal Error", "La connexion au réseau internent a échoué, soit que votre modem n’est pas installer!, ou soit le niveau du signal du réseau est trop bas!.") 
Exit
EndIf
For $j=1 to $list[0][0]
    $i=0
   Next
If $ping <> 0 Then ;Msgbox(48,"Fatal Error", "   connexion internet active, 10 ")
EndIf   
 

il marche à tous les coups et et avec toutes les connexions qui existent même avec la connexion satellite.
à bien tôt