Forum Discussion
hlalumiere
13 years agoRegular Contributor
Here is a bit of code you can use to benchmark:
Sub PerfTest
Set objProc = Sys.Process("calc")
lngTestStartTime = Win32API.GetTickCount
For x = 1 to 10000
lngStartTime = Win32API.GetTickCount
Do
arrResult = objProc.FindAllChildren(Array("WndCaption", "WndClass"), Array("Calculator", "CalcFrame"), 5, True)
If arrResult(0).Exists Then Exit Do
Loop While Win32API.GetTickCount - lngStartTime < 5000
Next
MsgBox (Win32API.GetTickCount - lngTestStartTime)
End Sub
In TC8.2 the above takes 97.890 seconds, in TC9.0.1312 it takes 170.641 seconds.
Sub PerfTest
Set objProc = Sys.Process("calc")
lngTestStartTime = Win32API.GetTickCount
For x = 1 to 10000
lngStartTime = Win32API.GetTickCount
Do
arrResult = objProc.FindAllChildren(Array("WndCaption", "WndClass"), Array("Calculator", "CalcFrame"), 5, True)
If arrResult(0).Exists Then Exit Do
Loop While Win32API.GetTickCount - lngStartTime < 5000
Next
MsgBox (Win32API.GetTickCount - lngTestStartTime)
End Sub
In TC8.2 the above takes 97.890 seconds, in TC9.0.1312 it takes 170.641 seconds.
Related Content
- 3 years ago
Recent Discussions
- 2 days ago