PHP ActiveX
PHP ActiveX
A Simple Web Crawler
See more Spider Examples
This demonstrates a very simple web crawler using the Chilkat Spider component.Chilkat PHP ActiveX Downloads
<?php
$success = 0;
$spider = new COM("Chilkat.Spider");
$seenDomains = new COM("Chilkat.StringArray");
$seedUrls = new COM("Chilkat.StringArray");
$seenDomains->Unique = 1;
$seedUrls->Unique = 1;
// You will need to change the start URL to something else...
$seedUrls->Append('http://something.whateverYouWant.com/');
// Set outbound URL exclude patterns
// URLs matching any of these patterns will not be added to the
// collection of outbound links.
$spider->AddAvoidOutboundLinkPattern('*?id=*');
$spider->AddAvoidOutboundLinkPattern('*.mypages.*');
$spider->AddAvoidOutboundLinkPattern('*.personal.*');
$spider->AddAvoidOutboundLinkPattern('*.comcast.*');
$spider->AddAvoidOutboundLinkPattern('*.aol.*');
$spider->AddAvoidOutboundLinkPattern('*~*');
// Use a cache so we don't have to re-fetch URLs previously fetched.
$spider->CacheDir = 'c:/spiderCache/';
$spider->FetchFromCache = 1;
$spider->UpdateCache = 1;
while ($seedUrls->Count > 0) {
$url = $seedUrls->pop();
$spider->Initialize($url);
// Spider 5 URLs of this domain.
// but first, save the base domain in seenDomains
$domain = $spider->getUrlDomain($url);
$seenDomains->Append($spider->getBaseDomain($domain));
for ($i = 0; $i <= 4; $i++) {
$success = $spider->CrawlNext();
if ($success == 1) {
// Display the URL we just crawled.
print $spider->LastUrl . "\n";
// If the last URL was retrieved from cache,
// we won't wait. Otherwise we'll wait 1 second
// before fetching the next URL.
if ($spider->LastFromCache != 1) {
$spider->SleepMs(1000);
}
}
else {
// cause the loop to exit..
$i = 999;
}
}
// Add the outbound links to seedUrls, except
// for the domains we've already seen.
for ($i = 0; $i <= $spider->NumOutboundLinks - 1; $i++) {
$url = $spider->getOutboundLink($i);
$domain = $spider->getUrlDomain($url);
$baseDomain = $spider->getBaseDomain($domain);
if ($seenDomains->Contains($baseDomain) == 0) {
// Don't let our list of seedUrls grow too large.
if ($seedUrls->Count < 1000) {
$seedUrls->Append($url);
}
}
}
}
?>