Imports System
Imports System.Net
Imports System.IO
Imports System.Windows.Forms

Public Class Test
	Public Shared Sub Main()
	Dim rt As String = ""
	Dim out As String
    	Dim wRequest As WebRequest
    	Dim wResponse As WebResponse
    	Dim SR As StreamReader
    	Dim time As Date = Now


    	Try
        wRequest = WebRequest.Create("https://w...content-available-to-author-only...e.fm")
        wRequest.Timeout = 10000
        wResponse = wRequest.GetResponse
        SR = New StreamReader(wResponse.GetResponseStream)
        rt = SR.ReadToEnd
        SR.Close()
    	
	Catch wex As WebException

        Dim status As WebExceptionStatus = wex.Status

        If status = WebExceptionStatus.Timeout Then
            MessageBox.Show("Could not establish a connection to the selected exchange server.", "Connection Timed Out", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        ElseIf status = WebExceptionStatus.ConnectFailure Then
            MessageBox.Show("Could not establish a connection to the selected exchange server.", "Connection Failed", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        ElseIf status = WebExceptionStatus.ProtocolError Then
            MessageBox.Show("Could not establish a connection to the selected exchange server.", "Connection Protocol Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End If

    End Try

	End Sub
End Class