IE document >> save as MHT file

mLipok · May 7, 2015

I'm trying to save opened page in one MHT page.

I found many solutions like this:

_INetGetMHT( "http://www.yahoo.com", "C:\test.MHT" )
Func _INetGetMHT( $url, $file )
    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($url, 0)
    $msg.DataSource.SaveToObject($ado, "_Stream")
    FileDelete($file)
    $ado.SaveToFile($file, 1)
    $msg = ""
    $ado = ""
    Return True
EndFunc

but can't find any which show how to save WebPage using AutoIt opened by _IE.. Functions.

but I come to this page:

http://microsoft.public.scripting.vbscript.narkive.com/WqvoHF8S/retrieve-html-from-a-website-using-vbscript#post3

<!-- FileName : SaveMhtmEn.hta -->
<html><head><script language=vbs>
Dim EvtSrc, WS, FS, URL, Path, Title, EN

Set WS = CreateObject("WScript.Shell")
Set FS = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set EvtSrc=external.menuarguments.event.srcelement
EN = Err.Number
On Error GoTo 0
If EN <> 0 Then Reg_UnReg
'
Sub SaveAsMhtml()
URL = EvtSrc.Href
If IsNull(URL) Or LCase(Left(URL, 7)) <> "http://" Then _
ShowMessage 1
Path = "%userprofile%\My Documents\HomePages\"
Path = WS.ExpandEnvironmentStrings(Path)
If Not FS.FolderExists(Path) Then FS.CreateFolder Path
external.menuarguments.status = "Now downloading..."

With CreateObject("InternetExplorer.Application")
.Navigate URL
Do While .Busy: Loop
Title = .Document.Title:If Title = "" Then Title = ":"

With CreateObject("CDO.Message")
On Error Resume Next
.CreateMHTMLBody(URL)
If Err Then On Error GoTo 0: ShowMessage 2
FS.CreateTextFile Path & Title & ".mht"
If Err Then _
Title = Replace(Date, "/", "_") & "_" & Replace(Time, ":", "_")
On Error GoTo 0
.BodyPart.GetStream.SaveToFile Path & Title & ".mht", 2
End With

.Quit
End With

external.menuarguments.status = ""
ShowMessage 3
End Sub
'
Sub ShowMessage(Mes)
Select Case Mes
Case 1: WS.PopUp "No link address.", 2
Case 2: WS.PopUp "Downloading failed", 2
Case 3: WS.PopUp "Downloading finished.", 2
End Select
window.close
End Sub
'
Sub Reg_UnReg()
Const RootKey = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\"
Const Name = "SaveAs &Mht Format"
Dim Path, TKey, Dummy, EN
Path = document.urlunencoded
TKey = RootKey & Name & "\"
On Error Resume Next
Dummy = WS.RegRead(TKey): EN = Err.Number
On Error GoTo 0
If EN = 0 Then
WS.RegDelete TKey
WS.PopUp "Deleted from context menu", 2
Else
WS.RegWrite TKey, Path, "REG_SZ"
WS.RegWrite TKey & "contexts", &H20, "REG_DWORD"
WS.PopUp "Added to context menu", 2
End If
window.close
End Sub
</script></head><body onload=SaveAsMhtml></body></html>

Question:

How to use this code in page opened by AutoIt _IE... functions ?

Best regards,

mLipok

Edited April 23, 2016 by mLipok

Danp2 · May 7, 2015

