pdemette
-
25 janv. 2001 à 15:32
cs_felipe99
Messages postés6Date d'inscriptionvendredi 29 avril 2005StatutMembreDernière intervention19 avril 2007
-
16 avril 2007 à 00:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_felipe99
Messages postés6Date d'inscriptionvendredi 29 avril 2005StatutMembreDernière intervention19 avril 2007 16 avril 2007 à 00:44
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.
cs_Multiprise
Messages postés63Date d'inscriptionjeudi 4 décembre 2003StatutMembreDernière intervention23 avril 2013 7 mai 2004 à 21:04
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
presseb
Messages postés2Date d'inscriptionmercredi 10 janvier 2001StatutMembreDernière intervention 1 décembre 2002 1 déc. 2002 à 03:50
au fait presseb=TheSaib
presseb
Messages postés2Date d'inscriptionmercredi 10 janvier 2001StatutMembreDernière intervention 1 décembre 2002 1 déc. 2002 à 03:49
et puis je vous ai mis un ZIP j'ai retrouvé mon mot de passe lol (un an après)
TheSaib
Messages postés2367Date d'inscriptionmardi 17 avril 2001StatutMembreDernière intervention26 décembre 200723 1 déc. 2002 à 02:51
'La liste des erreurs pouvant etre retourné !
11001 Buffer Too Small
11002 Destination Net Unreachable
11003 Destination Host Unreachable
11004 Destination Protocol Unreachable
11005 Destination Port Unreachable
11006 No Resources
11007 Bad Option
11008 Hardware Error
11009 Packet Too Big
11010 Request Timed Out
11011 Bad Request
11012 Bad Route
11013 TimeToLive Expired Transit
11014 TimeToLive Expired Reassembly
11015 Parameter Problem
11016 Source Quench
11017 Option Too Big
11018 Bad Destination
11032 Negotiating IPSEC
11050 General Failure
pokbizou
Messages postés13Date d'inscriptionlundi 6 mai 2002StatutMembreDernière intervention13 novembre 2003 6 mai 2002 à 17:26
peut on changer la taille du ping qui est de 32 octets par défaut?
Si oui , comment faire?
Merci
Pokbizou
lpikachu58
Messages postés351Date d'inscriptionsamedi 2 février 2002StatutMembreDernière intervention 6 mai 20042 2 févr. 2002 à 12:03
Eh les jeunes ce serait pas mal d'utiliser un shell
Tu fabrique un .bat à partir du bloc note dans ton bat tu fais un un ping 192.52.240.229(l'ip tu la passe en variable) et dans vb du fais un shell(tonfichier.bat) ce qui te ramène true ou false
les champs à rajouter dans la Form sont les suivants :
deux textbox :
txIPAddress (saisie de l'adresse IP sous forme xxx.xxx.xxx.xxx)
txtTTL (saisie du Time To Live - mettre 128 au début)
un listbox lbReturn
deux boutons :
btnExit
bntPing
16 avril 2007 à 00:44
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.
7 mai 2004 à 21:04
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
1 déc. 2002 à 03:50
1 déc. 2002 à 03:49
1 déc. 2002 à 02:51
11001 Buffer Too Small
11002 Destination Net Unreachable
11003 Destination Host Unreachable
11004 Destination Protocol Unreachable
11005 Destination Port Unreachable
11006 No Resources
11007 Bad Option
11008 Hardware Error
11009 Packet Too Big
11010 Request Timed Out
11011 Bad Request
11012 Bad Route
11013 TimeToLive Expired Transit
11014 TimeToLive Expired Reassembly
11015 Parameter Problem
11016 Source Quench
11017 Option Too Big
11018 Bad Destination
11032 Negotiating IPSEC
11050 General Failure
6 mai 2002 à 17:26
Si oui , comment faire?
Merci
Pokbizou
2 févr. 2002 à 12:03
Tu fabrique un .bat à partir du bloc note dans ton bat tu fais un un ping 192.52.240.229(l'ip tu la passe en variable) et dans vb du fais un shell(tonfichier.bat) ce qui te ramène true ou false
23 août 2001 à 11:00
ping error 0 ?
quelque soit l'ip (valide bien sur) que je rentre ?
13 août 2001 à 11:55
25 juil. 2001 à 11:58
Comment mettre une Url au lieu d'une IP et si c'est pas possible, comment passer une IP avec un account
ex http://toto:titi@15.128.100.12
4 juin 2001 à 19:03
pOptions.Ttl = Val(txTTL)
Il faut remplacer par
pOptions.Ttl = Val(txtTTL)
16 mai 2001 à 17:51
deux textbox :
txIPAddress (saisie de l'adresse IP sous forme xxx.xxx.xxx.xxx)
txtTTL (saisie du Time To Live - mettre 128 au début)
un listbox lbReturn
deux boutons :
btnExit
bntPing
et voilà...
17 avril 2001 à 18:58
6 mars 2001 à 19:39
30 janv. 2001 à 18:58
Merci
25 janv. 2001 à 17:24
25 janv. 2001 à 15:32
Je teste le PING VB et je vous dis comment ca marche