vb Code
在CreateObject调用之前,先调用CreateObjectEx函数
下面实现,这样可以知道我们的Class参数是否能创建成功!!!
Type CLSID
Data1 as long
Data2as 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.printHex(myclid.Data1)
debug.printHex(myclid.Data2)
debug.printHex(myclid.Data3)
debug.printHex(myclid.Data(0)) & Hex(myclid.Data(1)) & Hex(myclid.Data(2)) & Hex(myclid.Data(3)) & vbcrlf
debug.printHex(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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。