vb.net - HttpWebRequest を使用して、最終 / ランディング URL の前にあるすべての中間 URL をキャプチャします。

Question

ランディング ページに到達する前に複数の URL にリダイレクトする URL があります。ここで最終的なリダイレクトを取得するソリューションを見つけましたが、すべての中間 URL が必要です。

Answer 1

これは機能します：

'http://tinyurl.com/gtrp -> points to google.ca
Dim urls As List(Of String) = GetAllRedirectURLs("http://tinyurl.com/gtrp")
'urls(0) = "http://google.ca"
'urls(1) = "http://www.google.ca/"

Private Function GetAllRedirectURLs(path As String) As List(Of String)
  Dim urls As New List(Of String)
  Dim request As HttpWebRequest = WebRequest.Create(path)
  request.Method = "HEAD"
  request.AllowAutoRedirect = False
  Dim response As HttpWebResponse = request.GetResponse
  If response.StatusCode = HttpStatusCode.Moved Or response.StatusCode = HttpStatusCode.Redirect Then
    Dim redirectsToURL As String = response.GetResponseHeader("Location")
    urls.Add(redirectsToURL)
    urls.AddRange(GetAllRedirectURLs(redirectsToURL))
  End If
  Return urls
End Function

再帰を使用してドリルダウンし、リンクを収集しました。この質問に基づいています。