Imports System.IO
Imports System.Net
Imports System.Text
Public Class MainClass
Shared Sub Main()
Dim url As String = "http://google.com"
Dim ourUri As New Uri(url)
Dim myWebRequest As WebRequest = WebRequest.Create(url)
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
If ourUri.Equals(myWebResponse.ResponseUri) Then
Console.WriteLine("not redirected")
Else
Console.WriteLine("redirected ")
Console.WriteLine(myWebResponse.ResponseUri)
End If
myWebResponse.Close()
End Sub
End Class