Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 532 fois - Téléchargée 26 fois
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
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.