(Excel) Crawling the Web

If the Chilkat Spider component only crawls a single site, how do you crawl the Web? The answer is simple: as you crawl a site, the spider collects outbound links and makes them accessible to you. You may then instantiate an instance of the Spider object for each site, and crawl it. The task of keeping track of what sites you've already crawled is left to you. This example retrieves the home page of http://www.joelonsoftware.com/ and displays the outbound links.

Download Excel Class Modules Chilkat Excel Class Modules

Dim spider As Chilkat.Spider
Set spider = Chilkat.NewSpider

' The Initialize method may be called with just the domain name,
' such as "www.joelonsoftware.com" or a full URL.  If you pass only
' the domain name, you must add URLs to the unspidered list by calling
' AddUnspidered.  Otherwise, the URL you pass to Initialize is the 1st
' URL in the unspidered list.
spider.Initialize "www.joelonsoftware.com"

spider.AddUnspidered "http://www.joelonsoftware.com/"

success = spider.CrawlNext()

For i = 0 To spider.NumOutboundLinks - 1
    Debug.Print spider.GetOutboundLink(i)
Next