[Сеть, интернет] Поиск слова в ссылке.

[Ranos1982]

Доброго времени суток.
Пожалуйста,подскажите в чем ошибка тут...

Func searchHref($o_object, $substring)

	Local $oLink, $oLinks, $iAllLinks

	Dim $oLinks = _IELinkGetCollection($o_object)
	Dim $iAllLinks = @extended
	For $counter = 0 To $iAllLinks
		$oLink = _IETagNameAllGetCollection($o_object)
		If StringInStr($oLink.href, $substring) <> 0 Then
			Return $oLink.href
			ExitLoop
		EndIf
	Next

EndFunc   ;==>searchHref

 

[CreatoR]

..
        $oLink = _IETagNameAllGetCollection($oLinks)
...

?

 

[Ranos1982]

Пробелему решил через пару секунд :laugh:

_IETagNameGetCollection($o_object, "a", $counter)

НО можно ли сделать универсально,тоесть если мы не знаем атрибут/тег 'a' ?

 

[CreatoR]

#include <IE.au3>

$oIE = _IECreate("http://www.autoitscript.com/site/")

ConsoleWrite(searchHref($oIE, "down") & @CRLF)

Func searchHref($o_object, $substring)
	Local $oLink, $oLinks
	
	$oLinks = _IELinkGetCollection($o_object)
	
	For $oLink In $oLinks
		If StringInStr($oLink.href, $substring) Then
			Return $oLink.href
		EndIf
	Next
EndFunc

 

[Ranos1982]

спасибо.. пьем пиво :beer: