URL Valide
dave
-
17 oct. 2000 à 14:06
cs_maxkweeger Messages postés 41 Date d'inscription dimanche 30 juin 2002 Statut Membre Dernière intervention 6 avril 2010 - 15 août 2002 à 13:14
cs_maxkweeger Messages postés 41 Date d'inscription dimanche 30 juin 2002 Statut Membre Dernière intervention 6 avril 2010 - 15 août 2002 à 13:14
2 réponses
Bonjour,
Je ne peux pas te répondre mais si depuis le 17/10/2000 tu as trouvé des éléments de réponse : je suis intéressée.
Merci d'avance.
Bonne Journée
Je ne peux pas te répondre mais si depuis le 17/10/2000 tu as trouvé des éléments de réponse : je suis intéressée.
Merci d'avance.
Bonne Journée
cs_maxkweeger
Messages postés
41
Date d'inscription
dimanche 30 juin 2002
Statut
Membre
Dernière intervention
6 avril 2010
15 août 2002 à 13:14
15 août 2002 à 13:14
Dans un module tu met ça et quand goodurl contient le caractere "0" c'est que l'adresse n'est pas valide et quand il contient "1" elle est valide mais attention il test http://www.multimania.com par exemple, mais pas http://www.multimania.com/xxx/fichier.php mais c'est un debut :-)
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Public goodurl
Function urlok(ByVal url As String)
Dim hOpen As Long
Dim hOpenUrl As Long
hOpen = InternetOpen("Mozilla/4.0", 0, vbNullString, vbNullString, 0)
hOpenUrl = InternetOpenUrl(hOpen, url, vbNullString, 0, &H80000000, 0)
If hOpenUrl = 0 Then
goodurl = "0"
Else
goodurl = "1"
End If
InternetCloseHandle hOpenUrl
InternetCloseHandle hOpen
End Function
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Public goodurl
Function urlok(ByVal url As String)
Dim hOpen As Long
Dim hOpenUrl As Long
hOpen = InternetOpen("Mozilla/4.0", 0, vbNullString, vbNullString, 0)
hOpenUrl = InternetOpenUrl(hOpen, url, vbNullString, 0, &H80000000, 0)
If hOpenUrl = 0 Then
goodurl = "0"
Else
goodurl = "1"
End If
InternetCloseHandle hOpenUrl
InternetCloseHandle hOpen
End Function
