|
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VB.NET) Example: Http.ExtractMetaRefreshUrl methodDemonstrates the
Dim success As Boolean = False Dim http As New 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> Dim sb As New Chilkat.StringBuilder Dim bCrlf As Boolean = True sb.AppendLine("<!DOCTYPE html>",bCrlf) sb.AppendLine("<html lang=""en"">",bCrlf) sb.AppendLine("<head>",bCrlf) sb.AppendLine(" <meta charset=""utf-8"" />",bCrlf) sb.AppendLine(" <meta http-equiv=""refresh"" content=""5; url=https://example.com"" />",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 Debug.WriteLine("The HTML has no META refresh tag.") Else Debug.WriteLine("META refresh URL: " & url) End If |
||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.