uft 函数资源库/验证点

资源池静态调用：
1.新建一个“text.txt”文件

Function hello_world_add (a, b)
Msgbox a + b
End Function

2.打开qtp，新建一个test
3.选择菜单栏文件—设置—资源，点击加号，添加“text.txt”文件，弹出框选择no设置为绝对路径（已将函数库添加到了资源池中）
4.在qtp的test窗口，点击Fn+F7，类型：函数库：库函数，选择hello_word_add( )函数，并设置参数，点击确定【可用Complete word调用函数：不知道怎么设置ctrl+空格】
5.运行test
动态调用：
1.先删除资源池里加的文件
2.test脚本：
ExecuteFile “F:\QTP\text.txt”
hello_world_add 2, 3
验证点与测试报告
1.object.CheckProperty “value”, “111”
2.Reporter.ReportEvent micPass, “page turning Step”, “The page-turning step passed.”
参数迭代：
1.点击

 For Iterator = 1 To 3
    strText=DataTable.GetSheet("Action1").GetParameter("职位类型").ValueByRow(Iterator)
    Browser("登录页面 ").Page(" 信息管理").Frame("Frame").WebElement("innertext:=" & strText ,"html tag:=A").Click      
  Next

2.输入

For i=1 to DataTable.GetSheet("公文发起审查").GetRowCount
    Browser(" 信息管理系统").Page("信息管理系统_rightframe").Frame("Frame").WebElement("添加").Click
    gwzy = DataTable.GetSheet("公文发起审查").GetParameter("公文摘要").ValueByRow(i)
Browser("Corswork | 信息管理系统").Page("信息管理系统_rightframe").Frame("上传公文").WebTable("公文摘要").WebEdit("公文摘要").Set gwzy
Browser("Corswork | 信息管理系统").Page("信息管理系统_rightframe").Frame("上传公文").WebTable("上传文件").Link("Link").WebFile("添加文件").Click
…………
DataTable.GetSheet("公文发起审查").SetNextRow
Next

3.表中加参数

DataTable.GetSheet("添加职位").AddParameter"职位","kkk"

uft 函数资源库/验证点

猜你喜欢