Tips and Tricks in a world of Mix

Posts tagged ‘StatusCode’

Check URL Availability

Private WebServiceStatusCode As String

Public Function ConnectionAvailable(ByVal strServer As String) As Boolean
Try
Dim reqFP As HttpWebRequest = DirectCast(HttpWebRequest.Create(strServer), HttpWebRequest)

Dim rspFP As HttpWebResponse = DirectCast(reqFP.GetResponse(), HttpWebResponse)
If HttpStatusCode.OK = rspFP.StatusCode Then
' HTTP = 200 - Internet connection available, server online
WebServiceStatusCode = rspFP.StatusCode.ToString()
rspFP.Close()
Return True
Else
' Other status - Server or connection not available
WebServiceStatusCode = rspFP.StatusCode.ToString()
rspFP.Close()

Return (False)
End If
Catch generatedExceptionName As WebException
' Exception - connection not available
WebServiceStatusCode = generatedExceptionName.Message
Return False
End Try
End Function

Advertisements

Tag Cloud

%d bloggers like this: