Что нового

Сохранить веб-страницу с картинками

yinfo

Новичок
Сообщения
4
Репутация
0
Добрый день.
Требуется программно сохранить веб-страницу с картинками. Есть ли такой функционал у AutoIT? Или единственный путь - разбирать все теги <img> и каждую картинку скачивать отдельно?
 

axlwor

Скриптер
Сообщения
657
Репутация
147
SaveAs + ControlClick в диалоговом окне сохранения
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Примерно так ;):
Код:
$URL = InputBox('Download Website', 'Напишите адрес сайта:' & @CRLF & @CRLF & 'Пример:' & @CRLF  & 'http://autoit-script.ru/', 'http://', '', 250, 175)
If @error Then Exit
$SAVEPATH = FileSaveDialog('Download Website', '', 'Веб страница полностью (*.mht)', '', '', GUICreate(''))
If @error Then Exit

_INetGetMHT($URL, $SAVEPATH & ".mht" )
MsgBox(64, 'Download Website', 'Веб страница сохранена успешно.')

Func _INetGetMHT($sURL, $sFILE)
    Local $msg = ObjCreate("CDO.Message")
    If @error Then Return False
    Local $ado = ObjCreate("ADODB.Stream")
    If @error Then Return False

    With $ado
        .Type = 2
        .Charset = "US-ASCII"
        .Open
    EndWith
    $msg.CreateMHTMLBody($sURL, 0)
    $msg.DataSource.SaveToObject($ado, "_Stream")
    FileDelete($sFILE)
    $ado.SaveToFile($sFILE, 1)
    $msg = ""
    $ado = ""
    Return True
EndFunc
 
Автор
Y

yinfo

Новичок
Сообщения
4
Репутация
0
Спасибо, пригодится, но сейчас мне надо не mht, а именно html и отдельно папочка с картинками :smile:
 
Верх