Récupérer la valeur de sa latence
Adrien2a
Messages postés
104
Statut
Membre
-
Adrien2a Messages postés 104 Statut Membre -
Adrien2a Messages postés 104 Statut Membre -
Bonjour,
Je suis en train de develepper un petit logiciel en VB qui permettrait d'afficher ma latence avec le serveur de google constamment lorsque je le lance.
J'ai donc créer une petite boucle avec un bouton démarrer, arreter ainsi qu'un rafraichissement toutes les secondes..
Cependant, je n'arrive pas à trouve un morceau de code qui me permettrait de recuperer la valeur de ma latence par exemple :"57" pour 57 ms
Si quelqu'un pourrait m'aider ! Ce serait très gentil !
Merci d'avance !
PS : Ne me sortez pas la commande "ping www.google.com -t" ! Je l'ai assez entendu sur le net !! :p
Je suis en train de develepper un petit logiciel en VB qui permettrait d'afficher ma latence avec le serveur de google constamment lorsque je le lance.
J'ai donc créer une petite boucle avec un bouton démarrer, arreter ainsi qu'un rafraichissement toutes les secondes..
Cependant, je n'arrive pas à trouve un morceau de code qui me permettrait de recuperer la valeur de ma latence par exemple :"57" pour 57 ms
Si quelqu'un pourrait m'aider ! Ce serait très gentil !
Merci d'avance !
PS : Ne me sortez pas la commande "ping www.google.com -t" ! Je l'ai assez entendu sur le net !! :p
2 réponses
-
Bonjour,
Je suis en train de develepper un petit logiciel en VB
En VB ... ok ... mais .... LEQUEL ? VBA ? VB6 ? VB.NET ? VBScript ??
Et... qu'as tu commencé à écrire comme code ? (montres le nous )
-
Voici mon code.
Public Class Cadre
Const GOOGLE = "https://www.google.fr/"
Const RESEAU = "192.168.1.1"
Const BADPING = 100 'BAD PING > 100
Const GOODPING = 50 'GOOD PING < 50
Public ARRETBOUCLE As Boolean
Const INTERVALLE = 1000
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
Private Sub DEMARRER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DEMARRER.Click
ARRETBOUCLE = False
While ARRETBOUCLE = True
Me.Refresh()
'LE CODE QU'IL ME MANQUE
Sleep(INTERVALLE)
COLORREFRESH()
Me.Refresh()
End While
End Sub
Sub COLORREFRESH()
If PINGBOX.Text <= GOODPING Then
PINGBOX.ForeColor = Color.Green
ElseIf PINGBOX.Text > GOODPING And PINGBOX.Text < BADPING Then
PINGBOX.ForeColor = Color.Orange
ElseIf PINGBOX.Text > GOODPING And PINGBOX.Text >= BADPING Then
PINGBOX.ForeColor = Color.Red
End If
End Sub
Private Sub ARRETER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ARRETER.Click
ARRETBOUCLE = True
End Sub
End Class
Mon but est de lancer le ping lorsque j'appuis sur le bouton demarrer et que lorsque j'appuis sur arreter, le programme s'arrete.
D'ailleurs j'ai un deuxiême probleme : c'est comment sortir de ma boucle avec un Bouton car quand la boucle se lance, je peux plus cliquer nul part ! :'(- 1 - Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
2 - Tu ne nous as toujours pas dit dans quel VB tu codes !
-
-
Public Class Cadre Const GOOGLE = "https://www.google.fr/" Const RESEAU = "192.168.1.1" Const BADPING = 100 'BAD PING > 100 Const GOODPING = 50 'GOOD PING < 50 Public ARRETBOUCLE As Boolean Const INTERVALLE = 1000 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) Private Sub DEMARRER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DEMARRER.Click ARRETBOUCLE = False While ARRETBOUCLE = True Me.Refresh() 'LE CODE QU'IL ME MANQUE Sleep(INTERVALLE) COLORREFRESH() Me.Refresh() End While End Sub Sub COLORREFRESH() If PINGBOX.Text <= GOODPING Then PINGBOX.ForeColor = Color.Green ElseIf PINGBOX.Text > GOODPING And PINGBOX.Text < BADPING Then PINGBOX.ForeColor = Color.Orange ElseIf PINGBOX.Text > GOODPING And PINGBOX.Text >= BADPING Then PINGBOX.ForeColor = Color.Red End If End Sub Private Sub ARRETER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ARRETER.Click ARRETBOUCLE = True End Sub End Class
Autant pour moi ... :'(
C'est en VB.NET avec Visual Basic 2010 ! :)
