空间管理您的位置: 51Testing软件测试网 » lgwmlx的个人空间 » 日志

QTP通用脚本示例

上一篇 / 下一篇 2009-02-25 21:05:04 / 个人分类：qtp

贴出一点通用脚本：' (函数名.................................................行号)
' FunName ................................................. 22 函数模型示例
' writeRpt..................................................... 41 向QTP报告中添加报告
' tableInfo.................................................... 66 输出此表格中单元格中的文字信息
' objImage................................................... 99 输出在QTP报告显示对象截图的字符串

'*********************** 函数模型 **************************************
'Public Function FunName()
''函数说明
'Err.Clear ' 清除错误
'On error resume next
''从此行开始添加函数代码
' If err.Description <> "" Then
' FunName = FunName & "FunName函数出错：" & chr(13) _
' & " " & "错误代码：" & CStr(Err.Number) & chr(13) _
' & " " & "错误描述： " & Err.Description & chr(13) _
' & " " & "错误来源："& Err.Source & chr(13) & " "
' reporter.ReportEvent 1,"FunName函数出错",FunName'将错误写入报告中
' End If
'Err.Clear
'On error goto 0
''示例
'End Function
'****************************************************************************************

'************************** 向QTP报告中写入自定义信息 ***********************
PublicFunctionwriteRpt(byvalEventStatus,byvalReportStepName,byvalDetails)'向报告中写入信息
'EventStatus是报告状态 0为micPass;1为micFail;2为micDone;3为micWarning。
'ReportStepName是报告中预期步骤的名称（对象名）。
'报告事件的描述。该字符串将在报告的步骤详细信息框架中显示。
Err.Clear ' 清除错误
Onerrorresumenext
DimCurrentMode'记录当前状态
CurrentMode=Reporter.Filter'保存当前状态
Reporter.Filter=0'启用报告模式
Reporter.ReportEvent EventStatus,ReportStepName,Details'写入报告信息
Reporter.Filter=CurrentMode'还原报告状态
Iferr.Description<>""Then
 writeRpt=writeRpt&"writeRpt函数出错："&chr(13) _
 &" "&"错误代码："&CStr(Err.Number)&chr(13) _
 &" "&"错误描述： "&Err.Description&chr(13) _
 &" "&"错误来源："&Err.Source&chr(13)&" "
 reporter.ReportEvent1,"writeRpt函数出错",writeRpt'将错误写入报告中
EndIf
Err.Clear
Onerrorgoto0
EndFunction
'示例 writeRpt(0,"新增名片","向文件夹新增名片成功!")
'****************************************************************************************

'******************** 输出表格中单元格中的信息 **************
PublicFunctiontableInfo(byrefmyObj)'输入一个表格对象，输出此表格中单元格中的文字信息
 '依次输出表格中单元格中的信息
 '以便在表单页面使用描述性编程时定位表格
Err.Clear ' 清除错误
Onerrorresumenext
 Dimi,j'循环变量
 IfmyObj.exist(1)=falseThen
 tableInfo=" "&chr(13)&"找不到指定的表格！"&" "
 reporter.ReportEvent1,"tableInfo函数出错",tableInfo
 Exitfunction
 EndIf
 tableInfo=" "&chr(13)'在报告中起换行作用
 Fori=1tomyObj.RowCountstep1
 Forj=1tomyObj.ColumnCount(i)step1
 tableInfo=tableInfo&myObj.GetCellData (i,j)&","
 Next
 tableInfo=tableInfo&chr(13)&" "
 Next
'若存在错误信息
Iferr.Description<>""Then
 tableInfo=tableInfo&"tableInfo函数出错："&chr(13) _
 &" "&"错误代码："&CStr(Err.Number)&chr(13) _
 &" "&"错误描述： "&Err.Description&chr(13) _
 &" "&"错误来源："&Err.Source&chr(13)&" "
 reporter.ReportEvent1,"tableInfo函数出错",tableInfo'将错误写入报告中
EndIf
Err.Clear
Onerrorgoto0
EndFunction
' 示例 call tableInfo(myTable) '输出myTable中单元格的文字信息
'***********************************************************************

'********************* 在报告中显示截取的图片 ***************
PublicFunctionobjImage(byrefmyObject)'输入一个对象，给此对象截图，并输出在报告中显示此图片的字符串
'myObject 为需要进行截图的对象 函数返回的是在XML中显示图片的字符串
Err.Clear ' 清除错误
Onerrorresumenext
DimpicName
picName=Year(date)&Month(date)&Day(date)&Hour(Now)&Minute(Now)&Second(Now)
picName=picName&"-"&RandomNumber(111,999)&".png"
picName=Environment("ResultDir")&"\"&picName
 IfmyObject.exist(1)=falsethen
objImage=chr(13)&"objImage ：对象不存在，未执行截图。"&chr(13)
Exitfunction'对象不存在则退出函数
EndIf
myObject.CaptureBitmap picName,True
objImage=chr(13)&"截图如下： "&"--> <img src= "&chr(34)&picName& chr(34)&">"&chr(13)&" "&picName
Iferr.Description<>""Then
 objImage=objImage&"截图失败："&chr(13) _
 &" "&"错误代码："&CStr(Err.Number)&chr(13) _
 &" "&"错误描述： "&Err.Description&chr(13) _
 &" "&"错误来源："&Err.Source&chr(13)&" "
 reporter.ReportEvent1,"objImage函数出错",objImage'将错误写入报告中
EndIf
Err.Clear
Onerrorgoto0
EndFunction
'示例 msgbox objImage(byref myObject)

收藏举报

TAG:

查看全部评论