CMD/BAT

AlexLev · Отправлено: **11:10, 03-04-2013** | #11

Дальнейшие эксперименты с VBS-скриптом показали, что он может конвертировать интернет страницу, но не готовый файл...

Iska · Отправлено: **15:57, 03-04-2013** | #12

Цитата AlexLev:

Я попробовал VBS-скрипт, но он у меня не заработал, наверно надо ставить ADO? »

Есть подозрение, что у Вас нет CDO: Download Collaboration Data Objects, version 1.2.1 from Official Microsoft Download Center.

Цитата AlexLev:

Дальнейшие эксперименты с VBS-скриптом показали, что он может конвертировать интернет страницу, но не готовый файл... »

Это как?

Поправил ссылку в сообщении, дабы она указывала на новый, правильный, домен.

AlexLev · Отправлено: **09:05, 04-04-2013** | #13

Iska, я попробовал установить Download Collaboration Data Objects; но при попытке установки вывелась ошибка "Collaboration Data Objects 1.2.1 cannot be installed unless Microsoft Office Outlook 2007 is also installed.".
Надо сказать, что на компьютере стоит Windows XP и Microsoft Office 2003.

По поводу экспериментов, - модифицированный код скрипта (фрагмент, выделение типа PHP для наглядности):

PHP код:


objMsg.CreateMHTMLBody "http://www.yandex.ru", 0 

objMsg.DataSource.SaveToObject objAdo, "_Stream"

objAdo.SaveToFile "2222.mht", 1

// работает

PHP код:


objMsg.CreateMHTMLBody "1111.html", 0 

objMsg.DataSource.SaveToObject objAdo, "_Stream"

objAdo.SaveToFile "2222.mht", 1

// НЕ работает

Iska · Отправлено: **17:13, 04-04-2013** | #14

Цитата AlexLev:

Надо сказать, что на компьютере стоит … Microsoft Office 2003. »

Тогда библиотека CDO у Вас есть.

AlexLev, упакуйте в архив и выкладывайте «1111.html» сюда.

AlexLev · Отправлено: **23:08, 04-04-2013** | #15

Вот сделал, только с другого компьютера: Windows 7, Microsoft Office 2003.

Код:

Ошибка: Указанный протокол неизвестен.
Код: 800C000D
Источник:	CDO.Message!

ругается на строку

Код:

objMsg.CreateMHTMLBody "1111.html", 0

Ссылка на файл вложения:
http://yadi.sk/d/JGTqFtay3nlW0

По ходу вопрос: Почему-то этот файл не удалось подключить через систему сайта, ошибка "Превышает выделенный вам объем вложений на 964.3 Kb.". Хотя для ZIP указан лимит 8 МБ...

Iska · Отправлено: **03:42, 05-04-2013** | #16

AlexLev, никаких проблем:

Код:

Option Explicit

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


With WScript.CreateObject("CDO.Message")
	.AutoGenerateTextBody = True
	.CreateMHTMLBody "file://E:\Песочница\0239\Вложение\1111.html", cdoSuppressNone
	.BodyPart.GetStream().SaveToFile "E:\Песочница\0239\Вложение\1111.mht", 2
End With

WScript.Quit 0

Результат…

AlexLev · Отправлено: **08:17, 05-04-2013** | #17

Iska, благодарю!
Сама логика скрипта мне очень нравится, возможности его настройки.
Но вот почему-то на моём компьютере оно не работает как хотелось бы (в данном случае я опять на Windows XP).
Результат загружается очень быстро, но без картинок! Размер файла разнится с Вашим.

Попутно может кто ответит на вопрос, почему Zip-файл не могу на сайт положить?...

Вложение 2

Iska · Отправлено: **18:08, 05-04-2013** | #18

Цитата AlexLev:

Результат загружается очень быстро, но без картинок! »

У меня аналогично: из {background:url(…)} изображения не сохраняются.

AlexLev · Отправлено: **21:26, 05-04-2013** | #19

Iska, я напомню, что 2-го числа на мой вопрос "... пробовал разные конвертеры из HTM в MHT, и все они не сохраняют картинки...", Вы ответили, что "... скриптами — второй и третий посты этой темы.".
Так что теперь получается, скрипты тоже не могут выполнить эту функцию?

Iska · Отправлено: **21:37, 05-04-2013** | #20

AlexLev, эта ошибка (несохранение изображения, указанного в стиле в качестве подложки) содержится в самой функции сохранения в *.mht средствами IE/CDO. Не думаю, что опробованные Вами конвертеры реализуют какую-то свою функцию сохранения. Потому такой вот результат.

Вам просто следовало переместить акцент, вместо:

Цитата AlexLev:

и все они не сохраняют картинки... »

сказать «они сохраняют не все изображения», тогда бы не возникло недопонимания.