在请求后如何将重定向的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

我知道重定向到哪个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。