#include <IE.au3>
#include <Array.au3>
$sUrl = 'http://www.autoebur.ru/'
$sSearch = 'bmw' ;модель, ссылки на которую ищем.
$iCountLink = 0
$iCountPage = 0
$iError = 1
$oIE = _IECreate($sUrl)
If @error Then
MsgBox(16, 'Error', '_IECreate')
Exit
EndIf
For $i = 1 To 1
$oLinks = _IELinkGetCollection($oIE)
If @error Then ExitLoop
For $oLink In $oLinks
If StringInStr($oLink.innertext, $sSearch) = 1 Then
_IENavigate($oIE, $oLink.href)
If @error Then ExitLoop 2
ExitLoop
EndIf
Next
$oPages = _IETagNameGetCollection($oIE, 'div')
If @error Then ExitLoop
Dim $aPages[@extended]
For $oPage In $oPages
If $oPage.classname == 'nav' Then
$oTags = _IETagNameGetCollection($oPage, 'a')
If @error Then ExitLoop 2
For $oTag In $oTags
If StringInStr($oTag.href, 'offset') Then
$iCountPage += 1
$aPages[$iCountPage] = $oTag.href
EndIf
Next
EndIf
Next
If $iCountPage Then
ReDim $aPages[$iCountPage + 1]
$aPages = _ArrayUnique($aPages, 1, 1)
EndIf
$oLinks = _IELinkGetCollection($oIE)
If @error Then ExitLoop
Dim $aLinks[@extended][2]
For $oLink In $oLinks
If StringInStr($oLink.href, 'view/id') And StringInStr($oLink.innertext, $sSearch) Then
$iCountLink += 1
$aLinks[$iCountLink][0] = $oLink.innertext
$aLinks[$iCountLink][1] = $oLink.href
EndIf
Next
$aLinks[0][0] = $iCountLink
If $iCountPage Then
For $i = 1 To $aPages[0]
_IENavigate($oIE, $aPages[$i])
If @error Then ExitLoop 2
$oLinks = _IELinkGetCollection($oIE)
If @error Then ExitLoop 2
ReDim $aLinks[$aLinks[0][0] + @extended + 1][2]
For $oLink In $oLinks
If StringInStr($oLink.href, 'view/id') And StringInStr($oLink.innertext, $sSearch) Then
$iCountLink += 1
$aLinks[$iCountLink][0] = $oLink.innertext
$aLinks[$iCountLink][1] = $oLink.href
EndIf
Next
$aLinks[0][0] = $iCountLink
Next
EndIf
$iError = 0
Next
_IEQuit($oIE)
If $iError Then
MsgBox(16, 'Error', 'Error')
Else
If $iCountLink Then
ReDim $aLinks[$iCountLink + 1][2]
$aLinks[0][0] = $iCountLink
_ArrayDisplay($aLinks)
EndIf
EndIf