QTP学习之小试牛刀

上一篇 / 下一篇 2011-12-01 20:37:15

第一次决定正式在项目中引入自动化，自动化工具选择为QTP，作为新手只能边学边用了！

OA系统准备采用QTP进行自动化测试，以下内容以“消息模板”模块增加“消息模板”为例，共同学习。这段代码主要是希望实现：自动添加“消息模板”，添加完成截图，以便查看验证，如果该模板名称已经存在，将重新输入模板名称，再次新增，直至成功，截图验证

程序JAVA语言开发，有很多自己写的控件，只能一个一个手动添加进QTP，下图为添加的控件截图

browser("智能OA平台").Page("智能OA平台").Frame("leftFrame").WebElement("消息模版").Click

browser("智能OA平台").Page("智能OA平台").Frame("contentFrame").WebElement("Add").Click

browser("智能OA平台").Page("智能OA平台").Frame("contentFrame_2").WebEdit("$FieldStr").Set ("我的模板")

browser("智能OA平台").Page("智能OA平台").Frame("contentFrame_2").WebEdit("$FieldInteger").Set("11")

browser("智能OA平台").Page("智能OA平台").Frame("contentFrame_2").WebElement("Save").Click

'获取提示框的按钮名称，用于判断

a=browser("智能OA平台").Page("智能OA平台").Frame("contentFrame_2").WebButton("确定").GetProperty ("name")

msgbox a

'判断是否弹出了提示框，如果弹出提示框重新输入，重新提交

If a="确定" Then

browser("智能OA平台").Page("智能OA平台").Frame("contentFrame_2").WebButton("确定").Click

browser("智能OA平台").Page("智能OA平台").Frame("contentFrame_2").WebEdit("$FieldStr").Set ("我的模板11")

browser("智能OA平台").Page("智能OA平台").Frame("contentFrame_2").WebEdit("$FieldInteger").Set("22")

End If

'返回主界面，截图验证，截图位于F:\QTP截图\1201.png

browser("智能OA平台").Page("智能OA平台").Frame("contentFrame").WebElement("Add").CaptureBitmap "F:\QTP截图\1201.png",False