Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Аватара для madmasles

Ветеран


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

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


Vitalina,
У меня примерно так получилось:
Код: Выделить весь код
#RequireAdmin
#include <IE.au3>

$count = 0
$sUrl = "http://www.autoitscript.com/autoit3/files/beta/autoit/"
$oIE = _IECreate($sUrl, 0, 0)
; открываем IE в скрытом режиме по адресу $sUrl
$oLinks = _IELinkGetCollection($oIE)
; получаем коллекцию всех ссылок на скачивание со страницы
For $oLink In $oLinks
    ;в цикле проверяем в тексте всех ссылок на странице наличие расширения .exe
    If StringInStr($oLink.innertext, ".exe") <> 0 Then
        $hDownload = InetGet($oLink.href, @ScriptDir & "\" & $oLink.innertext, 1, 1)
        ;скачиваем файл с раширением .exe в папку со скриптом.
        Do
            Sleep(50)
        Until InetGetInfo($hDownload, 2)
        ;ждем, пока не скачается очередной файл
        $count += 1
        ;считаем скачанные файлы
    EndIf
    ;возвращаемся в начало цикла
Next
InetClose($hDownload)
;закрыли хендл InetGet
_IEQuit($oIE)
;закрыли IE
MsgBox(0, "", "Скачано " & $count & " файлов расширением .exe")
;сообщили сколько файлов скачали
PS
Данный код надо сохранить с расширеним .au3

Последний раз редактировалось madmasles, 22-04-2010 в 12:03.


Отправлено: 10:01, 22-04-2010 | #10