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.