So werden Sie nach Anfrage als Zeichenfolge umgeleitet

Question

Zum Beispiel auf einem Link Tinyurl/Ajdeijad (dieser ist falsch), leitet die Think auf eine andere URL weiter

Hier ist mein Code:

    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

Wie ruft man die URL der Antwort ab (sie leitet aus!)

Answer 1

Einfach - Holen Sie sich einfach die Antwort der Antwort!

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

Die einzige Möglichkeit, wie ich weiß, um herauszufinden, welche URL es leitet, ist, indem ich die Anfrage und das Lesen der Antwort licht.

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

Zu Ihrer Information: Sie sollten sich Geiger auschecken. Es ist eine kostenlose App, mit der Sie die Anfragen und Antworten Ihres Browsers visuell untersuchen können. Sie können diesen Link, den Sie in Ihrem Browser haben, einfügen und sehen, was der Server zurück sagt. Dann wissen Sie, welchen Header Sie nach den gewünschten Informationen überprüfen möchten.

Ich hoffe, das hilft.

Answer 3

Versuche dies,

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)

Dadurch wird die umgeleitete URL zurückgegeben.