不成熟的男人,为了理想,英勇的死;成熟的男人,为了理想,屈辱的活
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
收藏
举报
TAG:
OA
QTP
qtp
自动化测试