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

eropov · 19 Май 2012

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

Код:

#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 · 19 Май 2012

Код:

$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

Может поможет :smile:

Автор темы	Похожие темы	Форум	Ответы	Дата
T	Ошибки Помогите найти ошибку при использовании ресурса bmp	Общие вопросы по AutoIt	10	27 Апр 2020
T	Помогите найти/поделитесь MySQL UDFs (without ODBC)	Общие вопросы по AutoIt	3	3 Июл 2018
D	Помогите найти число	Автоматизация IE и Web-интерфейса	8	21 Апр 2017
D	Помогите найти ошибку с доступом к содержимому массива	Общие вопросы по AutoIt	9	24 Фев 2016
C	Помогите найти ошибку	Общие вопросы по AutoIt	3	19 Янв 2016

Поиск

Поиск

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

eropov

Jury

Asshaker

Знающий