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