[решено] Преобразовать *.html в *.mht

amel27 · Отправлено: **12:07, 22-11-2009** | #3

есть вариант на AutoIT c использованием ADO, если перевести на VBS:

Код:

FileIn  = Wscript.arguments.Item(0)
FileOut = Wscript.arguments.Item(1)

INetGetMHT FileIn, FileOut

Sub INetGetMHT (strURL, strFile)
   Dim objMsg, objAdo

   Set objMsg = CreateObject("CDO.Message")
   Set objAdo = CreateObject("ADODB.Stream")

   objAdo.Type = 2
   objAdo.CharSet = "US-ASCII"
   objAdo.Open

   objMsg.CreateMHTMLBody strURL, 0 
   objMsg.DataSource.SaveToObject objAdo, "_Stream"

   objAdo.SaveToFile strFile, 1
End Sub

Код:

CScript //NoLogo HTM2MHT.VBS C:\TEST\Test.htm C:\TEST\Test.mht

З.Ы. на sourceforge есть отличная утилита HTML to MHT converter, но к сожалению, она не поддерживает командную строку... в принципе, несложно переделать исходник - достаточно переписать MAIN(), но увы - возможностей VC Express Edition для этого не хватает - требуется поддержка ATL, которая доступна только в Standard Edition...