QTP自动化测试实践_05_答案

1、QTP 自动化测试实践_05_答案编写人：李聪霞任务一 打开订单操作中，循环语句的使用要求1、打开订单为1-10的订单方法一、参数化方法二、VBS脚本(使用For循环语句) 要求2、当打开订单的用户名为“”，停止打开订单的操作所对应的代码：Dim ordernoFor orderno = 1 to 10Print ordernoSystemUtil.RunC:ProgramFilesHPQuickTest Professionalsamplesflightappflight4a.exe,C:Program FilesHPQuickTest Professionalsamplesflightap

2、p,openDialog(Login).WinEdit(Agent Name:).Set amberDialog(Login).WinEdit(Password:).SetSecure 556d148beaa6f9e96b306fc94b4712bd3Dialog(Login).WinButton(OK).ClickWindow(Flight Reservation).WinMenu(Menu).Select File;Open Order.Window(Flight Reservation).Dialog(Open Order).WinCheckBox(Order No.).Set ONWi

3、ndow(Flight Reservation).Dialog(Open Order).WinEdit(Edit).Set ordernoWindow(Flight Reservation).Dialog(Open Order).WinButton(OK).ClickDim cusNamecusName=Window(Flight Reservation).WinEdit(Name:).GetROProperty (text)If cusName=Jon Baker ThenExit ForEnd IfWindow(Flight Reservation).CloseNext任务二 获得数组元素

4、中的最大值要求1、定义数组长度为5的数组（元素赋值为5-20之间的随机整数）要求2、将这5个数组元素值打印在log日志中要求3、获取这5个数中的最大值要求4、用msgbox函数输出最大值所对应的代码：Dim myarray(4)Dim Max,imyarray(0) = 2myarray(1) = 8myarray(2) = 4myarray(3) = 10myarray(4) = 9For i = 0 to 4Randomizemyarray(i)=Int(20-1+1)*Rnd+1)myarray(i)=RandomNumber(1,20)Print myarray(i)NextMax =

5、 myarray(0)For i = 1 to 4If Maxmyarray(i) ThenMax = myarray(i)End IfNextMsgbox 数组最大的值为: & Max,最大值任务三 “打开订单并发送传真“案例的练习要求1、录制打开订单操作，并发送传真要求2、 打开编号为随机整数的订单，并使用SetTOProperty方法来设置TO的属性值，解决对象无法识别的问题要求3、使用Analog Recording重新补录faxOrder的签名要求4、录制并回放成功所对应的代码：SystemUtil.Run C:Program FilesHPQuickTest Professiona

6、lsamplesflightappflight4a.exe,C:Program FilesHPQuickTest Professionalsamplesflightapp,openDialog(Login).WinEdit(Agent Name:).Set amberDialog(Login).WinEdit(Password:).SetSecure 556d0177c7abc2ffb99404d3930bae2a0Dialog(Login).WinButton(OK).ClickWindow(Flight Reservation).WinMenu(Menu).Select File;Open

7、 Order.Window(Flight Reservation).Dialog(Open Order).WinCheckBox(Order No.).Set ONRandomizeDim ordernoorderno=RandomNumber(5,20)Window(Flight Reservation).Dialog(Open Order).WinEdit(Edit).Set ordernoWindow(Flight Reservation).Dialog(Open Order).WinButton(OK).ClickWindow(Flight Reservation).WinMenu(M

8、enu).Select File;Fax Order.Window(Flight Reservation).Dialog(Fax Order No. 8).SetTOProperty text,Fax Order No. & ordernoWindow(Flight Reservation).Dialog(Fax Order No. 8).Drag 220,220Window(Flight Reservation).Dialog(Fax Order No. 8).WinObject(Fax).Drop 218,241Window(Flight Reservation).Dialog(Fax O

9、rder No. 8).Drag 243,237Window(Flight Reservation).Dialog(Fax Order No. 8).WinObject(Fax).Drop 257,213Window(Flight Reservation).Dialog(Fax Order No. 8).Drag 262,211Window(Flight Reservation).Dialog(Fax Order No. 8).WinObject(Fax).Drop 329,222Desktop.RunAnalog Track1Window(Flight Reservation).Dialog(Fax