Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


boxer18181818,
Вы , на будущее, вопросы лучше в форуме задавайте, а не в ПМ.
Цитата:
Не могли бы Вы привести небольшой пример такого скрипта
Примерно так:
Код: Выделить весь код
#include <IE.au3>

Dim $sUrl[5] = ['http://www.google.ru/', _
        'http://autoit-script.ru/index.php?action=forum', _
        'http://autoit-script.ru/index.php', _
        'http://forum.oszone.net/', _
        'http://forum.oszone.net/forum-103.html']
;задаем массив ссылок, по которым будем переходить
$oIE = _IECreate($sUrl[0])
;открываем IE на адресе с индексом 0 (http://www.google.ru/)
For $i = 1 To UBound($sUrl) - 1
    _IENavigate($oIE, $sUrl[$i])
    ;в цикле переходим по ссылкам из массива
    $sText = _IEBodyReadText($oIE)
    ;читаем текст страницы
    If $sText Then
        ;если прочитали.
        $hFile = FileOpen(@ScriptDir & '\' & $i & '_Test.txt', 2)
        ;открываем файл
        FileWrite($hFile, $sUrl[$i] & @CRLF & @CRLF & $sText)
        ;записывем в него ссылку страницы и ее текст
        FileClose($hFile)
        ;закрываем файл
    EndIf
Next
;переходим обратно на адрес с индексом 0 (http://www.google.ru/)
_IENavigate($oIE, $sUrl[0])

Отправлено: 11:33, 18-08-2010 | #5