Following a META-Refresh URL

Extracting and following a META-refresh URL.

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim http As New Chilkat.Http()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(http.LastErrorText)
    Exit Sub
End If


Dim url As String
Dim metaRefreshUrl As String
Dim html As String


url = "insert your test URL here..."


'  Send the HTTP GET and return the content in a string.
html = http.QuickGetStr(url)
If (html = vbNullString ) Then
    MsgBox(http.LastErrorText)
    Exit Sub
End If


'  Check for a META-refresh URL in the HTML:
Dim hh As New Chilkat.HtmlUtil()
metaRefreshUrl = hh.GetMetaRefreshUrl(html)
If (metaRefreshUrl.Length > 0) Then
    MsgBox(metaRefreshUrl)
Else
    MsgBox("No META-Refresh URL")
End If