Opt('MustDeclareVars', 1) Opt('TrayIconDebug', 1) #include <Array.au3> #include <Inet.au3> HotKeySet('!{ESC}', '_Pro_Exit'); Закрыть скрипт: Alt + ESC Local $sURL = 'http://admin.primer.top.ru/id/' Local $sFilePath = @ScriptDir & '\urls.txt' Local $sURLs = StringStripCR(FileRead($sFilePath)) If @error Then MsgBox(48, 'Внимание', 'Ошибка чтения файла адресов, файл:' & @CRLF & $sFilePath) _Pro_Exit() EndIf Local $aURLs = StringSplit($sURLs, @LF) If @error Then MsgBox(48, 'Внимание', 'Ошибка построения массива адресов') _Pro_Exit() EndIf _ArrayDisplay($aURLs, 'Список адресов') Local $i, $sPage For $i=1 To $aURLs[0] $aURLs[$i] = $sURL & StringStripWS($aURLs[$i], 8) If NOT $aURLs[$i] Then ContinueLoop $sPage = _INetGetSource($aURLs[$i]) If @error Then ContinueLoop MsgBox(0, 'HTML код страницы: ' & $aURLs[$i], $sPage) ;~ далее код анализа страницы Next Func _Pro_Exit() HotKeySet('!{ESC}') Exit EndFunc |