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