Сохранение веб-страницы в виде файла MHTM - PullRequest
Новая
       10

Сохранение веб-страницы в виде файла MHTM

0 голосов
/ 15 июня 2009

Учитывая определенный URL, я пытаюсь загрузить содержимое этого URL в виде файла MHT. Я подумал написать парсер / сканер, но думаю, что должен быть более быстрый путь.

Я запустил Powershell: 

$ie = new-object -com "InternetExplorer.Application"
$ie.navigate("http://www.example.com")
$ie.document.title # Just to verify the navigate worked

В этот момент я не смог найти способ вызова команд меню, особенно SaveAs.

Любая помощь будет оценена.

1 Ответ

2 голосов
/ 15 июня 2009

с VBScript

Для локальных файлов 

cscript yourscriptname.vbs file:/test.html test.mht

Для удаленных файлов 

cscript yourscriptname.vbs http://www.test.com/test.html test.mht

- 

Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
Const adTypeBinary = 1
Const adTypeText = 2

Set args = WScript.Arguments

if args.Count = 0 then
WScript.Echo "Usage: [CScript | WScript] mht_converter.vbs <html file> <mht filename>"
WScript.Quit 1
end if

Set objMessage = CreateObject("CDO.Message")
objMessage.CreateMHTMLBody args.Item(0)
SaveToFile objMessage, args.Item(1)

Sub SaveToFile(Msg, Fn)
Dim Strm, Dsk
Set Strm = CreateObject("ADODB.Stream")
Strm.Type = adTypeText
Strm.Charset = "US-ASCII"
Strm.Open
Set Dsk = Msg.DataSource
Dsk.SaveToObject Strm, "_Stream"
Strm.SaveToFile Fn, adSaveCreateOverWrite
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...