(AutoIt) Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Local $bSuccess = False

$oHttp = ObjCreate("Chilkat.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>

$oSb = ObjCreate("Chilkat.StringBuilder")
Local $bCrlf = True
$oSb.AppendLine("<!DOCTYPE html>",$bCrlf)
$oSb.AppendLine("<html lang=""en"">",$bCrlf)
$oSb.AppendLine("<head>",$bCrlf)
$oSb.AppendLine("  <meta charset=""utf-8"" />",$bCrlf)
$oSb.AppendLine("  <meta http-equiv=""refresh"" content=""5; url=https://example.com"" />",$bCrlf)
$oSb.AppendLine("  <title>Meta Refresh Redirect</title>",$bCrlf)
$oSb.AppendLine("</head>",$bCrlf)
$oSb.AppendLine("<body>",$bCrlf)
$oSb.AppendLine("  <p>Redirecting to example.com in 5 seconds�</p>",$bCrlf)
$oSb.AppendLine("</body>",$bCrlf)
$oSb.AppendLine("</html>",$bCrlf)

Local $sUrl = $oHttp.ExtractMetaRefreshUrl($oSb.GetAsString())
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite("The HTML has no META refresh tag." & @CRLF)
Else
    ConsoleWrite("META refresh URL: " & $sUrl & @CRLF)
EndIf