Forum Discussion
lucist
12 years agoOccasional Contributor
Hi Robert,
You can try the below function:
Sub findobject(PropArray, ValuesArray, path)
Dim val,w
Set w = path.FindChild(PropArray, ValuesArray, 10)
If w.Exists then
val = true
else
val = false
End if
If val = True Then
Set Result = Runner.CallObjectMethodAsync(Sys, "HighlightObject", w, 5)
Log.Message "The object "&ValuesArray&" is displayed on page", Nothing, pmNormal, Nothing, path
While Not Result.Completed
aqUtils.Delay 100
WEnd
Else
Set Result = Runner.CallObjectMethodAsync(Sys, "HighlightObject", path, 5)
Log.Warning "The object "&ValuesArray&" was not found.", Nothing, pmNormal, Nothing, path
While Not Result.Completed
aqUtils.Delay 100
WEnd
End If
I am having the same problem as you if I lower the number of flashing times(currently is set to 5) from the below line code :
Set Result = Runner.CallObjectMethodAsync(Sys, "HighlightObject", w, 5)
Please let me know if it helps,
Lucian
You can try the below function:
Sub findobject(PropArray, ValuesArray, path)
Dim val,w
Set w = path.FindChild(PropArray, ValuesArray, 10)
If w.Exists then
val = true
else
val = false
End if
If val = True Then
Set Result = Runner.CallObjectMethodAsync(Sys, "HighlightObject", w, 5)
Log.Message "The object "&ValuesArray&" is displayed on page", Nothing, pmNormal, Nothing, path
While Not Result.Completed
aqUtils.Delay 100
WEnd
Else
Set Result = Runner.CallObjectMethodAsync(Sys, "HighlightObject", path, 5)
Log.Warning "The object "&ValuesArray&" was not found.", Nothing, pmNormal, Nothing, path
While Not Result.Completed
aqUtils.Delay 100
WEnd
End If
I am having the same problem as you if I lower the number of flashing times(currently is set to 5) from the below line code :
Set Result = Runner.CallObjectMethodAsync(Sys, "HighlightObject", w, 5)
Please let me know if it helps,
Lucian
Related Content
- 5 years agojonathon
- 9 years agotwhitehouse
Recent Discussions
- 2 days agoMW_Didata