[FUNC] _IFURLExists

[moi]

voici une fonction qui permet de vérifier si une URL existe...

► Afficher le texte

Code : Tout sélectionner

Func _IfURLExists($url)
    $source = BinaryToString(InetRead($url))
    If $source = "" then Return 0
    If $source <> "" then Return 1
EndFunc

la fonction renvoi un si l'URL existe et 0 si elle n'existe pas...

[Tlem]

@moi
Je comprend qu'à 13 ans vous ayez besoin de reconnaissance, mais faire une fonction, juste pour le fait de faire une fonction, n'a aucun intérêt !

Votre fonction est totalement inutile car InetRead() renvoi une erreur en cas d’échec.

Pour l'instant, je n'ai pas encore filtré ce genre de fonction qui n'apporte vraiment rien à qui que ce soit, mais je pense qu'un bon ménage fera du bien au forum.

[moi]

faire une fonction, juste pour le fait de faire une fonction

cette fonction m'a servi, pour moi cette fonction sert à quelle que chose...

[TT22]

Oui, c'est bien mais si l'on n'est pas connecté à internet et que l'adresse existe, il nous dira que non

Sinon, on peut aussi utiliser un Ping :

► Afficher le texte

Code : Tout sélectionner

If Ping("www.google.fr") <> 0 Then
    $Exist = "L'adresse existe !"
ElseIf Ping("www.google.fr") = 0 Then
    $Exist = "L'adresse n'existe pas ou vous n'êtes pas connécté à internet !"
EndIf

MsgBox(64,"Info",$Exist)

[Tlem]

@moi
Cela ne change pas l'inutilité de cette fonction.

[mikell]

If error Then