QTP参数

 

序列号 函数名 函数作用 第一参 第二参 第三参 第四参 第五参 返回值-

　-

　　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 清除多行注释