在自动化程序的运行过程中，经常因为环境问题或者代码本身不完善而出现流程不能顺利进行下去的情况，或者会有一些“随机”的提示框（如“操作太快，页面不能及时处理”），这时QTP会产生错误提示，对于这些提示，完全忽略不可取，最好的是及时记录当前错误内容，重复当前操作，当错误提示累计到一定数量，中止当前流程。
本文提供一种QTP运行错误的捕捉和记录方法，结合QTP本身的场景恢复机制，可以很好的解决该问题。
首先在恢复场景中定义场景恢复策略，选择需要捕捉的错误种类，定义捕捉错误后的处理，此处定义一个异常处理函数。
函数定义如下：
‘ 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 |
版权声明：本文出自danmy的51Testing软件测试博客：http://www.51testing.com/?81672
原创作品，转载时请务必以超链接形式标明本文原始出处、作者信息和本声明，否则将追究法律责任。
