QTP测试Windows计算器
孤独的猫董 2013-04-29 1065浏览量
简介：
QTP是自动化测试的工具，可以使用编写脚本或录制的方式进行测试自动化：
下面是对Windows自带计算器的测试
首先写入脚本，使用VBScript打开计算器
Dim oShellSet oShell=CreateObject("WSCript.
QTP是自动化测试的工具，可以使用编写脚本或录制的方式进行测试自动化：
下面是对Windows自带计算器的测试
首先写入脚本，使用VBScript打开计算器
Dim oShell
Set oShell=CreateObject("WSCript.shell")
oShell.Run "calc",1
Wait 2
然后录制
将自动产生脚本，然后在Edit后加入检查点，测试1+1=2(Insert->CheckPoint->Text Area CheckPoint)
界面如下：
设置要检查的值为2.
最后的脚本为
Dim oShell Set oShell=CreateObject("WSCript.shell") oShell.Run "calc",1 Wait 2 Window("计算器").WinButton("1").Click Window("计算器").WinButton("+").Click Window("计算器").WinButton("1").Click Window("计算器").WinButton("=").Click Window("计算器").WinEdit("Edit").Check CheckPoint("Edit_2") Window("计算器").Close
运行后，会自动产生一个报告：(为了测试错误的信息，本人在检测点附近设置了值为3.)
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
集结各类场景实战经验，助你开发运维畅行无忧
