Olá!
Você pode tentar o código como segue:
oie = CreateObject (“InternetExplorer.Application
”)
oie
. Navigate2
(“
www.facebook.com ")
loDocument
= oie. Original
PARA LinkNo = 1 a lDocument.links.length CurrentLink = lDocument.links (LinkNo) SE “PARTE SUPERIOR de $ dos BORNES MAIS VELHOS” (CurrentLink.innerText) CurrentLink.Click () endif ENDFOR