DyCOMHelperLib--轻松构建轻量对象、轻松注册\反注册ActiveX、动态类工厂等
纯代码不超过3000行，但是技术点还是蛮多的，用了20几天，终于写完了。现在免费发布出来，供广大VB爱好者使用。
CSDN不能上载，留Email索要示例源码及DLL。
代码参考了Matthew Curland的相关书籍，及Paul Caton的StdCall的相关源码。
DLL是一个标准Dll。通过API调用的方式使用，不用注册。
Dll中内置一了一组对象，这些对象的实现均为轻量对象，起步内存占用为12-16字节，跟VB类起步96字节，资源消耗极低。
COMHelper 主对象
COMLoader 加载ActivexDll，在不注册的情况下CreateInstance，使用完后，释放完毕，Unload即可。此时该
ActivexDll文件时可以被删除等操作的。
COMType 内部辅助类，一个接口的类型
COMTypes 接口的组合
Debug 在编译后，任可输出Debug信息。需要用到一个叫做VBTracer的东东
DerefEBP 用户获取当前函数参数信息，特别对于将ParmaArray类参数向外传递有意义。
DynamicClassFactory 动态[code=VB][/code]类工厂。动态创建接口，实现接口，并可以调用。详细看例子。
Err 处理轻量对象的错误返回。
GUID 内部辅助类，接口参照.net framework下GUID的成员编写。
StdCaller 对某一标准模块函数传递参数、调用，
这个Helper主要功能是：
1、用它可以以极少的代码，轻易构建轻量对象
a、IUnknown\IDispatch被内置实现，外部只需实现接口的成员函数即可。未来，我将制作一个插件，支持将现有VB类实现转为轻量对象实现，对应的类型库自动生成。
b、轻量对象，如果仅仅实现一个接口即默认接口，占用空间起步12字节，如果是可以实现若干个接口，比如一个对象Room，同时实现IObject、ICloneable,那么起步占用16字节+4+4，即每实现增加一个接口增加4字节。
2、FunctionDelegator,动态Redirect你的函数调用
'比如 有一个接口ICaller，有两个成员定义如下 Sub CallSub(ByRef a As Long, ByRef b As Long) Function CallFunc(ByRef a As Long, ByRef b As Long) As Long '那么我们可以这么定义一个FunctionDelegator Dim oCaller As ICaller Set oCaller = COMHelper.FunctionDelegator.NewDelegator(2) '//生成一个Delegator，它有2个成员 '同时，我们在一个标准模块里定义了两个要指向执行的函数 Private Sub pTestCallSub(ByRef a As Long, ByRef b As Long) Private Function pTestCallFunc(ByRef a As Long, ByRef b As Long) As Long '//那么 Call COMHelper.FunctionDelegator.Redirect(oCaller, AddressOf pTestCallSub) '//将该Delegator的函数执行指向 pTestCallSub方法 Call oCaller.CallSub（1,2） '//执行这一句，将自动转向pTestCallSub这个方法。注意 pTestCallSub的定义一定要跟接口ICaller.CallSub的定义是一致的。
Private Sub pTestRegisterServer() Call COMHelper.UnregisterActiveX("C:\WINDOWS\system32\scrrun.dll") Debug.Print TypeName(CreateObject("Scripting.Dictionary")) '//将报错，因为已经被注销 Call COMHelper.RegisterActiveX("C:\WINDOWS\system32\scrrun.dll") Debug.Print TypeName(CreateObject("Scripting.Dictionary")) '//可以执行，因为已经被重新注册End SubPrivate Function pTestClassLoader() Dim o As Object ' Dictionary Dim oLoader As DyComHelperType.COMLoader Dim sClsID As String Set oLoader = COMHelper.NewCOMLoader("C:\WINDOWS\system32\scrrun.dll") Set o = oLoader.CreateObject("Dictionary") '//初始化 Dictionary类 Debug.Print TypeName(o) o.Add "Key1", 1 o.Add "Key2", 2 Debug.Print o.Count Debug.Print oLoader.CanUnloadNow '//看看能不能卸载该Dll。返回值为False，因为该Dll有实例未释放 Set o = Nothing Debug.Print oLoader.CanUnloadNow '//这次可以释放了 sClsID = oLoader.GetCLSIDFromName("Dictionary") '//根据名称加载是很慢的，尝试根据ClsID 加载，如果多次重复加载某一对象，这么处理将会有极大效率提升 Set o = oLoader.CreateObjectFromCLSID(sClsID) '//初始化 Dictionary类 Debug.Print TypeName(o) o.Add "Key1", 1 o.Add "Key2", 2 Set o = Nothing Debug.Print oLoader.Unload Set oLoader = Nothing '//释放Dll End Function