This Visual Basic example demonstrates how to use the Tortuga Yxplore component to retrieve information about inbound links to a site as seen by Yahoo.
The free Tortuga ActiveX can be downloaded here: ActiveX Download
Dim yx As New Yxplore
' Set our Yahoo Site Explorer App ID
yx.AppId = "myAppID"
' Get the first 30 inbound links to boingboing.net:
numRequested = 30
startPos = 1
entireSite = 1
ok = yx.InboundLinks("boingboing.net", numRequested, startPos, entireSite)
If ok = 1 Then
' Get the title, URL, and ClickURL of each inbound link 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