You could try an approach or similar like this.......
Add the following class....
Public Class perfLogger
Dim startT As System.DateTime
Dim endT As System.DateTime
Dim span as System.TimeSpan
Public Sub New
End Sub
Public Sub startLog
me.startT = now
End Sub
Public Sub pauseLog
me.endT = now
me.span += me.endT - me.startT
End Sub
Public Function StopLog As system.TimeSpan
me.pauseLog
Return me.span
End Function
End Class
Then use as below to start and stop the logger -
Public Sub timeTest
'create a new logger
Dim logger as New perfLogger
'start the logger
logger.startLog
'code you are measuring here
'pause the logger for Ranorex search time
logger.pauseLog
Dim listitem As Ranorex.ListItem = "/desktop[@processname='explorer']/container/list/listitem[@text='Windows Media Player']"
'start the logger again
logger.startLog
listitem.MoveTo
'report the time
report.Info("Time",logger.StopLog.totalseconds.tostring())
End SubHope this helps!
Scott