PING VB SOUS VB (MAJ)
pdemette
-
25 janv. 2001 à 15:32
cs_felipe99 Messages postés 6 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 19 avril 2007 - 16 avril 2007 à 00:44
cs_felipe99 Messages postés 6 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 19 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.
https://codes-sources.commentcamarche.net/source/671-ping-vb-sous-vb-maj
https://codes-sources.commentcamarche.net/source/671-ping-vb-sous-vb-maj
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