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
(VB.NET) Get Referenced DomainsDemonstrates how to accumulate a list of unique domain names referenced from outbound URLs. Download: Chilkat .NET Assemblies ' The Chilkat Spider component/library is free. Dim spider As New Chilkat.Spider() Dim domainList As New Chilkat.StringArray() ' Set the Unique property so that duplicates are not added. domainList.Unique = true ' Crawl the home page of joelonsoftware.com and get the outbound URLs spider.Initialize("www.joelonsoftware.com") spider.AddUnspidered("http://www.joelonsoftware.com/") Dim success As Boolean success = spider.CrawlNext() ' Build a list of unique domains. Dim i As Long Dim url As String For i = 0 To spider.NumOutboundLinks - 1 url = spider.GetOutboundLink(i) domainList.Append(spider.GetUrlDomain(url)) Next ' Display the domains. For i = 0 To domainList.Count - 1 TextBox1.Text = TextBox1.Text & domainList.GetString(i) & vbCrLf Next |
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.