Verifier l'exitence d'un url

Commenter

Contenu du snippet

Ce permet de vérfier si une url existe bien (donc on vérifie si on recoit un code status 2XX ou 3XX)

Ce code fonctionne meême si l'entête de la page internet n'est pas nickel), grâce à l'option "useUnsafeHeaderParsing" dans le web.config.

Source / Exemple : 


Public Function TestUrl(ByVal URL As String) As Boolean

        
        Dim isPresentHttp As Integer = InStr(UCase(URL), "HTTP://")
        'on ajoute le http pour avoir une url bien formée
        If isPresentHttp <= 0 Then
            URL = "http://" & URL
        End If

        Dim oRequest As HttpWebRequest = Nothing
        Dim oResponse As HttpWebResponse = Nothing

        Try
            'Response.Write("URL : " & URL)
            oRequest = CType(WebRequest.Create(URL), HttpWebRequest)
            oResponse = CType(oRequest.GetResponse, HttpWebResponse)
            Dim statuscode As String = oResponse.StatusCode
            
            'Response.Write("RESPONSE : " & statuscode.Substring(0, 1) & "<br/>")
            

           
            If statuscode.Substring(0, 1).Equals("2") Or statuscode.Substring(0, 1).Equals("3") Then
                Return True
            End If
            Return False

        Catch ex As WebException
            'Response.Write(ex.Message & "<br/>")
            Return False

        End Try
    End Function

Conclusion :


Penser à ajouter les lignes :

<system.net>
<settings>
<httpWebRequest useUnsafeHeaderParsing = "true" />
</settings>
</system.net>

dans le web.config

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (fouedelapoche)