[UFT 12.52/VBScript] Test object exist, is visible and enabled before take an action

[sparkwanted]

I'm automating tests using UFT 12.52 for an application.

I captured the objects for a repository and then started to create a sequence of actions on the objects.
However, there is a frequent problem. Before calling an action on an object it needs to exist, be visible and in some cases enabled(case of textboxes).
To solve this problem I thought, before the call to any action on the object, test if the object exists, is visible and enabled, if the 3 or 2 properties are true, then make a action with the object. Testing these properties of the object would be done until a timeout has been exceeded. If the timeout was exceeded an exception would be thrown to be handled.

I developed the code below, but the result is very unstable behavior:

• Non-recognition of the current object being tested
  
• No recognition of the parent object
  
• UFT starts to test an object of the 2nd line, before executing the action on the object of the 1st line ...
  

I share the following code and the following doubts:

• Is there a UFT/VBScript solution that solves this problem?
  
• If there is a problema in my algorithm, where are the errors?
  

Thank you for your attention.
Could someone help me?
Any help will be welcome.

Code:

Function test clickObj SwfWindow("<parent object name 1 >").SwfButton("<child object name 1>"), true clickObj SwfWindow("<parent object name 2 >").SwfButton("<child object name 2>"), false End Function Function clickObj(obj, isEnabled) If (prepareObj(obj, isEnabled) = true) Then obj.Click Else Err.Raise 424 'Error 424 = "Object required" End if End Function Function prepareObj(obj, isEnabled) If isEnabled = true Then If ((testObjProperty(obj,"exist") = true) And (testObjProperty(obj,"visible") = true) And (testObjProperty(obj,"enabled") = true)) Then prepareObj = true else prepareObj = false End If Else If ((testObjProperty(obj,"exist") = true) And (testObjProperty(obj,"visible") = true)) Then prepareObj = true else prepareObj = false End If End If print "end prepareObj " & obj.GetTOProperty("TestObjName") End Function Function testObjProperty(obj, propertyName) Dim startTime : startTime = Timer Dim elapsedTime : elapsedTime = 0 Dim propertyOk : propertyOk = false Dim timeout : timeout = 45 Do Select Case propertyName Case "exist" propertyOk = obj.Exist(1) Case "visible" propertyOk = obj.GetROProperty("visible") Case "enabled" propertyOk = obj.GetROProperty("enabled") End Select If propertyOk = true Then testObjProperty = true Exit Function Else elapsedTime = Timer - startTime End If Loop While timeout > elapsedTime testObjProperty = false End Function