Imports System.Net
Imports System.Net.WebRequest
Imports System.Net.WebResponse
#Region " Is Connection Available"
Public Function IsConnectionAvailable() As Boolean
' Returns True if connection is available
Dim objUrl As New System.Uri("http://blakenet.myftp.org/")
' Setup WebRequest
Dim objWebReq As System.Net.WebRequest
objWebReq = System.Net.WebRequest.Create(objUrl)
Dim objResp As System.Net.WebResponse
Try
' Attempt to get response and return True
objResp = objWebReq.GetResponse
objResp.Close()
objWebReq = Nothing
Return True
Catch ex As Exception
' Error, exit and return False
If objResp Is Nothing Then
Else
objResp.Close()
objResp = Nothing
End If
objWebReq = Nothing
Return False
Finally
If Not objResp Is Nothing Then objResp.Close()
If Not objResp Is Nothing Then objResp = Nothing
End Try
End Function
#End Region