Помогите найти нужные ссылки в IE

[eropov]

Здравствуйте. Помогите найти нужные ссылки на анкеты людей с сайта.
Использую следующий код:

Спойлер

#include <IE.au3>
#include<Array.au3>

$sUrl = 'http://loveplanet.ru/a-search/d-1/pol-1/spol-2/bage-18/tage-29/foto-1/country-3159/region-4312/city-4400/relig-0/p-1/'
$oIE = _IECreate($sUrl, 1, 1, 0)
$oLinks = _IELinkGetCollection($oIE)
$iNumLinks = @extended
Dim $aArr[$iNumLinks]
$l = 0
For $oLink In $oLinks
	$aAnket = StringRegExp($oLink.href, '(http://loveplanet.ru/page/[^/]+/frl\-[0-9]+/)', 1)
	If Not @error Then
		$aArr[$l] = $aAnket[0]
		$l += 1
	EndIf
	$res = _ArrayUnique($aArr)
Next
_ArrayDisplay($res)

Вместо 10 ссылок на страницу выдает 30, может дело в регулярке?


Добавлено:

Сообщение автоматически объединено: 19 Май 2012

Что ни кто не сможет мне помочь?
Нужно по тегу "td" классу class="user_data" спарсить ссылку href="/page/asyatka1985/frl-2/", точнее их будет 13 на странице.

Спойлер

<td class="user_data">	<a href="/page/asyatka1985/frl-2/" class="name" target="_blank">

 

[Asshaker]

$oIE=_IEAttach("[CLASS:IEFrame]", 'Instance')
Func LinkClick($FocusLink) ;Клик по кнопкам с уникальными ссылками
	$oLinks=_IELinkGetCollection($oIE)
	For $oLink in $oLinks
		if StringInStr($oLink.href,$FocusLink) And  Not  StringInStr($oLink.href, '#') Then
			_IEAction($oLink,'click')
			_IELoadWait($oIE)
			ExitLoop
		EndIf
	Next
EndFunc

Может поможет