序列号 函数名 函数作用 第一参 第二参 第三参 第四参 第五参 返回值-
-
1 QTP_Small() 让QTP运行时保持最小化-
-
2 QTP_Big() '恢复QTP窗口-
-
3 "QTP_WriteFile(pathway,words)" '写文件函数(追加) 文件路径 写入内容-
-
4 "Function QTP_WriteFile_Change(pathway,words)" '写文件函数(改写) 文件路径 写入内容-
-
5 "QTP_Read_Excel(pathway,sheetname,x,y)" '读Excel文件元素 文件路径 工作表名 行值 列值-
-
6 "QTP_Write_Excel(pathway,sheetname,x,y,content)" '写Excel文件元素并保存退出 文件路径-
-
工作表名 行值 列值 写入内容-
-
7 "QTP_Msgbox(Value,waitTime,Title)" 定时停留弹出框函数 弹出值 弹出框停留时间 弹出框标题-
-
8 "QTP_Change_Color(pathway,sheetname,x,y,color)" '改变Excel的单元格颜色 文件路径 工作表名-
-
行值 列值 颜色(只接受red和green)-
-
9 QTP_Capture(pathway) '捕获当前屏幕(截图) 保存图片路径-
-
1 Function CreateExcel() 生成Excel对象和默认新工作表 Excel对象-
-
2 Sub CloseExcel(ExcelApp) 关闭指定的Excel Excel对象-
-
3 "Function SaveWorkbook(ExcelApp, workbookIdentifier, path)" 保存工作表 Excel对象 工作表名-
-
Excel文件路径 1成功,0失败-
-
4 "Sub SetCellValue(excelSheet, row, column, value)" 给Excel元素赋值 工作表名 行 列 值-
-
5 "Function GetCellValue(excelSheet, row, column)" 获得指定元素值 工作表名 行 列 值,0未找到元素-
-
6 "Function GetSheet(ExcelApp, sheetIdentifier) 返回工作表 工作表-
-
7 "Function InsertNewWorksheet(ExcelApp, workbookIdentifier, sheetName)" 插入一个新的工作表 Excel对象-
-
工作表名 新工作表名 新工作表对象-
-
8 Function CreateNewWorkbook(ExcelApp) 建立一个新表 Excel对象-
-
9 "Function OpenWorkbook(ExcelApp, path)" 打开一个之前保存过的工作表 Excel对象 路径-
-
10 "Sub ActivateWorkbook(ExcelApp, workbookIdentifier)" 激活工作表 Excel对象 工作表名-
-
11 "Sub CloseWorkbook(ExcelApp, workbookIdentifier)" 关闭工作表 Excel对象 工作表名-
-
12 "Function CompareSheets(sheet1, sheet2, startColumn, numberOfColumns, startRow, numberOfRows, trimed)" 比较工作表-
-
1工作表一2工作表二 3起始列 4列数 5起始行 6行数 默认参数 true一致 false不一致-
-
QTP与Robot通用函数:-
-
序列号 函数名 函数作用 第一参 第二参 第三参 第四参 返回值-
-
1 Get_Data() 获取当前日期-
-
2 Get_Time() 获取当前时间-
-
3 "Get_RandNum(fromNum,toNum)" 随机函数生成 起始生成值 结束生成值 随机数-
-
4 "Swap(byref a,byref b)" 值交换函数 交换参数1 交换参数2 (引用调用)-
-
5 IsPrimeNumber(num) 是否是质数函数 '是质数返回true,否则返回false-
-
6 "ReadLine(pathway, rowcount)" 读指定文本文件指定行内容 文件路径 行数-
-
"返回指定行内容,""文本越界"",""文件不存在"""-
-
7 Function MakeString(inputlength) 随机生成字符串 字符串长度 随机字符串-
-
8 Sub ZYGLQ() 启动资源管理器-
-
9 Sub Run() 启动运行-
-
10 "SendMail(SendTo, Subject, Body, Attachment)" 调用outlook发送电子邮件 收件人 主题 邮件内容 附件-
-
11 "Function NoRepeat(Inp,Sp)" 去掉字符串中的重复项 输入字符串 字符串分隔符 无重复的字符串-
-
12 Function GetLen(Str) 求字符串长度(中文算2个西文字符) 输入字符串-
-
13 Sub RunApp(command) 运行指定程序 运行程序名-
-
14 Function Nextday(ByVal inputday) 求下一天是几号的函数 原始日期 原始日期后一天的日期-
-
15 Function ISLeapYear(ByVal inYear) 判断是否闰年 年份 true:是闰年 false:非闰年-
-
16 "Function Days(SourceData, DesData)" 计算两个日期之间相隔几天 初时日期 目的日期 相隔天数-
-
17 Function Identification(Text1) 检查身份证号是否正确 身份证号 正确:true 错误:false-
-
18 "Access_GetCount(DBlocation,TableName,Value)" 查询Access数据库字符出现次数 数据库存放位置 表名-
-
查询的值 返回值出现的次数-
-
19 Function checkString (myString) 检查是否存在数字 输入字符串 true:存在数字 false:不存在数字-
-
20 "Function BubbleSort(VString,Spl,Func)" 按ASCII码值冒泡排序 待排序的字符串 分隔符 排序方式:-
-
1降序,2升序 排序完的序列-
21, 获取对话框相应的文字: GetVisible Text
22, 查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)
23, 随机数的获取: Randomnumber.Value() 或cstr(int(Rnd*10)+1)
24, 等待函数: Wait(秒数)
25, 获取数组下标: UBound (数组名)
26, 拆分数组: Split(MyString, ",", -1, 1)
27, 可执行步骤: OptionalStep
28, 报告信息: Reporter.ReportEvent 3, "Save Step", "Out of cycle!"
29, 判断对话框是否存在: .exist
30,事件过滤函数:Reporter.Filter=过滤条件(0,1,2,3),0代表显示所有的error和warning,1,显示error,2,显示waining,3,任何error和warning都不显示。
31,循环函数:do … loop until,for…to… then next,while.
32,数据表格:DataTable,向外赋值,Dim aa = DataTable.value(“CellingName”,”ActionName”).
33,获得对象属性的三种方法GetTOProperty,GetTOProperties,GetROProperty,GetTOProperty获得程序中对象当前的属性,GetTOProperties获得当前属性所有集合,GetROProperty获得的是录制时对象所获得的属性。
34,检查点方法check和输出指定属性值output。
35,函数Descrīption,可以获得某页面同标签的属性进行操作。
36,函数nagative可以随便跳转页面到指定的URL。
37,函数Object可以获得当前页面同属性的控件。
38,函数Focus可以让控件获得焦点,函数Blur则是失去焦点,click单击,dbclick双击。
39,函数setAttribute可以设置控件属性,getAttribute可以获得属性。
添加数据:
1. 在每个要覆盖的域添加checkpoint。
2. 在不能同名的必填字段里,添加随机函数,循环增加。
查询数据:
1. 先添加数据,再查询数据更新,更新成功时设置checkpoint。
2. 最后删除成功时设置checkpoint
利用DotNetFactory调用.NET类库
'*********************使用.NET类写文件************************
Set oFile = DotNetFactory("System.IO.StreamWriter", , "d:\test.txt")
'写文件
oFile.Write "test report "
oFile.WriteLine now
'关闭文件
oFile.Close
'清楚对象
oFile.dispose
Set oFile = Nothing
Set oEncoder = Nothing
'*********************使用.NET类读文件************************
Set oFile = DotNetFactory("System.IO.StreamReader", , "d:\test.txt")
'读文件
msgbox oFile.readLine
'关闭文件
oFile.Close
'清楚对象
oFile.dispose
Set oFile = Nothing
Set oEncoder = Nothing
QTP的两种回放模式
Setting.WebPackage("ReplayType") = 2
回放模式设置为2, 1代表事件跟踪,2代表鼠标跟踪
Action Call Properties 参数化Run
Ctrl+M 多行注释
Ctrl+Shift+M 清除多行注释