Как перенаправить URL в качестве строки после запроса

Question

Например, на любой ссылке Tinyurl/Ajdeijad (эта фальшивая), Think перенаправляет на другой 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

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

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

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

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

Answer 3

Попробуй это,

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.