FACEBOOK FRIEND'S LIST

[Gintaras]

Try this.

Macro Macro1545

Code:

Copy      Help

MSHTML.IHTMLDocument2 d=htm(win("" "IEFrame"))
MSHTML.IHTMLElement e
str su sa sn
foreach e d.links
,su=e.getAttribute("href" 2)
,if(!su.beg("/profile.php?id=")) continue
,sn=e.innerText
,if(!sn.len) continue ;;image
,sa.formata("%s, http://www.facebook.com%s[]" sn su)

str sf="$desktop$\facebook friends.txt"
sa.setfile(sf)
run sf