B4X
Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method.
Chilkat B4X Downloads

B4X
Dim success As Boolean = False

Dim http As ChilkatHttp
http.Initialize("http")

'  Sample HTML with a META refresh.

'  <!DOCTYPE html>
'  <html lang="en">
'  <head>
'    <meta charset="utf-8" />
'    <meta http-equiv="refresh" content="5; url=https://example.com" />
'    <title>Meta Refresh Redirect</title>
'  </head>
'  <body>
'    <p>Redirecting to example.com in 5 seconds�</p>
'  </body>
'  </html>

Dim sb As ChilkatStringBuilder
sb.Initialize
Dim bCrlf As Boolean = True
sb.AppendLine("<!DOCTYPE html>", bCrlf)
sb.AppendLine("<html lang=" & Chr(34) & "en" & Chr(34) & ">", bCrlf)
sb.AppendLine("<head>", bCrlf)
sb.AppendLine("  <meta charset=" & Chr(34) & "utf-8" & Chr(34) & " />", bCrlf)
sb.AppendLine("  <meta http-equiv=" & Chr(34) & "refresh" & Chr(34) & " content=" & Chr(34) & "5; url=https://example.com" & Chr(34) & " />", bCrlf)
sb.AppendLine("  <title>Meta Refresh Redirect</title>", bCrlf)
sb.AppendLine("</head>", bCrlf)
sb.AppendLine("<body>", bCrlf)
sb.AppendLine("  <p>Redirecting to example.com in 5 seconds�</p>", bCrlf)
sb.AppendLine("</body>", bCrlf)
sb.AppendLine("</html>", bCrlf)

Dim url As String = http.ExtractMetaRefreshUrl(sb.GetAsString)
If http.LastMethodSuccess = False Then
    Log("The HTML has no META refresh tag.")
Else
    Log("META refresh URL: " & url)
End If