QTP恢复场景-处理找不到列表项或菜单的情况

relevantcodes.com的这篇文章《Recovery Scenario Test Run Error: Item in list or menu not found》介绍了QTP中用Recovery Senario处理找不到列表项或菜单的情况：

http://relevantcodes.com/recovery-scenario-test-run-error-item-in-list-or-menu-not-found/

 

 

在定义的恢复场景中使用了Recovery_ListItemIsNotFound这个函数来对错误作出处理：

Function Recovery_ListItemIsNotFound(Object, Method, Arguments, retVal)

     Dim sAllItems, arrAllItems, intItem

 

     With Object

          'Retrieve all items from the Listbox

          sAllItems = .GetROProperty("all items")

          'Split 'all items' using a delimiter ";" into an array

          arrAllItems = Split(sAllItems, ";")

 

          'Select a random number

          intItem = RandomNumber.Value(LBound(arrAllItems), UBound(arrAllItems))

          .Select "#" & intItem

 

          Reporter.ReportEvent micInfo, "ListItemIsNotFound", "Item: " & .GetROProperty("value")

     End With

End Function

 

函数的各项参数的意义如下：

Object as Object: The object of the current step.

Method as String: The method of the current step.

Arguments as Array: The actual method's arguments.

Result as Integer: The actual method's result.