Comments by Yatin Bhagat (Top 27 by date)

Dim url As String = Me.txtUrl.Text.Trim()
Dim port As String = Me.txtPort.Text.Trim()

'If the port was provided, then insert it into the url.
If port <> "" Then

'Insert the port into the Url
'https://www.example.com:80/fileToDownload.dat
Dim u As New Uri(url)

'Get the host (example: www.example.com)
Dim host As String = u.Host

'Replace the host with the host:port
url = url.Replace(host, host & ":" & port)

End If


'Create the request
Dim request As HttpWebRequest = _
DirectCast(System.Net.HttpWebRequest.Create(url), HttpWebRequest)

'Set the User Name and Password
request.Credentials = New NetworkCredential(Me.txtUserName.Text.Trim(), Me.txtPassword.Text.Trim())
request.Method = WebRequestMethods.Http.Get



Dim response As HttpWebResponse = Nothing

Try
'Get the response
response = DirectCast(request.GetResponse(), HttpWebResponse)

Catch ex As Exception

MessageBox.Show("An error occurred while attempting to retrieve data from the remote server. " & _
"The following error occurred while attempting to retrieve the data:" & vbCrLf & vbCrLf & _
ex.Message)

End Try


this is my code and it will show messeage 'Remote Server Not responding'