QTP调用外部api51Testing软件测试网4Jp~U ^| w wf~6|

'例1:运行一个exe文件

Extern.WinExec "d:\1.exe ", 1

'例2:Beep

'它让我的机器在办公室里狂响不止！

Extern.Declare micLong, "Beep", "kernel32.dll", "Beep", micLong 

Extern.Beep 500 

QTP获取对话框中的信息

如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证

if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现=false

    error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!".getRoproperty("text")

　　　if error_message<>(datatable.value("error_info"))then

        msgbox(error_message)

     end if

    browser("web_name").dialog("diaglog_name").close

 end if

这里我总结了两点技巧：

一是：对于dialog中，虽然提示信息对象名称是"用户密码错误"，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性

   二是：如果对于提示信息比较长的，可以用mid(error_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理

 51Testing软件测试网*z2?%wP6|K5s

QTP获取对象属性名称用法:51Testing软件测试网8d5j hfxHlE;vW

GetRoProperty----从应用程序界面上获取对象属性（即，是脚本运行时，获取的对象动态属性值）

例如：获取对象库中index属性值，似乎只能用GetToProperty,因为应用程序界面上对象没有该属性，只是

QTP为识别该对象创立的描述属性；

GetToproperty----从对象库中描述对象的属性，静态值

GetToProperties----获取用于标识对象的属性集；对于这个集合，有count等属性方法

 QTP在执行过程中往excel中写入值

DataTable.GlobalSheet.AddParameter "Name", "wangyidonglu"

取datatable特定行的数据可以这样使用

DataTable.GetSheet("Action1").GetParameter("test").ValueByRow(1)

QTP在excel中写入内容

 filename="D:\xyb\xueyb\xueyb.xls"51Testing软件测试网]9tn+Oj,cECu

' create the Excel object

Set ExcelObj = CreateObject("Excel.Application")51Testing软件测试网.n"]E3aW

ExcelObj.Workbooks.Add51Testing软件测试网3? O:FXOG\*?$S E

Set NewSheet = ExcelObj.Sheets.Item(1)

NewSheet.Name = "Page Information"51Testing软件测试网`P%e6isRu2i

row = 151Testing软件测试网-S7Zn(a&yJ

NewSheet.Cells(1,1) = "name"

NewSheet.Cells(1,2) = "xueyb"

NewSheet.Columns("A:A").ColumnWidth = 2051Testing软件测试网9Qc#dD1z,x Jz(s

NewSheet.Columns("A:A").Font.Bold = True

NewSheet.Columns("B:B").ColumnWidth = 6051Testing软件测试网fD{!Xg)Dxx

NewSheet.Columns("B:B").HorizontalAlignment = -4108 ' xlCenter51Testing软件测试网8e?r'C:le~`:T

' save the Excel file

ExcelObj.ActiveWorkbook.SaveAs filename51Testing软件测试网,j2pq Nr7p3M

ExcelObj.Quit51Testing软件测试网 H%y@8U;Ei-w|xK7Ra

Set ExcelObj = Nothing51Testing软件测试网+N'uY t)rk'nx\

QTP等待某个对象出现方法

Window("Flight Reservation").Static("Static").WaitProperty("visible",true,10000)51Testing软件测试网0dbwN$d7Kr

例：51Testing软件测试网*Zo#S%ghB4]\3Z

SystemUtil.Run "E:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","E:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open"

Dialog("Login").Click 177,47

Dialog("Login").WinEdit("Agent Name:").Set "mercury"

Dialog("Login").WinEdit("Password:").SetSecure "4886c0abed388164f4f9c00404eef82ad60997ea"

Dialog("Login").WinButton("OK").Click

If   Window("Flight Reservation").Static("Static").WaitProperty("visible",true,10000) ==true Then

   msgbox("flight4A登录成功！")51Testing软件测试网*U?)f!zc4h3@ ^+c;_5R

   else

     msgbox("flight4A登录失败！")

End If51Testing软件测试网`N.B4B"m2D_1u

 51Testing软件测试网K4W pm+r9r

QTP childobject的应用

childobject可以返回界面上满足条件的对象集合，而且与对象库里是否有这些对象无关，这就可以简化对象库；

返回的对象集合的count方法可以返回对象个数，这就可以通过下标对单个对象进行操作；在出现index标识对象时

可以进行运用

如:Set m_WinCheck=Descrīption.Create()

     m_WinCheck("nativeclass").Value="Button"

     set All_WinCheck=Window("").Dialog("").Childobject(m_WinCheck)

     n=All_WinCheck.Count()

    for i=0 to n-1

     All_WinCheck(i).Set "ON"

    next

QTP Action之间的参数传递

例如:在Action1中，有如下代码:

out_str="This is out_string"

RunAction "Action2",oneIteration,out_str

在Acton2中，在其step->Action Properties中的，input参数栏，加入out_str后,

msgbox(parameter("out_str"))，就能正确显示参数了

QTP自动截图51Testing软件测试网@"} |%B+f;n)s"N`

1.      选择菜单栏Tools->Option项，再选择Run选项卡，在Run窗体中选中“Save still image captures to results，且它右边的下拉框中选择“For errors”

2.      用CaptureBitmap("D:\1.bmp")51Testing软件测试网B{g{/d.p|
Browser("XX").Page("XX").CaptureBitmap("D:\1.bmp")