Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)

Модерирует : gyra, Maz

Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

sproxy



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

 

Код:
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

 

Всего записей: 556 | Зарегистр. 21-11-2007 | Отправлено: 03:55 08-07-2009 | Исправлено: sproxy, 04:00 08-07-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)
Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru