LOCAL loSpider
LOCAL lnSuccess
LOCAL i
LOCAL lcUrl
loSpider = CreateObject('Chilkat.Spider')
loSpider.Initialize("directory.google.com")
loSpider.AddUnspidered("http://directory.google.com/Top/Recreation/Food/Cheese/")
lnSuccess = loSpider.CrawlNext()
FOR i = 0 TO loSpider.NumOutboundLinks - 1
? loSpider.GetOutboundLink(i)
NEXT
Thanks,
Frank