- 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
-
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