Discussion :

[kazylax]

Bonsoir,

j'ai trouver un petit code qui vient de votre Faq
et je voudrais savoir si c'est possible de changer le message une fois le ping réaliser sans probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        Dim monPing As Net.NetworkInformation.Ping = New Net.NetworkInformation.Ping
        Dim Reply As Net.NetworkInformation.PingReply = monPing.Send("127.0.0.1")
        RTBF.Text = String.Format("Status: {0}", Reply.Status)

il marche tres bien quand le ping est fini il me dit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Status: Success

Comment faire pour changer le "Success" en "Valide" et "Invalide" si l'ip n'est pas disponible.

et comment faire pour avoir le port du serveur ?
exemple faire un ping avec l'ip plus le port "Spécial 27960" pour un serveur jeu

Merci a vous.

[tomlev]

tu connais l'instruction "If" ? c'est à peu près tout ce dont tu as besoin...

et comment faire pour avoir le port du serveur ?
exemple faire un ping avec l'ip plus le port "Spécial 27960" pour un serveur jeu

j'ai rien compris... ça veut dire quoi, avoir le port du serveur ?

[kazylax]

Oui je connais un peut
mais le problème c'est que le message "Success"
n'est pas de moi il se génére automatiquement
je ne sait pas du tout comment le changer vu que c'est pas moi qui le met en place le "Success"


je prend l'exemple en Shell sous Linux avec mon script je tape l'ip et le port
exemple 127.0.0.1:80 ca me donne le ping de l'ip

Non obligatoire pour le port mais pour moi ca me permet de savoir si mon serveur jeu est en ligne grace au port 27960

Merci quand meme
Cordialement,

[tomlev]

Oui je connais un peut
mais le problème c'est que le message "Success"
n'est pas de moi il se génére automatiquement
je ne sait pas du tout comment le changer vu que c'est pas moi qui le met en place le "Success"

Tu n'as pas le contrôle sur le message "Success", mais rien ne t'oblige à l'afficher... tu peux tester reply.Status et afficher ce que tu veux en fonction de la valeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if Reply.Status = IPStatus.Success then
    RTBF.Text = "Status: Valide"
else
    RTBF.Text = "Status: Invalide"
end if

je prend l'exemple en Shell sous Linux avec mon script je tape l'ip et le port
exemple 127.0.0.1:80 ca me donne le ping de l'ip

Non obligatoire pour le port mais pour moi ca me permet de savoir si mon serveur jeu est en ligne grace au port 27960

Merci quand meme
Cordialement,

Un ping n'a rien à voir avec le port mais seulement avec l'adresse. Ping est une fonction ICMP (protocole de la couche réseau), alors que le port est un concept lié à TCP et UDP (protocoles de la couche transport).
Donc ça n'a pas de sens de dire que tu ping le port P de l'adresse A, tu ping juste l'adresse A. Si tu veux vérifier que le port P est ouvert, il faut essayer de s'y connecter, par exemple avec Socket ou TcpClient.

[kazylax]

Ok merci

sinon j'ai un problème avec une déclaration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
        Dim monPing As Net.NetworkInformation.Ping = New Net.NetworkInformation.Ping
        Dim Reply As Net.NetworkInformation.PingReply = monPing.Send("127.0.0.1")
        'Label2.Text = String.Format("{0}", Reply.Status)
 
        Dim IPStatus
        If Reply.Status = IPStatus.Success Then
            Label2.Text = "Status: Valide"
        Else
            Label2.Text = "Status: Invalide"
        End If

IPStatus je déclare avec Dim mais il me dit

Probleme 1: "Option Strict On rejette toute liaison tardive."
Probleme 2: Toutes les déclarations de variable de Option Strict On requièrent une clause 'As'.

si le Sctric est sur On mes déclaration marche pas
je comprend plus.

[tomlev]

euh, tu sais qu'il y a une documentation qui accompagne le framework ? c'est pas juste pour faire joli
IPStatus est une énumération, pas une variable, donc tu ne dois pas le déclarer avec un Dim...