Как получить перенаправленный URL-адрес в виде строки после запроса

Question

Например, для любой ссылки tinyurl / ajdeijad (это фальшивая) мысль перенаправляет на другой URL

Вот мой код:

    Dim request1 As HttpWebRequest = DirectCast(HttpWebRequest.Create(urlvimeohd), HttpWebRequest)
            request1.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1"
            request1.MaximumAutomaticRedirections = 1
            request1.AllowAutoRedirect = True

Как вы получаете URLответа (он перенаправляет!)

Answer 1

Просто - просто получите ответ от ответа!

http://msdn.microsoft.com/en-us/library/system.net.webresponse.responseuri.aspx

dim myresponse as request1.getresponse()
dim x as string = myresponse.ResponseURI

Answer 2

Попробуйте,

Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://tinyurl/ajdeijad"), HttpWebRequest)
Dim response As HttpWebResponse
Dim resUri As String
response = req.GetResponse
resUri = response.ResponseUri.AbsoluteUri
MsgBox(resUri)

Это вернет перенаправленный URL.

Answer 3

Единственный известный мне способ узнать, на какой URL он перенаправляется, - это сделать запрос и прочитать ответ.

request1.GetResponse().Headers("Location")

К вашему сведению: вы должны проверить Fiddler. Это бесплатное приложение, которое позволит вам визуально проверять запросы и ответы, сделанные вашим браузером. Вы можете скопировать вставить эту ссылку в свой браузер и посмотреть, что сервер ответит. Тогда вы будете знать, какой заголовок нужно проверить для получения необходимой информации.

Надеюсь, это поможет.