QTP中录制的登陆脚本的自动化代码

  在学习自动化之前，必须先对QTP的一些属性定义有所了解，同时需要具备一定的vbscript脚本的编写能力。

  在编写自动化脚本之前，需要首先建立一个test，在record时需要把录制的URL地址输入

  以下是编写登陆脚本的相关步骤，现在我一步一步的写出来，欢迎大家一同优化此代码

 第一步:手动录制登陆成功脚本代码
  Browser("RE.AD").Page("RE.AD").WebEdit("email").Setabc@126.com

  Browser("RE.AD").Page("RE.AD").WebEdit("password").SetSecure "4e37c4f40190297d1e0ac2cd5e3abdc6056b"

  Browser("RE.AD").Page("RE.AD").Link("login").Click

  Browser("RE.AD").Page("RE.AD").Link("退出").Click

 说明：RE.AD是当前页码的一个标识符，可以以任何的你需要录制的标识替代

 第二步：手动录制登陆失败脚本
  Browser("RE.AD").Page("RE.AD").WebEdit("email").Set "CCY"

  Browser("RE.AD").Page("RE.AD").WebEdit("password").SetSecure "4e37c563ae395552d0528eaa31ed7dbe966f"

  Browser("RE.AD").Page("RE.AD").Link("login").Click

 以上第一步、第二步都是手动录制的自动化脚本，登陆录制的成功与失败的显示。接下来第三步才是正式开始进行自动化脚本代码的编写

 第三步：自动化脚本增强

'定义当前状态status,期望值except与实际值actual

'在datatable中需要值入：email,password,except,status

'错误信息的显示需要使用object properties进行抓取，并且使用object spy进行对象的抓取

'设置此脚本的action call properties，使其data table iteration处于"run on all rows"

'脚本进行调试时，可在相关的输入项中使用msbox，wait这个命令查看是否正确输出；也可设置断点调试

 Dim status,except ,actual

Browser("RE.AD").Page("RE.AD").WebEdit("email").Set DataTable("email",dtLocalSheet)
Browser("RE.AD").Page("RE.AD").WebEdit("password").Set DataTable("password",dtLocalSheet)
Browser("RE.AD").Page("RE.AD").Link("login").Click
except = DataTable("except",dtLocalSheet)
status=DataTable("status",dtLocalSheet)
If(status = "F") Then
 actual = Browser("RE.AD").Page("RE.AD").WebElement("用户名密码错误，请重新输入。").GetROProperty("innertext")

'webelement属于对象抓取的具体的名称,getroproperty属于抓取的对象中的其中一个属性值
 if(except=actual) then
  Reporter.ReportEvent micPass,"成功","成功进入"
 else
  Reporter.ReportEvent micFail,"失败","失败，重新输入"
 end if
Else
 If(Browser("RE.AD").Page("RE.AD").Link("退出").Exist) then
  Reporter.ReportEvent micPass,"成功","成功进入"
 Else
  Reporter.ReportEvent micFail,,"失败","失败，重新输入"
 End If
End If