#include <IE.au3>
$n = 0
$oIE = _IECreate("http://www.google.ru/")
$oLinks = _IELinkGetCollection($oIE)
$iNumLinks = @extended
MsgBox(0, "Link Info", $iNumLinks & " links found")
For $oLink In $oLinks
$n += 1
MsgBox(0, "Link Info № " & $n, "Текст: " & $oLink.innertext & @CRLF & "Ссылка: " & $oLink.href)
Next