[Iska]

Sestrichka, если требуется именно содержимое, как таковое, а не отдельные файлы (при использовании описанной ниже методики имена отдельных файлов теряются), то можно получать содержимое страницы и связанных файлов в виде .mht («Веб-архив» в терминологии Microsoft), используя библиотеку Collaboration Data Objects:

читать дальше »

Как правило, эта библиотека уже установлена, если у Вас установлен Microsoft Office 2000/XP/2003; если у Вас установлен Microsoft Office 2007 или вообще не установлен — то надо пройти по вышеуказанной ссылке, загрузить и установить эту библиотеку.

Код:

AutoItSetOption("MustDeclareVars", 1)

Local Const $cdoSuppressNone        =  0 ; Загружать все
Local Const $cdoSuppressImages      =  1 ; Не загружать картинки
Local Const $cdoSuppressBGSounds    =  2 ; Не загружать фоновые звуки
Local Const $cdoSuppressFrames      =  4 ; Не загружать фреймы
Local Const $cdoSuppressObjects     =  8 ; Не загружать объекты
Local Const $cdoSuppressStyleSheets = 16 ; Не загружать таблицы стилей
Local Const $cdoSuppressAll         = 31 ; Не загружать ничего из вышеперечисленного

Local Const $adSaveCreateNotExist   =  1
Local Const $adSaveCreateOverWrite  =  2


Local $objIMessage                  = ObjCreate("CDO.Message")
Local $objIConfiguration            = ObjCreate("CDO.Configuration")

Local $strURL                       = "http://www.yandex.ru"
Local $strUserName                  = ""
Local $strPassword                  = ""


$objIMessage.Configuration = $objIConfiguration
$objIMessage.CreateMHTMLBody($strURL, $cdoSuppressNone, $strUserName, $strPassword)

; Сохранить страницу как веб-архив .MHT
With $objIMessage.BodyPart.GetStream()
	.SaveToFile("c:\Page.mht", $adSaveCreateOverWrite)
	.Close()
EndWith

$objIConfiguration                  = 0
$objIMessage                        = 0

Exit(0)

Источник: Серый форум / JScript: Пример сохранения web-страницы в TXT, HTML и MHT (веб-архив).