VBS的TLI.TLIApplication怎么准确显示属性和方法？

czjt1234

如果对象能响应事件，这个可以读取所有事件名

1. Set objTLIApplication = CreateObject("TLI.TLIApplication")
   
2. Set objSWbemSink = Wscript.CreateObject("WbemScripting.SWbemSink", "Sink_")
   
3. Set objTypeInfo = objTLIApplication.ClassInfoFromObject(objSWbemSink)
   
4. s = ""
   
5. Set objInterfaceInfo = objTypeInfo.DefaultEventInterface
   
6. Set objMembers = objInterfaceInfo.Members    '如果对象没有事件，这行会报错
   
7. For Each objMemberInfo In objMembers
   
8.     s = s & objMemberInfo.Name & vbCrLf
   
9. Next
   
10. Msgbox s

复制代码

但是读取属性和方法时，发现有多余的显示和重复显示
请问为什么会有多余和重复
怎么区分哪个是属性哪个是方法？

1. Set objDictionary = CreateObject("Scripting.Dictionary")
   
2. Set objTLIApplication = CreateObject("TLI.TLIApplication")
   
3. Set objTypeInfo = objTLIApplication.ClassInfoFromObject(objDictionary)
   
4. s = ""
   
5. Set objInterfaceInfo = objTypeInfo.DefaultInterface
   
6. Set objMembers = objInterfaceInfo.Members
   
7. For Each objMemberInfo In objMembers
   
8.     s = s & objMemberInfo.Name & vbCrLf
   
9. Next
   
10. Msgbox s

复制代码