(AutoIt) Manually Follow HTTP Redirects

Demonstrates how to manually follow redirects for an HTTP GET.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oHttp = ObjCreate("Chilkat.Http")

; The FollowRedirects property controls whether redirects
; are automatically followed.  The default behavior is to
; automatically follow redirects.

; Explicitly set FollowRedirects so that redirects are NOT automatically taken:
$oHttp.FollowRedirects = False

Local $oResp = $oHttp.QuickGetObj("http://yandex.ru/")
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

Local $iStatus = $oResp.StatusCode
ConsoleWrite("HTTP Response Status: " & $iStatus & @CRLF)

; The FinalRedirectUrl property will contain the redirect URL
; If FollowRedirects was equal to True, then all of the 
; intermediate redirects (if any) would be followed until
; there were no more redirects.  However, because 
; FollowRedirects is not True, FinalRedirectUrl contains
; the next redirect URL.

Local $iLoopCount = 0

While ($iStatus = 302)

    ; IMPORTANT: This example requires Chilkat v9.5.0.49 or greater because
    ; the FinalRedirectUrl in prior versions is only set when redirects
    ; are automatically followed.   Starting in v9.5.0.49, the FinalRedirectUrl is
    ; set to the next redirect URL when a 301/302 response is received, regardless
    ; of the value of the FollowRedirects property.
    ConsoleWrite("Redirect URL: " & $oHttp.FinalRedirectUrl & @CRLF)

Local $sNextUrl = $oHttp.FinalRedirectUrl
    $oResp = $oHttp.QuickGetObj($sNextUrl)
    If ($oHttp.LastMethodSuccess = False) Then
        ConsoleWrite($oHttp.LastErrorText & @CRLF)
        Exit
    EndIf

    $iStatus = $oResp.StatusCode
    ConsoleWrite("HTTP Response Status: " & $iStatus & @CRLF)

    ; For safety, prevent infinite loops by
    ; keeping a loopCount and only allows following a max 
    ; of 10 redirects:
    $iLoopCount = $iLoopCount + 1
    If ($iLoopCount > 10) Then

        ConsoleWrite("Too many redirects." & @CRLF)
        Exit
    EndIf

Wend