Есть необходимость собрать все ссылки с веб страницы на заданную глубину.
Получилась вот такая функция
Получилась вот такая функция
Код:
Func LinkGet($StartLink, $Depth)
Dim $LinksArr[2]=[1, $StartLink]
For $CurrentDepth=1 To $Depth
$UBoundLinksArr=UBound($LinksArr)-1
For $LikArrNum=$LinksArr[0] To $UBoundLinksArr
ConsoleWrite($LikArrNum&@CRLF)
$PageObject=_IECreate($LinksArr[$LikArrNum], 0, 0)
If @error Then
_IEQuit($PageObject)
ContinueLoop
EndIf
$NewLinks=_IELinkGetCollection($PageObject)
For $NewLink In $NewLinks
_ArrayAdd($LinksArr, $NewLink.href)
Next
_IEQuit($PageObject)
Next
$LinksArr[0]=$LinksArr[0]+$UBoundLinksArr
Next
Return $LinksArr
EndFunc
Только работает очень медленно т.к. для сбора ссылок каждый раз есть ожидание загрузки страницы браузера.
Можно ли как-то ускорить процесс сбора?