在自动化程序的运行过程中,经常因为环境问题或者代码本身不完善而出现流程不能顺利进行下去的情况,或者会有一些“随机”的提示框(如“操作太快,页面不能及时处理”),这时QTP会产生错误提示,对于这些提示,完全忽略不可取,最好的是及时记录当前错误内容,重复当前操作,当错误提示累计到一定数量,中止当前流程。
本文提供一种QTP运行错误的捕捉和记录方法
结合QTP本身的场景恢复机制,可以很好的解决该问题
首先在恢复场景中定义场景恢复策略
选择需要捕捉的错误种类
定义捕捉错误后的处理,此处定义一个异常处理函数
函数定义如下:
'----------------------------------------------------------------
'函数功能:对象错误记录
'修改说明: ADD BY WeiWei 2007.07
'----------------------------------------------------------------
‘ Object-出错对象;Method-对象当前的方法;Argu-对象当前方法的参数;retval-当前错误的返回值(errCode)
Function RecordErr(Object, Method, Arguments, retVal)
wait 3
Dim ErrCode,ErrDesc,ArgCount,WrongInfo,ArgList
Dim i,blankStr,ErrCount,CurRow
‘ 在Globaltable中记录累计错误数
CurRow = DataTable.GlobalSheet.GetcurrentRow
DataTable.GlobalSheet.SetcurrentRow 1
If Environment ("ActionName")<> datatable.Value("CurAction",dtGlobalSheet) Then
datatable.Value("CurAction",dtGlobalSheet) = Environment ("ActionName")
datatable.Value("ErrCount",dtGlobalSheet) = 0
End If
ErrCount = CInt (datatable.Value("ErrCount",dtGlobalSheet))
blankStr = " "
ErrCode = retVal
If ErrCode = 0 Then
ErrDesc = "不明错误!"
Else
ErrDesc = DescribeResult(ErrCode)
End If
ArgCount = UBound(Arguments)
For i = 0 to ArgCount
ArgList = ArgList & CStr(i) & "--" & CStr(Arguments(i)) & "/"
Next
On Error Resume Next
‘ 获取对象错误具体描述,此处使用了对象较通用的name属性,部分对象没有该属性可能出错
WrongInfo = "Object Name: " & Object.GetTOProperty("name") & vbCrLf _
& blankStr & "Current Method: " & Method & vbCrLf _
& blankStr & "ArgList: " & ArgList & vbCrLf _
& blankStr & "ErrDesc: " & ErrDesc
On Error GoTo 0
GE_logError "对象运行中出现错误--" & WrongInfo,micFail
Err.Clear
ErrCount = ErrCount + 1
‘ 累计错误达5次后退出当前流程
If ErrCount >= 5 Then
ErrCount = 0
datatable.Value("ErrCount",dtGlobalSheet) = ErrCount
DataTable.GlobalSheet.SetcurrentRow CurRow
routingname = ""
GE_logError "*****运行过程错误过多,退出本Aciton Iteration,请运行完成后检查环境和脚本!*****",micFail
ExitActionIteration
End If
datatable.Value("ErrCount",dtGlobalSheet) = ErrCount
DataTable.GlobalSheet.SetcurrentRow CurRow
End Function