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

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uTmV0CkltcG9ydHMgU3lzdGVtLklPCkltcG9ydHMgU3lzdGVtLldpbmRvd3MuRm9ybXMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCURpbSBydCBBcyBTdHJpbmcgPSAiIgoJRGltIG91dCBBcyBTdHJpbmcKICAgIAlEaW0gd1JlcXVlc3QgQXMgV2ViUmVxdWVzdAogICAgCURpbSB3UmVzcG9uc2UgQXMgV2ViUmVzcG9uc2UKICAgIAlEaW0gU1IgQXMgU3RyZWFtUmVhZGVyCiAgICAJRGltIHRpbWUgQXMgRGF0ZSA9IE5vdwoKCiAgICAJVHJ5CiAgICAgICAgd1JlcXVlc3QgPSBXZWJSZXF1ZXN0LkNyZWF0ZSgiaHR0cHM6Ly93Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5lLmZtIikKICAgICAgICB3UmVxdWVzdC5UaW1lb3V0ID0gMTAwMDAKICAgICAgICB3UmVzcG9uc2UgPSB3UmVxdWVzdC5HZXRSZXNwb25zZQogICAgICAgIFNSID0gTmV3IFN0cmVhbVJlYWRlcih3UmVzcG9uc2UuR2V0UmVzcG9uc2VTdHJlYW0pCiAgICAgICAgcnQgPSBTUi5SZWFkVG9FbmQKICAgICAgICBTUi5DbG9zZSgpCiAgICAJCglDYXRjaCB3ZXggQXMgV2ViRXhjZXB0aW9uCgogICAgICAgIERpbSBzdGF0dXMgQXMgV2ViRXhjZXB0aW9uU3RhdHVzID0gd2V4LlN0YXR1cwoKICAgICAgICBJZiBzdGF0dXMgPSBXZWJFeGNlcHRpb25TdGF0dXMuVGltZW91dCBUaGVuCiAgICAgICAgICAgIE1lc3NhZ2VCb3guU2hvdygiQ291bGQgbm90IGVzdGFibGlzaCBhIGNvbm5lY3Rpb24gdG8gdGhlIHNlbGVjdGVkIGV4Y2hhbmdlIHNlcnZlci4iLCAiQ29ubmVjdGlvbiBUaW1lZCBPdXQiLCBNZXNzYWdlQm94QnV0dG9ucy5PSywgTWVzc2FnZUJveEljb24uV2FybmluZykKICAgICAgICBFbHNlSWYgc3RhdHVzID0gV2ViRXhjZXB0aW9uU3RhdHVzLkNvbm5lY3RGYWlsdXJlIFRoZW4KICAgICAgICAgICAgTWVzc2FnZUJveC5TaG93KCJDb3VsZCBub3QgZXN0YWJsaXNoIGEgY29ubmVjdGlvbiB0byB0aGUgc2VsZWN0ZWQgZXhjaGFuZ2Ugc2VydmVyLiIsICJDb25uZWN0aW9uIEZhaWxlZCIsIE1lc3NhZ2VCb3hCdXR0b25zLk9LLCBNZXNzYWdlQm94SWNvbi5XYXJuaW5nKQogICAgICAgIEVsc2VJZiBzdGF0dXMgPSBXZWJFeGNlcHRpb25TdGF0dXMuUHJvdG9jb2xFcnJvciBUaGVuCiAgICAgICAgICAgIE1lc3NhZ2VCb3guU2hvdygiQ291bGQgbm90IGVzdGFibGlzaCBhIGNvbm5lY3Rpb24gdG8gdGhlIHNlbGVjdGVkIGV4Y2hhbmdlIHNlcnZlci4iLCAiQ29ubmVjdGlvbiBQcm90b2NvbCBFcnJvciIsIE1lc3NhZ2VCb3hCdXR0b25zLk9LLCBNZXNzYWdlQm94SWNvbi5XYXJuaW5nKQoKICAgICAgICBFbmQgSWYKCiAgICBFbmQgVHJ5CgoJRW5kIFN1YgpFbmQgQ2xhc3M=