不注册调用ActiveX Dll(续)

不注册调用ActiveX Dll(续)
(by lingll 完成于2006-2-8 17:24)

那本书(Advanced Visual Basic)中让vb能够函数指针的方法不错,但是要添加类型库,还要自己创建轻量com对象显得颇为麻烦.我想,不如直接利用vb自己建对象算了.
代码如下:

'建一class,如下

'---------------------------------------------------------------------------------------
' Module    : cFucPtr
' DateTime  : 2006-2-7 17:36
' Author    : Lingll
' Email     : lingll_xl@163.com
' HomePage  : http://lingll.yeah.net/
' Purpose   :
'---------------------------------------------------------------------------------------

Option Explicit

'存储加载dll后获得的函数地址
Private m_NewFucPtr As Long

Public Function DllGetClassObject( _
    ByRef rclsid As UUID, ByRef riid As UUID, ByRef ppv As IClassFactory) As Long

End Function

Public Su