PING VB SOUS VB (MAJ)

Signaler
-
Messages postés
6
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
19 avril 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/671-ping-vb-sous-vb-maj

Messages postés
6
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
19 avril 2007

Merci pour ce code ca m'a permis de gagner du temps.
C'est nikel. Juste une petite chose de rien du tout, il y a le code pour quitter mais pas le boutton enfin c'est pas grand chose.
Messages postés
63
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
23 avril 2013

Code Interessant, dommage que la fonction ne retourne pas le nom de l'hote, il est parfois utile de pinguer sur le nom.
Concernant la conversion d'adresse en entier long, il est possible de faire plus simple et plus rapide la fonction Split étant très performante:
'
Function ConvertIPAddressToLong(strAddress As String) As Long
Dim Tableau() As String
'
Tableau = Split(strAddress, ".") 'La fonction Split Renvoie un tableau de base zéro à une dimension contenant le nombre de sous-chaines déterminées par le caractère de séparation (ici le point)
strAddress = "&H" & Format(Hex(Tableau(3)), "00") & _
Format(Hex(Tableau(2)), "00") & _
Format(Hex(Tableau(1)), "00") & _
Format(Hex(Tableau(0)), "00")
ConvertIPAddressToLong = Val(strAddress)
End Function

Idem pour le test de validité de l'adresse IP
Private Function IpValid(IpAdress As String) As Boolean
Dim Tableau() As String
Dim Compteur As Integer
'
On Error Resume Next
Tableau() = Split(Trim(IpAdress), ".")
If UBound(Tableau) = 3 Then
IpValid = True
For Compteur = 0 To 3
If Compteur < 3 And Val(Tableau(Compteur)) <= 255 And Val(Tableau(Compteur)) > -1 Then
IpValid = True
ElseIf Compteur = 3 And Val(Tableau(Compteur)) < 255 And Val(Tableau(Compteur)) > -1 Then
IpValid = True
Else
IpValid = False
Exit For
End If
Next Compteur
Else
IpValid = False
Exit Function
End If
End Function
Messages postés
2
Date d'inscription
mercredi 10 janvier 2001
Statut
Membre
Dernière intervention
1 décembre 2002

au fait presseb=TheSaib
Messages postés
2
Date d'inscription
mercredi 10 janvier 2001
Statut
Membre
Dernière intervention
1 décembre 2002

et puis je vous ai mis un ZIP j'ai retrouvé mon mot de passe lol (un an après)
Afficher les 17 commentaires