Changement de message pour le ping

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:

---

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:

---

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.

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

Citation:

---

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 ?

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,

Citation:

---

Envoyé par 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"

---

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:

---

1 2 3 4 5 6

if Reply.Status = IPStatus.Success then RTBF.Text = "Status: Valide" else RTBF.Text = "Status: Invalide" end if

---

Citation:

---

Envoyé par kazylax

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.

Ok merci :)

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

Code:

---

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.

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...

Oui je sais
Merci pour ton aide quand meme