我正在尝试获取对象的文本属性。在这种情况下,我使用记事本并尝试通过以下代码段获取属性。但我的问题是我能够获取所有属性,包括值为对象的属性。如何我可以限制同样的吗?
片段如下:
Public Function Object_getObjectProperties(oInteraction)
Set props = aqObject.GetProperties(oInteraction.guiObject, false)
sProperties = ""
While props.HasNext
Set prop = props.Next
If(sProperties<>"") Then
sProperties = sProperties + INSTRUCTION_VALUE_SEPARATOR + prop.Name
Else
sProperties = prop.name
End If
Wend
Object_getObjectProperties = sProperties
End Function