www.gdtesting.com 亿能测试技术 www.automationqa.com
Reporter.ReportEvent micPass,"检查登录是否成功", "Pass!"
' 退出
Browser("Discuz!NT ASP.net| 论 坛 -").Page("Discuz!NT ASP.net| 论 坛
-").Link("退出").Click
Browser("Discuz!NT ASP.net|论坛 -").Page("用户退出 - Discuz!NT ASP.net|论
坛").Link("如果浏览器没有转向, 请点击这里.").Click
Else
Reporter.ReportEvent micFail,"检查登录是否成功", "Fail!"
End If
Else
Reporter.ReportEvent micFail,"对象不存在", "WebElement 对象不存在!"
End If
End Sub
Sub CloseBrowser
Browser("Discuz!NT ASP.net|论坛 -").Close
End Sub
这次调整的脚本中, 用 VBScript 的 Sub 过程来封装一个个的操作,例 如启 动浏览器
(StartNewBrowser)、导航到指定页面( NavigateTo)、执行登录操作( Login)、关闭
浏览器(CloseBrowser),这样的脚本设计遵循了分而治之的思想,把相对独立的过程分
开编写脚本,最后统一调用,有利于降低脚本维护难度,代码的可读性也增强了。
模块化脚本设计 – 使用 Action
QTP 为模块化脚本设计提供了 Action 机制,可以把相对独立的测试操作放在一个个 Action
中,再由一个统一的 Action 来调用。对于前面的模块化脚本,我们可以调整成用 Action 实
现:
1、新建一个 Action,命名为“StartNewBrowser”,在这个新建的 Action 中写如下脚本:
StartNewBrowser
Sub StartNewBrowser
SystemUtil.Run "Iexplore.exe"
End Sub
2、新建 Action“NavigateTo”,脚本如下:
NavigateTo
Sub NavigateTo
Browser("Discuz!NT ASP.net|论坛 -").Navigate "http://127.0.0.1:88/dnt3/index.aspx"
End Sub
3、新建 Action“Login”,脚本如下:
Login
www.gdtesting.com 亿能测试技术 www.automationqa.com