Ciao
Potete provare il codice come segue:
OIE = CreateObject (“InternetExplorer.Application
„)
OIE
. Navigate2
(“
www.facebook.com ")
loDocument
= OIE. Documento
PER LinkNo = 1 a lDocument.links.length CurrentLink = lDocument.links (LinkNo) SE “TOMAIA di $ dei PIÙ VECCHI ALBERINI„ (CurrentLink.innerText) CurrentLink.Click () endif ENDFOR