vb.net 通过类厂创建com对象的方法

    vb.net中要创立com对象可以用new或者CreateObject,就像C++中的CoCreateInstance，一步调用就直接创建了com对象。在它们之中包括了对CoGetClassObject和CreateInstance的调用。默认使用的类厂是IClassFactory。 
    一般情况下，new或CreateObject已经够用了。但是如果我们的com组件增加了授权，也就是使用了IClassFactory2接口。那么在vb中继续用这种方法就不能创建我们所需要的组件了。我们必须使用IClassFactory2。
    在C++中实现很简单。只需要通过CoGetClassObject获得IClassFactory2接口，然后调用它的CreateInstanceLic来创建组件。
    因此，在vb.net中,我们就可以仿照c++中的方法。下面是相关代码：
    首先声明IClassFactory2的接口。IClassFactory2.idl如下：

[
    uuid(6ED6AF97-F279-4d57-A392-0B8ACF89426C),
    version(1.0),
    helpstring("INVENTOROCIDL Type Library 1.0")
]
library INVENTOROCIDL
...{
    interface IClassFactory2;

    typedef enum enuCLSCTX
    ...{
        enuCLSCTX_INPROC_SERVER    = 1,
        enuCLSCTX_INPROC_HANDLER   = 2,
        enuCLSCTX_LOCAL_SERVER     = 4,
        enuCLSCTX_REMOTE_SERVER    = 16,
        enuCLSCTX_NO_CODE_DOWNLOAD = 400,
        enuCLSCTX_NO_FAILURE_LOG = 4000,
        enuCLSCTX_SERVER    = (1 | 4 | 16),
        enuCLSCTX_ALL       = (2 | 1)
    } CLSCTX;

    [
        object,
        uuid(B196B28F-BAB4-101A-B69C-00AA00341D07),
        pointer_default(unique)
    ]

    interface IClassFactory2 : IClassFactory
    ...{
        typedef IClassFactory2 * LPCLASSFACTORY2;

        typedef struct tagLICINFO ...{
            LONG cbLicInfo;
            BOOL fRuntimeKeyAvail;
            BOOL fLicVerified;
        } LICINFO;

        typedef struct tagLICINFO * LPLICINFO;

        HRESULT GetLicInfo(
            [out, retval] LICINFO * pLicInfo
            );

        HRESULT RequestLicKey(
            [in] LONG dwReserved,
            [out, retval] BSTR * pBstrKey
            );

        [local]
        HRESULT CreateInstanceLic(
            [in] IUnknown * pUnkOuter,
            [in] IUnknown * pUnkReserved,
            [in] GUID* riid,
            [in] BSTR bstrKey,
            [out, retval, iid_is(riid)] PVOID * ppvObj
            );

    }
}

用midl编译成IClassFactory2.tlb，并导入到vb.net的工程当中。
声明如下api用于得到IClassFactory2接口：
    Declare Function CoGetClassObject Lib "ole32.dll" (ByRef rclsid As Guid, ByVal context As Short, ByRef serverInfo As IntPtr, ByRef riid As Guid, ByRef ppv As IntPtr) As Integer
添加如下代码：

Const bstrInventorApplication As String = "{B6B5DC40-96E3-11d2-B774-0060B0F159EF}"
    Const bstrIClassFactory2 As String = "{B196B28F-BAB4-101A-B69C-00AA00341D07}"
    Const bstrIDispatch As String = "{00020400-0000-0000-C000-000000000046}"

    Private IClsFry2 As INVENTOROCIDL.IClassFactory2 
    Dim bstrLicence As String = "12345678"   'licence key
    Dim guidInventorApplication As Guid = New Guid(bstrInventorApplication)
    Dim guidIClassFactory2 As Guid = New Guid(bstrIClassFactory2)
    Dim guidIDispatch As Guid = New Guid(bstrIDispatch)
    Dim InventorGuid As INVENTOROCIDL.GUID  'used by CreateInstanceLic,defined in INVENTOROCIDL

     'transform Guid of IDispatch to INVENTOROCIDL.GUID
      Dim byteArry() As Byte = guidIDispatch.ToByteArray()
      Dim MyGC As GCHandle = GCHandle.Alloc(byteArry, GCHandleType.Pinned)
      InventorGuid = CType(Marshal.PtrToStructure(MyGC.AddrOfPinnedObject, InventorGuid.GetType()), INVENTOROCIDL.GUID)

      'get the IClassFactory2 Interface
      Dim obj As IntPtr
      CoGetClassObject(guidInventorApplication, CInt(INVENTOROCIDL.enuCLSCTX.enuCLSCTX_LOCAL_SERVER), Nothing, guidIClassFactory2, obj)
       IClsFry2 = CType(Marshal.GetTypedObjectForIUnknown(obj, System.Type.GetTypeFromCLSID(guidIClassFactory2)), INVENTOROCIDL.IClassFactory2)

        'create Inventor Instance by using Licence
       obj = IClsFry2.CreateInstanceLic(Nothing, Nothing, InventorGuid, bstrLicence)
        InvApp = CType(Marshal.GetTypedObjectForIUnknown(obj, System.Type.GetTypeFromCLSID(guidInventorApplication)), Inventor.Application)

致此创建成功！