打造自己的CreateObject函数（VB）

vb Code

 

在CreateObject调用之前，先调用CreateObjectEx函数

下面实现，这样可以知道我们的Class参数是否能创建成功！！！

 

Type CLSID

   Data1 as long

   Data2 as Integer

   Data3 as Integer

   Data(7) as byte

end Type

 

public declare Function CLSIDFromProgID lib "Ole32.dll" (Byval  lpszProgID as long,pClsid as CLSID) as long

 

 

public Function CreateObjectEx(Class as string) as object

 

'--注意最好写上

on error goto ErrHandler

 

     dim myclsid as CLSID

     dim lngRet as long

     dim Obj

     lngRet  = CLSIDFromProgID (strptr(Class),  myclid)

     debug.print   Hex(myclid.Data1)

debug.print   Hex(myclid.Data2)

debug.print   Hex(myclid.Data3)

debug.print   Hex(myclid.Data(0))  & Hex(myclid.Data(1))  & Hex(myclid.Data(2))  & Hex(myclid.Data(3))  &  vbcrlf

debug.print   Hex(myclid.Data(4))  & Hex(myclid.Data(5))  & Hex(myclid.Data(6))  & Hex(myclid.Data(7))  &  vbcrlf

 

    '--如果打印出来的全是0，说明我们CreateObject的组件在系统中不存在或者被破坏了

   if xxx=0 and xx=00....then

      '----Error!!!

   else

      debug.print "--ok" & vbcrlf

      Set Obj = CreateObject(Class)

      set CreateObjectEx = obj

   end if

 

set obj = nothing

Exit Function

 ErrHandler:

   msgbox err.number & vbcrlf & err.description

   debug.print "---Error!" & vbcrlf

end function