Looks to me as if the vbscript version is using a similar approach to the autoit version (using a CDO object's CreateMHTMLBody method).

Edited May 7, 2015 by Danp2

TheSaint · May 8, 2015

I'm a little confused (as usual).

Are you using a local HTML page or a URL?

Are you trying to save that page as a MHT page or extracting something from a MHT page and trying to save as HTML?

Danp2 · May 8, 2015

I believe that he wants to save the currently opened IE page into an MHT.

mLipok · May 8, 2015

I believe that he wants to save the currently opened IE page into an MHT.

Exactly

mLipok · May 14, 2015

Here are some more info

http://www.codeproject.com/KB/files/MhtBuilder.aspx?fid=104741&df=90&mpp=25&noise=3&sort=Position&view=Quick&select=2381970

mLipok · May 14, 2015

and here is a solution:

http://www.codeproject.com/Articles/2847/Automated-IE-SaveAs-MHTML

But my c++ knowledge is very poor.

So I have a question can somebody translate this cod to AutoIt ?

Best regards,

mLipok

mLipok · October 29, 2015

some small progress

#include <MsgBoxConstants.au3>
#include <ie.au3>
_IEErrorHandlerRegister(_My_ErrFunc)

;~ https://msdn.microsoft.com/en-us/library/hh772065(v=vs.85).aspx
;~ https://msdn.microsoft.com/en-us/library/ms535231(v=vs.85).aspx

Example()

Func Example()
     ;; Local $oIE = _IECreate('http://samples.msdn.microsoft.com/workshop/samples/css/cssText/cssText.html',1)
     
     ; this following site is better for example
     Local $oIE = _IECreate('http://www.w3schools.com/css/default.asp',1)

    _IE_SaveToFile($oIE,@ScriptDir & '\Save_Example_NoCSS.html', False)
    ShellExecute(@ScriptDir & '\Save_Example_NoCSS.html')
    _IE_SaveToFile($oIE,@ScriptDir & '\Save_Example_WithCSS.html', True)
    ShellExecute(@ScriptDir & '\Save_Example_WithCSS.html')

EndFunc   ;==>Example

Func _IE_CSSGetAll(ByRef $oIE)
    Local $oStyle_coll = $oIE.document.styleSheets
    If @error Then MsgBox($MB_ICONERROR, '$oIE.document.styleSheets', _
            '@error = ' & @error & @CRLF & '@extended = ' & @extended)

    Local $sCSS_Styles = ''
    For $oStyle_enum In $oStyle_coll
        $sCSS_Styles &= $oStyle_enum.cssText & @CRLF
    Next
    Return SetError(0, 0, $sCSS_Styles)

EndFunc   ;==>_IE_CSSGetAll

Func _IE_SaveToFile($oIE, $sHTML_FileFullPath, $bSaveCSS = False)

    If $bSaveCSS Then
        Local $sCSS_Styles = _IE_CSSGetAll($oIE)

        Local $oNewNode = $oIE.document.createElement('Style')
        $oNewNode.setAttribute('type', 'text/css');
        Local $oHead = $oIE.document.head
        $oHead.insertBefore($oNewNode, $oHead.childNodes.Item(1))
        $oNewNode.innerText = $sCSS_Styles
    EndIf


    Local $sHTML_Content = _IEDocReadHTML($oIE)
    Local $hFileOpen_CSSExample = FileOpen($sHTML_FileFullPath, $FO_OVERWRITE + $FO_CREATEPATH + $FO_UTF8)
    FileWrite($hFileOpen_CSSExample, $sHTML_Content)
    FileClose($hFileOpen_CSSExample)


EndFunc   ;==>_IE_SaveToFile

; User's COM error function. Will be called if COM error occurs
Func _My_ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptFullPath & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_My_ErrFunc

Edited October 29, 2015 by mLipok
url changed in example, again.

TheSaint · October 30, 2015

I presume you have read the following for some insight.

https://en.wikipedia.org/wiki/MHTML

mLipok · October 30, 2015

Thanks for the link.

TheSaint · October 30, 2015

No worries, Wikipedia tends to be my first port of call theses days, just to get the basics on an interest.

I had it in my mind, that I had heard that MHTML was just some kind of fancy zip archive, and I wanted to confirm that before mentioning it to you. Unfortunately I didn't find any mention of that during my quick look.

mLipok · October 30, 2015

My TODO short list:

get all image to disc
<img alt="Embedded Image" src="data:image/png;base64, ......

Question:

How I can encode jpg file to Base64 - this time I please about AutoIt working solution .

mLipok · October 30, 2015

I had it in my mind, that I had heard that MHTML was just some kind of fancy zip archive, and I wanted to confirm that before mentioning it to you. Unfortunately I didn't find any mention of that during my quick look.

All web content can be saved as a single MHT file,

EDIT:
and this is exactly what I'm trying to do.
Need some help:

Question:
How I can encode jpg file to Base64 - this time I please about AutoIt working solution .

Edited October 30, 2015 by mLipok

TheSaint · October 30, 2015

All web content can be saved as a single MHT file,

More correctly speaking, a container file, as ZIP (ISO, etc) is a container file ... hence the notion they may be similar.

IE document >> save as MHT file

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Similar Content