QTP登陆测试脚本1

最近研究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