DÉTERMINER SI UN URL EST VALIDE

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 8 déc. 2003 à 21:55
OverDarck Messages postés 116 Date d'inscription jeudi 12 juillet 2001 Statut Membre Dernière intervention 23 juin 2005 - 20 avril 2004 à 16:36

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/18543-determiner-si-un-url-est-valide

OverDarck Messages postés 116 Date d'inscription jeudi 12 juillet 2001 Statut Membre Dernière intervention 23 juin 2005
20 avril 2004 à 16:36

Hum Hum, fort bien meme si c'est copier/coller sa evite de cherche partout, grace au moteur de recherche a Vbfrance on trouve direct ce que l'on veu, on va direct a l'essenciel, si j'avais cherché sur AllApi, si deja j'y avait penssé, sans connaitre le nom de l'api je pensse que je n'aurai pas trouvé......... donc merci mais a ce propos il me semble que tu as collé le code en double..... hum!

elmmk2004 Messages postés 2 Date d'inscription mercredi 4 février 2004 Statut Membre Dernière intervention 13 mars 2004
13 mars 2004 à 18:47

je trouve rien a dire...copier/coller c pas bien

gabchampagne Messages postés 216 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 5 mai 2004
9 déc. 2003 à 19:01

Ok. voici mon interprétation :
'<
Private Const S_OK = &H0 'Retroune ça si l'URL est OK
Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As String, ByVal dwReserved As Long) As Long 'API utilisée
Public Function URLOk(URL As String) As Boolean 'Retourne TRUE si l'URL est OK
Dim str As String
str = StrConv(URL, vbUnicode) 'L'API prend juste le Unicode
If IsValidURL(0, str, 0) = S_OK Then
URLOk = True 'URL OK
Else
URLOk = False 'URL Invalide
End If
End Function
'>

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
9 déc. 2003 à 13:54

Je trouve dommage de se contenter de faire un copier coller de codes presenrts sur le Net....... On pourrais jouer à ça longtemps !!

surtout si on colle ca deux fois de suite, n'est-ce pas....

Non, vraiment, je trouve pas ça très bien.....

sonoboss Messages postés 178 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 2 octobre 2007
9 déc. 2003 à 10:39

Le fait qu'il ne soit pas de toi n'implique pas forcément de le recracher bettement ;-)

gabchampagne Messages postés 216 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 5 mai 2004
9 déc. 2003 à 04:29

Attention. J'ai spécifié : CE N'EST PAS DE MOI. mais, c bon à savoir

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
8 déc. 2003 à 21:55

dans IsValidURL(ByVal 0&, sURL, 0) le byval 0& ne sert strictement a rien tu peut juste ecrire IsValidURL(0, sURL, 0)

@+

Discussions similaires

Ouvrir une url sur un évenement onclick

Asp.net Passer plusieurs valeurs en paramètre dans une url

passer 2 variable par l'url

cast specifié n'est pas valide

Cryptage d'url d'une page web

Votre réponse

Discussions similaires