QTP登陆测试脚本1

来源：互联网发布：高德地图十六进制端口编辑：程序博客网时间：2024/04/29 19:08

最近研究QTP。做了一些初级的脚本尝试。

Dim outputvalue '定义读取系统实际输出信息的变量
Const a="当前用户：管理员" '定义预期输出信息常量

Browser("题库管理系统登录首页").Page("题库管理系统登录首页").WebEdit("sysUser.usrName").Set "admin"
Browser("题库管理系统登录首页").Page("题库管理系统登录首页").WebEdit("sysUser.usrPassword").SetSecure "4edd8c95e88f22f79ee6920d53264079c468"
Browser("题库管理系统登录首页").Page("题库管理系统登录首页").Image("登陆").Click
Browser("题库管理系统登录首页").Page("题库管理系统").Frame("menu").Output CheckPoint("menu_3") '对页面某位置我做一个文本检查

outputvalue=datatable("outmsg",dtLocalSheet) '将实际输出值赋予变量outputvalue

msgbox outputvalue

If a = outputvalue Then
Reporter.ReportEvent 0,"登陆功能测试","预期值为:"+ a +"，实际值为:"+outputvalue
End If

Browser("题库管理系统登录首页").Page("题库管理系统").Frame("topFrame").Image("点击退出").Click
Browser("题库管理系统登录首页").Page("题库管理系统登录首页_2").Sync
Browser("题库管理系统登录首页").Close

这个脚本是固定的用户名登入系统，然后在登录成功的页面我做了一个文本检查点，并且与预期值做了一下比较，之后输出比较的报告。