使用ChilkatDotNet组件构建自己的搜索引擎

//TheChilkatSpidercomponent/libraryisfree.

Chilkat.Spiderspider=newChilkat.Spider();

//First,we'llgettheoutboundlinksforapageinthe

//Googledirectory.Thenwe'lladdsomemust-match

//andthenre-fetch,toseeitwork...

spider.Initialize("directory.google.com");

spider.AddUnspidered("http://directory.google.com/Top/Recreation/Outdoors/Hiking/Backpacking/");

boolsuccess;

success=spider.CrawlNext();

//Displaytheoutboundlinks

inti;

stringurl;

for(i=0;i<=spider.NumOutboundLinks-1;i++){

textBox1.Text+=spider.GetOutboundLink(i)+"\r\n";

textBox1.Refresh();

}

//Theoutput:

//http://www.backpacker.com

//http://www.cmc.org

//http://www.backpacking.net

//http://www.thebackpacker.com/

//http://www.rei.com/online/store/LearnShareArticlesList?categoryId=Camping

//http://www.trailspace.com/

//http://www.catskillhikes.com/

//http://gorp.away.com/gorp/location/asia/nepal/favpicks.htm

//http://www.backpackinglight.com/cgi-bin/backpackinglight/index.html

//http://www.yetizone.com/

//http://www.backpackingfun.com

//http://www.freezerbagcooking.com/

//http://www.spadout.com/backpacking/

//http://sierrabackpacker.com

//http://www.abovecalifornia.com/

//http://www.personal.psu.edu/faculty/r/p/rpc1/bbb/

//http://www.thebackpackersguide.com

//http://www.journeywest.com/WB/index.html

//http://www.johann-sandra.com/backpackdir.htm

//http://www.geocities.com/amytys/

//http://www.cloudwalkersbasecamp.com

//http://www.netbackpacking.com

//http://members.tripod.com/~stooges/

//http://www.thebackpackingsite.com

//http://www.thruhikers.com/

//http://www.redcompservices.com/AT/

//http://members.aol.com/CMorHiker/backpack

//http://mywebpages.comcast.net/midwestpacker/

//http://www.midwesthiker.com/

//http://www.WeBackpack.com

//http://www.michiganhiker.com

//http://www.host33.com/backpack/

//http://www.wilderness-backpacking.com

//http://www.thetravelmonkey.net

//http://dmoz.org/cgi-bin/add.cgi?where=Recreation/Outdoors/Hiking/Backpacking

//http://dmoz.org/about.html

//http://dmoz.org/cgi-bin/apply.cgi?where=Recreation/Outdoors/Hiking/Backpacking

//http://dmoz.org

//http://dmoz.org/profiles/cdog.html

//http://dmoz.org/profiles/justinwp.html

//Doitagain,butthistimewithavoidpatterns.

spider.Initialize("directory.google.com");

spider.AddUnspidered("http://directory.google.com/Top/Recreation/Outdoors/Hiking/Backpacking/");

//Addsomemust-matchpatterns:

spider.AddMustMatchPattern("*.com/*");

spider.AddMustMatchPattern("*.net/*");

//Addsomeavoid-patterns:

spider.AddAvoidOutboundLinkPattern("*.mypages.*");

spider.AddAvoidOutboundLinkPattern("*.personal.*");

spider.AddAvoidOutboundLinkPattern("*.comcast.*");

spider.AddAvoidOutboundLinkPattern("*.aol.*");

spider.AddAvoidOutboundLinkPattern("*~*");

success=spider.CrawlNext();

textBox1.Text+="-----------------------"+"\r\n";

textBox1.Refresh();

//Displaytheoutboundlinks

for(i=0;i<=spider.NumOutboundLinks-1;i++){

textBox1.Text+=spider.GetOutboundLink(i)+"\r\n";

textBox1.Refresh();

}

//Output:

//http://www.thebackpacker.com/

//http://www.rei.com/online/store/LearnShareArticlesList?categoryId=Camping

//http://www.trailspace.com/

//http://www.catskillhikes.com/

//http://gorp.away.com/gorp/location/asia/nepal/favpicks.htm

//http://www.backpackinglight.com/cgi-bin/backpackinglight/index.html

//http://www.yetizone.com/

//http://www.freezerbagcooking.com/

//http://www.spadout.com/backpacking/

//http://www.abovecalifornia.com/

//http://www.journeywest.com/WB/index.html

//http://www.johann-sandra.com/backpackdir.htm

//http://www.geocities.com/amytys/

//http://www.thruhikers.com/

//http://www.redcompservices.com/AT/

//http://www.midwesthiker.com/

//http://www.host33.com/backpack/

ASimpleWebCrawler

//TheChilkatSpidercomponent/libraryisfree.

Chilkat.Spiderspider=newChilkat.Spider();

Chilkat.StringArrayseenDomains=newChilkat.StringArray();

Chilkat.StringArrayseedUrls=newChilkat.StringArray();

seenDomains.Unique=true;

seedUrls.Unique=true;

seedUrls.Append("http://directory.google.com/Top/Recreation/Outdoors/Hiking/Backpacking/");

//SetouroutboundURLexcludepatterns

spider.AddAvoidOutboundLinkPattern("*?id=*");

spider.AddAvoidOutboundLinkPattern("*.mypages.*");

spider.AddAvoidOutboundLinkPattern("*.personal.*");

spider.AddAvoidOutboundLinkPattern("*.comcast.*");

spider.AddAvoidOutboundLinkPattern("*.aol.*");

spider.AddAvoidOutboundLinkPattern("*~*");

//Useacachesowedon'thavetore-fetchURLspreviouslyfetched.

spider.CacheDir="c:/spiderCache/";

spider.FetchFromCache=true;

spider.UpdateCache=true;

while(seedUrls.Count>0){

stringurl;

url=seedUrls.Pop();

spider.Initialize(url);

//Spider5URLsofthisdomain.

//butfirst,savethebasedomaininseenDomains

stringdomain;

domain=spider.GetDomain(url);

seenDomains.Append(spider.GetBaseDomain(domain));

inti;

boolsuccess;

for(i=0;i<=4;i++){

success=spider.CrawlNext();

if(success!=true){

break;

}

//DisplaytheURLwejustcrawled.

textBox1.Text+=spider.LastUrl+"\r\n";

//IfthelastURLwasretrievedfromcache,

//wewon'twait.Otherwisewe'llwait1second

//beforefetchingthenextURL.

if(spider.LastFromCache!=true){

spider.SleepMs(1000);

}

}

//AddtheoutboundlinkstoseedUrls,except

//forthedomainswe'vealreadyseen.

for(i=0;i<=spider.NumOutboundLinks-1;i++){

url=spider.GetOutboundLink(i);

domain=spider.GetDomain(url);

stringbaseDomain;

baseDomain=spider.GetBaseDomain(domain);

if(!seenDomains.Contains(baseDomain)){

seedUrls.Append(url);

}

//Don'tletourlistofseedUrlsgrowtoolarge.

if(seedUrls.Count>1000){

break;

}

}

}