This Visual Basic example demonstrates how to use the Tortuga Yxplore component to retrieve information about the pages indexed by Yahoo for a site.
The free Tortuga ActiveX can be downloaded here: ActiveX Download
' Add the "Tortuga ActiveX" as a reference to your VB6 project...
Dim yx As New Yxplore
' Set our Yahoo Site Explorer App ID
yx.AppId = "myAppID"
' Get the first 50 pages of boingboing.net that are in the Yahoo! index:
numRequested = 50
startPos = 1
entireSite = 1
ok = yx.PageData("boingboing.net", numRequested, startPos, entireSite)
If ok = 1 Then
' Get the title, URL, and ClickURL of each page in the Yahoo! index.
numResults = yx.TotalResultsReturned
For i = 0 To numResults - 1
Title = yx.GetTitle(i)
url = yx.GetUrl(i)
clickUrl = yx.GetClickUrl(i)
List1.AddItem (Title)
List1.AddItem (url)
List1.AddItem (clickUrl)
List1.AddItem ("-")
Next
Else
MsgBox yx.LastResponse
End If