[madmasles]

boxer18181818,
Вот так будет работать до тех пор, пока не нажмете Esc:

Код:

#include <IE.au3>

HotKeySet("{ESC}", "_MyExit") ;Esc - выход
$j = 0
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()
While 1
    For $i = 0 To UBound($sUrl) - 1
        _IENavigate($oIE, $sUrl[$i])
        $sText = _IEBodyReadText($oIE)
        If $sText Then
            $j += 1
            $hFile = FileOpen(@ScriptDir & '\' & $j & '_Test.txt', 2)
            FileWrite($hFile, $sUrl[$i] & @CRLF & @CRLF & $sText)
            FileClose($hFile)
        EndIf
    Next
    Sleep(1000)
WEnd

Func _MyExit()
    If ProcessExists('IEXPLORE.EXE') Then ProcessClose('IEXPLORE.EXE')
    Exit
EndFunc   ;==>_MyExit