Chilkat HOME Android™ ASP Visual Basic VB.NET C# iOS (IPhone) Objective-C C++ C Unicode C++ Unicode C MFC Delphi DLL Delphi ActiveX FoxPro Java Perl PHP Extension PHP ActiveX Python PowerShell Ruby SQL Server VBScript
Tracing HTTP RedirectsExample to trace through HTTP redirects. Dim http As New ChilkatHttp Dim success As Long ' Any string unlocks the component for the 1st 30-days. success = http.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then MsgBox http.LastErrorText Exit Sub End If Dim url As String Dim html As String Dim status As Long url = "http://www.planyourweddingonline.co.za/" ' 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: http.FollowRedirects = 0 ' Send the HTTP GET and return the content in a string. html = http.QuickGetStr(url) If (html = vbNullString ) Then MsgBox http.LastErrorText End If status = http.LastStatus Text1.Text = Text1.Text & "HTTP Response Status: " _ & status & vbCrLf ' The FinalRedirectUrl property will contain the redirect URL ' If FollowRedirects was equal to 1, then all of the ' intermediate redirects (if any) would be followed until ' there were no more redirects. However, because ' FollowRedirects is not 1, FinalRedirectUrl contains ' the next redirect URL. Text1.Text = Text1.Text & "Redirect URL: " & http.FinalRedirectUrl & vbCrLf Dim loopCount As Long loopCount = 0 Do While (status = 302) url = http.FinalRedirectUrl html = http.QuickGetStr(url) If (html = vbNullString ) Then MsgBox http.LastErrorText Exit Do End If status = http.LastStatus Text1.Text = Text1.Text & "Redirect URL: " _ & http.FinalRedirectUrl & vbCrLf ' You may wish to check that if FinalRedirectUrl ' equals the URL just retrieved. If so, then break out of the ' loop. (This check is omitted in this example.) ' Instead, this example will prevent infinite loops by ' keeping a loopCount and only allows following a max ' of 10 redirects: loopCount = loopCount + 1 If (loopCount > 10) Then Exit Do End If Loop |
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.