Savoir si le un lien est mort ou pas
RMOINAS
Messages postés
98
Date d'inscription
mardi 3 février 2004
Statut
Membre
Dernière intervention
16 septembre 2006
-
2 juin 2004 à 15:08
gaa179 Messages postés 361 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 12 novembre 2009 - 7 juin 2004 à 08:09
gaa179 Messages postés 361 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 12 novembre 2009 - 7 juin 2004 à 08:09
A voir également:
- "Url de la page, sur votre site, où est affiché le lien vers"
- Master Page - A quoi ca sert ? ✓ - Forum ASP.NET
- Modèle de site internet - Conseils pratiques -PHP
- Exemple de page d'authentification - Conseils pratiques -PHP
- Mettre une variable dans un lien ✓ - Forum Javascript / DHTML
- /Klik.asp?url= - Forum ASP / ASP.NET
3 réponses
gaa179
Messages postés
361
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
12 novembre 2009
2
2 juin 2004 à 15:48
2 juin 2004 à 15:48
Salut,
Voici un exemple pour VB6
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Type QOCINFO
dwSize As Long
dwFlags As Long
dwInSpeed As Long 'in bytes/second
dwOutSpeed As Long 'in bytes/second
End Type
Private Declare Function IsDestinationReachable Lib "SENSAPI.DLL" Alias "IsDestinationReachableA" (ByVal lpszDestination As String, ByRef lpQOCInfo As QOCINFO) As Long
Private Sub Form_Load()
Dim Ret As QOCINFO
Ret.dwSize = Len(Ret)
If IsDestinationReachable("www.allapi.net", Ret) = 0 Then
MsgBox "The destination cannot be reached!"
Else
MsgBox "The destination can be reached!" + vbCrLf + _
"The speed of data coming in from the destination is " + Format$(Ret.dwInSpeed / 1024, "#.0") + " Kb/s," + vbCrLf + _
"and the speed of data sent to the destination is " + Format$(Ret.dwOutSpeed / 1024, "#.0") + " Kb/s."
End If
End Sub
A+
Voici un exemple pour VB6
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Type QOCINFO
dwSize As Long
dwFlags As Long
dwInSpeed As Long 'in bytes/second
dwOutSpeed As Long 'in bytes/second
End Type
Private Declare Function IsDestinationReachable Lib "SENSAPI.DLL" Alias "IsDestinationReachableA" (ByVal lpszDestination As String, ByRef lpQOCInfo As QOCINFO) As Long
Private Sub Form_Load()
Dim Ret As QOCINFO
Ret.dwSize = Len(Ret)
If IsDestinationReachable("www.allapi.net", Ret) = 0 Then
MsgBox "The destination cannot be reached!"
Else
MsgBox "The destination can be reached!" + vbCrLf + _
"The speed of data coming in from the destination is " + Format$(Ret.dwInSpeed / 1024, "#.0") + " Kb/s," + vbCrLf + _
"and the speed of data sent to the destination is " + Format$(Ret.dwOutSpeed / 1024, "#.0") + " Kb/s."
End If
End Sub
A+
RMOINAS
Messages postés
98
Date d'inscription
mardi 3 février 2004
Statut
Membre
Dernière intervention
16 septembre 2006
4 juin 2004 à 18:20
4 juin 2004 à 18:20
J'ai essayé ton code mais pour n'importe quel adresse il me mets "The destination cannot be reached".
J'ai aussi oublié de prciser que je suis derrière un pare-feu donc est-ce que sa gène quelque chose si non pk le code il marche pas avec moi :sad)
J'ai aussi oublié de prciser que je suis derrière un pare-feu donc est-ce que sa gène quelque chose si non pk le code il marche pas avec moi :sad)
gaa179
Messages postés
361
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
12 novembre 2009
2
7 juin 2004 à 08:09
7 juin 2004 à 08:09
Salut,
Ca fonctionne, teste avec www.digi.com ou www.google.fr. Je suis aussi derrière un fire-wall. Mais je pense que si le temps de réponse de l'adresse est trop long, il est considéré comme non répondant.
A+
Ca fonctionne, teste avec www.digi.com ou www.google.fr. Je suis aussi derrière un fire-wall. Mais je pense que si le temps de réponse de l'adresse est trop long, il est considéré comme non répondant.
A+
