Récupérer la valeur de sa latence
Adrien2a
Messages postés
90
Date d'inscription
Statut
Membre
Dernière intervention
-
Adrien2a Messages postés 90 Date d'inscription Statut Membre Dernière intervention -
Adrien2a Messages postés 90 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Récupérer la valeur de sa latence
- Recuperer message whatsapp supprimé - Guide
- Impossible de récupérer mon compte gmail - Guide
- Récupérer mon compte facebook désactivé - Guide
- Comment récupérer un compte facebook piraté - Guide
- Comment recuperer une video sur youtube - Guide
2 réponses
Bonjour,
En VB ... ok ... mais .... LEQUEL ? VBA ? VB6 ? VB.NET ? VBScript ??
Et... qu'as tu commencé à écrire comme code ? (montres le nous )
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 )
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 ! :)
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 ! :'(
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 !