WebArchiveX COM API

using WaxLib;

// Here goes code of namespace, class etc.

try
{
    WaxLib.Builder wa = new WaxLib.BuilderClass();

    // Second parameter is user agent string - leave empty to use default
    Boolean b = wa.MakeArchive(inputPath.Text, "", outputPath.Text);
    if (b)
        MessageBox.Show("OK");
    else
        MessageBox.Show("Error");
}
catch (Exception ex)
{
    MessageBox.Show(ex.ToString());
}

try
{
    var webArchive = new ActiveXObject("WebArchiveX.Builder");
    webArchive.SetCharset("windows-1255");         // Set charset to Hebrew (Windows)
    webArchive.AddMimeType("jp2", "image/jpeg");   // Use also JPEG2000
    webArchive.AddResourceTag("a", "href");        // Collect linked documents
    webArchive.AddResourceTag("frame", "src");     // Collect frames
    webArchive.AddResourceTag("iframe", "src");    // Collect internal frames

    var b = webArchive.MakeArchive("c:\\input\\rootfile.htm", "", "c:\\output\\webarchive.mht");
    if (b == true)
        WScript.echo("MakeArchive succeeded");
    else
        WScript.echo("MakeArchive failed");
}
catch(e)
{
    WScript.echo("ERROR: " + e.description);
}

<%@ Language=VBScript%>  

' Create web archive object
Dim oWebArchive, sUserAgent
Set oWebArchive = Server.CreateObject("WebArchiveX.Builder")
Set sUserAgent = Request.ServerVariables.Item("HTTP_USER_AGENT")

' Set correct content type for the web archive
Response.ContentType = "message/rfc822"

' Restore initial state   
Call oWebArchive.Initialize()

' Make archive and write the MHT directly into Response
oWebArchive.MakeArchiveStream "C:\inetpub\wwwroot\test\test.html", sUserAgent, Response

<%@ Language=JavaScript%>  

' Create web archive object
var oWebArchive = Server.CreateObject("WebArchiveX.Builder");
var sUserAgent = Request.ServerVariables.Item("HTTP_USER_AGENT");

' Set correct content type for the web archive
Response.ContentType = "message/rfc822";

' Restore initial state   
oWebArchive.Initialize();

' Make archive and write the MHT directly into Response
oWebArchive.MakeArchiveStream("C:\\inetpub\\wwwroot\\test\\test.html", sUserAgent, Response);

Private Sub CreateWebArchive()
On Error GoTo ErrorHandler
    Dim WebArchive
    Set WebArchive = CreateObject("WebArchiveX.Builder")

    ' Restore initial state
    Call WebArchive.Initialize()                     

    ' Set Russian encoding
    WebArchive.SetCharset "windows-1251"        

    ' Include frames
    WebArchive.AddResourceTag "frame", "src"    

    ' Build the archive
    WebArchive.MakeArchive "c:\in.htm", "", "c:\out.mht"

    Exit Sub
ErrorHandler:
    MsgBox ("ERROR: " & Err.Description) ' Show friendly error message
End Sub

// Put this block in a implementation file head
#import "webarchivex.dll" no_namespace named_guids
static inline void TESTHR(HRESULT x)
{
    if (FAILED(x))
        _com_issue_error(x);
}

// Use smart pointer to create and instance of WebArchiveX component
// and make a sample archive using all default properties
bool CreateWebArchive(const CString& sInputPath, const CString& sOutputPath)
{
    IBuilderPtr spBuilder;
    try
    {
        TESTHR(spBuilder.CreateInstance(CLSID_Builder));

        // Restore initial state
        spBuilder->Initialize();

        // Create Web Archive will all default settings
        spBuilder->MakeArchive(_bstr_t(sInputPath), L"", _bstr_t(sOutputPath));

        AfxMessageBox("WebArchive is ready at: " + sOutputPath);
    }
    catch(_com_error& e)
    {
        CString sMsg("ERROR: ");
        AfxMessageBox(sMsg + (const char *)e.Description());
    }
}