产品类库

一、类库简介

    针对ActiveX DLL和ActiveX OCX，使用本类库可以给调用这些COM组件的EXE创建内置和外置manifest清单

    manifest清单可以用于替代注册表信息

    达到不注册到注册表在客户机上New对象的能力

    1、内置manifest的优先级高于外置manifest

    2、外置manifest命名  exe文件名.manifest

    3、在开发机上需要注册该DLL/OCX，发布到客户机后，不需要注册该DLL/OCX

二、类库特性

    1、COM方式和导出函数

    2、创建内置或外置manifest

    3、函数列表

    CreateManifest/MB_CreateManifest  创建一个新的Manifest文件/句柄

    AddXPStyle/MB_AddXPStyle 给exe指定XP视觉样式

    AddUAC/MB_AddUAC(blHighest) 添加管理员权限，参数False=requireAdministrator，参数True=highestAvailable

    AddDPI/MB_AddDPI  添加DPI自动适配特性

    AddCompatibility/MB_AddCompatibility  添加vista-win11兼容性特征

    AddCOM/MB_AddCOM((strFilePathPEorTLB As String, [RelativePath], [blInnerProxy As Boolean = True], [OutputType As Long = 2])) 核心方法，创建COM免注册信息

        必填参数：strFilePathPEorTLB:可以指定dll/ocx或者tlb，支持指定内置资源编号：c:\1.dll/1（表示1号资源）

        可选参数：RelavePath，用于且仅用于设置相对路径，例如/ocx/表示当前exe目录ocx子目录下，读取对应com文件

        可选参数：blInnerProxy，默认True，暂时没有研究出来进程外manifest的用法，所以本库暂时这个参数只能填True或者忽略这个参数

        可选参数：OutputType，输出颗粒度，0=仅coclass，1=coclass+事件接口，2=coclass和全部接口

    ReadManifest/MB_ReadManifest，从exe读取manifest字符串

    WriteManifest/MB_WriteManifest(strExeFilePath As String, [blWriteIn As Boolean = False])，输出manifest

        strExeFilePath：目标exe完整路径

        blWriteIn: 可选参数，是否写入exe内部，默认False

    ManifestString/MB_GetManifestString，获取执行到目前的当前manifest字符串

    WriteManifestFromFile/MB_WriteManifestFromFile(strExeFilePath As String, strManifestFilePath As String) 将已有manifest文件写入exe

    MB_ActiveManifest(hManifest As Long, pResult As Long)，在当前进程中激活Manifest

        导出函数时执行hManifest句柄

        COM调用时，直接Active

Dim mb As New ManifestBuilder
mb.CreateManifest
mb.AddCOM "C:\MyApp\MyControl.ocx"

If mb.ActiveManifest Then  '手动激活manifest
    Dim obj As Object
    Set obj = CreateObject("MyControl.MyClass")  '这里createobject或者new在客户机上都是OK
    obj.DoSomething  '调用对象
End If

三、简单使用

Sub Main()
    'COM方式
    Dim m As ManifestBuilder
    Set m = New ManifestBuilder
    m.TLBReadingType = TLBReadingType_API
    m.CreateManifest
    m.AddDPI
    m.AddUAC True
    m.AddXPStyle
    m.AddCompatibility
    m.AddCOM "C:\Users\Administrator\Desktop\GoLib\dlls\EventApp\Ref\test\ocx\ocx\vbccr18.ocx", "ocx\ocx", True, 2
    m.WriteManifest "C:\Users\Administrator\Desktop\GoLib\dlls\EventApp\Ref\test\工程1.exe", True
    '导出函数方法
    'Dim h As Long
    'MB_CreateManifest h
    'MB_AddDPI h
    'MB_AddUAC h, 1
    'MB_AddXPStyle h
    'MB_AddCompatibility h
    'MB_AddCOM h, "C:\Users\Administrator\Desktop\GoLib\dlls\EventApp\Ref\test\ocx\ocx\vbccr18.ocx", "ocx\ocx", 1, 2
    'MB_WriteManifest h, "C:\Users\Administrator\Desktop\GoLib\dlls\EventApp\Ref\test\test_api_version.exe", 0
End Sub

四、下载地址

        跳转下载