【软件测试自动化-QTP NOTE 8】 == 描述性编程(Descriptive Programming)-Finial ==

之前已经对描述性编程从各个角度做了大致的概述，应该已经有了基本的了解

这次博客中，我会直接用实例对描述性编程进行诠释，这样可以更直接的对这个技术点掌握。

 

这次我们拿alipay.com的登录为例，我会对每一个细节在脚本进行注解

 

首先，从一个账户登录的流程来说，我们可以从几部分进行分解

1.登录浏览器

2.检查Browser是否启动正确

3.确认用户名，密码和登录button是否存在

4.为用户名和密码赋值并且点击登录

5.检查网页是否跳转到正确页面

 

Step1：登录浏览器

'ie登录alipay主页 SystemUtil.Run "iexplore.exe","https://www.alipay.com/"

 

Step2：检查Browser是否启动正确

 

这里需要介绍一个Reporter对象的用法，一般有三种场景

• 1.Reporter.ReportEvent micDone,"",""   输出一个完成Report
• 2.Reporter.ReportEvent micFail,"",""   输出一个失败Report
• 3.Reporter.ReportEvent micPass,"",""   输出一个成功Report

If Browser( "title:=支付宝 - 网上支付 安全快速！" ).Exist( 15 ) Then Reporter.ReportEvent micPass, "Step 1- Launch", "正确Browser启动" Else Reporter.ReportEvent micFail, "Step 1- Launch", "Browser启动失败" ExitTest End If 

Reporter截图:

 

Step3：确认登录对象存在

• 用户名输入

If Browser("title:=支付宝 - 网上支付 安全快速！").Page("title:=支付宝 - 网上支付 安全快速！").WebEdit("name:=_fmu.l._0.e").Exist(0) Then Browser("title:=支付宝 - 网上支付 安全快速！").Page("title:=支付宝 - 网上支付 安全快速！").WebEdit("name:=_fmu.l._0.e").Set "[email protected]" Reporter.ReportEvent micPass, "Step 2-输入用户名", "WebEdit存在." Else Reporter.ReportEvent micFail, "Step 2-输入用户名错误", "WebEdit不存在." End If 

Reporter截图:

• 密码输入

If Browser("支付宝 - 网上支付 安全快速！").Page("支付宝 - 网上支付 安全快速！").WinObject("ATL:Edit").Exist(0) Then Browser("支付宝 - 网上支付 安全快速！").Page("支付宝 - 网上支付 安全快速！").WinObject("ATL:Edit").Click Dim oShell '创建WScriptShell对象，模拟键盘输入（因为Alipay密码框有控件，这里建议模拟键盘输入进行操作） set oShell = CreateObject("WScript.Shell") oShell.SendKeys "k8141211" Set oShell = nothing Reporter.ReportEvent micPass, "Step 3- 输入密码", "密码控件正常." Else Reporter.ReportEvent micFaill, "Step 3- 输入密码错误", "控件错误." End If 

Reporter截图:

 

• 登录按钮

If Browser("title:=支付宝 - 网上支付 安全快速！").Page("title:=支付宝 - 网上支付 安全快速！").WebButton("name:=登录" ).Exist(0) Then Browser("title:=支付宝 - 网上支付 安全快速！").Page("title:=支付宝 - 网上支付 安全快速！").WebButton("name:=登录" ).Click Reporter.ReportEvent micPassl, "Step 4- 点击登录按钮", "按钮存在." Else Reporter.ReportEvent micFaill, "Step 4- 点击登录按钮错误", "按钮不存在." End If  

Reporter截图:

 

 

相信这个实例对于掌握DP是非常有用的，当然大家也可以通过其他一些网站进行练习。