Здравствуйте.
Помогите.
Скрипт переходит по адресу 1, собирает ссылки со страницы, по ключу $sMyString, в массив, потом переходит по ссылкам из массива и сохраняет их и содержимое в файл.
После выполнения работ скрипт переходит на URL адрес 2 и заканчивает работу.
Как сделать, чтобы после перехода на URL адрес 2 скрипт выполнялся заново,
т.е. после завершения работы на одном URL "$sURL"приступал к работе на следующем по списку"$sURL_1".
Помогите.
Скрипт переходит по адресу 1, собирает ссылки со страницы, по ключу $sMyString, в массив, потом переходит по ссылкам из массива и сохраняет их и содержимое в файл.
После выполнения работ скрипт переходит на URL адрес 2 и заканчивает работу.
Как сделать, чтобы после перехода на URL адрес 2 скрипт выполнялся заново,
т.е. после завершения работы на одном URL "$sURL"приступал к работе на следующем по списку"$sURL_1".
Код:
#include <IE.au3>
#include <Array.au3>
HotKeySet('{Esc}', '_Exit')
Dim $sMyString = "al52"
Dim $aResult[1]
Dim $aSubmit[1]
$sURL = 'http://0'
$sURL_1 = 'http://1'
$sURL_2 = "http://2"
$oIE = _IECreate($sURL)
$oLinks = _IELinkGetCollection($oIE)
For $i = 0 To 1
For $oLink in $oLinks
If StringInStr($oLink.href, $sMyString) Then
$aResult[0] = UBound($aResult)
_ArrayAdd($aResult, $oLink.href)
EndIf
Next
Next
;_ArrayDisplay($aResult) ; смотрим массив с найденными ссылками
For $i = 1 To UBound($aResult) - 1
_IENavigate($oIE, $aResult[$i])
;в цикле переходим по ссылкам из массива
$sText = _IEBodyReadText($oIE)
;читаем текст страницы
If $sText Then
;если прочитали.
$hFile = FileOpen(@ScriptDir & '\' & $i & '_Test.txt', 2)
;открываем файл
FileWrite($hFile, $aResult[$i] & @CRLF & @CRLF & $sText)
;записывем в него ссылку страницы и ее текст
FileClose($hFile)
;закрываем файл
Sleep(5000)
EndIf
Next
;переходим на адрес 2
_IENavigate($oIE, $sUrl_1)
Func _Exit()
Exit
EndFunc