1.QTP开启浏览器:
‘SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.baidu.com"
SystemUtil.Run”http://www.baidu.com”
2.调用Vbs文件
Executefile ”C:\test.vbs”
3.VBS相关
Byref:按引用传参
Redim:重新申明动态数组
Const
4.读取DataTable
a.不支持xlsx文件
b.导入DataTable.Import ExcelFileName
获取行数:DataTable.GetRowCount()
设置当前行DataTable.SetCurrentRow(index)
获取当前行对应的值DataTable.Value("Step","Global")
5.Function与Sub
Function name()
Sub name()
Sub无返回值,Function带返回值
6.文件操作
Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " exists."
Else
msg = filespec & " doesn‘t exist."
End If
ReportFileStatus = msg
End Function
A. 创建excel文件
Set ExcelApp=CreateObject("excel.application")
ExcelApp.Workbooks.Add()
ExcelApp.ActiveWorkbook.SaveAs(FileName)
ExcelApp.Quit
Set ExcelApp = Nothing
SystemUtil.CloseProcessByName "Excel.exe"
B. 判断文件是否存在
Set fso=createobject("scripting.filesystemobject")
fso.fileexists(FileName)
C. 打开Excel文件
Set ExcelApp=CreateObject("excel.application")
Set ExcelBook=ExcelApp.Workbooks.Open(FileName)
Set ExcelSheet=ExcelBook.Sheets.Add
‘修改sheet的名称
ExcelSheet.Name="TestResult"
‘release the excel object
ExcelBook.Save
ExcelBook.Close
ExcelApp.Quit
Set ExcelBook = Nothing
Set ExcelApp = Nothing
7.Byref &Byval
Byref：按地址传递，值可变
Byval:按值传递，值不可变
8.检查文本信息是否存在
LoginErrMsg=Dialog("Flight Reservations").GetVisibleText
Instr(1,LoginErrMsg,Steps.ExpectedResult)>0
9.中文字符处理
Qtp执行vbs脚本时,中文字符不支持时,将vbs改为ANSI编码后,修改中文
原因:qtp使用的编码方式为ANSI编码方式
QTP注释
注释选中内容Ctr+M
取消注释选中内容Ctr+shift+M
问题:
1. Action中调用vbs时需要将vbs文件添加到Function Lib中,方法:settings/Resources,添加文件
2. 使用 Executefile filename(绝对路径,或相对路径)
3. VBS调试较麻烦，将VBS放到action中进行调试
对象库的调用
获取输出结果
添加检查点
自动化框架
Environment
Libraries
Object Repositories
Setup Scripts
Tests
Data
QTP相关资料
http://www.cnblogs.com/testware/archive/2010/04/16/1713555.html