AutoIt

Avoid URLs Matching Any of a Set of Patterns

See more Spider Examples

Demonstrates how to use "avoid patterns" to prevent spidering any URL that matches a wildcarded pattern. This example avoids URLs containing the substrings "java", "python", or "perl". AutoIt

Local $bSuccess = False

$oSpider = ObjCreate("Chilkat.Spider")

; The spider object crawls a single web site at a time.  As you'll see
; in later examples, you can collect outbound links and use them to 
; crawl the web.  For now, we'll simply spider 10 pages of chilkatsoft.com
$oSpider.Initialize "www.chilkatsoft.com"

; Add the 1st URL:
$oSpider.AddUnspidered "http://www.chilkatsoft.com/"

; Avoid URLs matching these patterns:
$oSpider.AddAvoidPattern "*java*"
$oSpider.AddAvoidPattern "*python*"
$oSpider.AddAvoidPattern "*perl*"

; Begin crawling the site by calling CrawlNext repeatedly.
Local $i
For $i = 0 To 9

    $bSuccess = $oSpider.CrawlNext()
    If ($bSuccess = True) Then
        ; Show the URL of the page just spidered.
        ConsoleWrite($oSpider.LastUrl & @CRLF)
        ; The HTML is available in the LastHtml property
    Else
        ; Did we get an error or are there no more URLs to crawl?
        If ($oSpider.NumUnspidered = 0) Then
            ConsoleWrite("No more URLs to spider" & @CRLF)
        Else
            ConsoleWrite($oSpider.LastErrorText & @CRLF)
        EndIf

    EndIf

    ; Sleep 1 second before spidering the next URL.
    $oSpider.SleepMs 1000
Next