关闭提示信息框语句没有执行?
系统功能:一个简单的编辑功能1)列表中,单击对应数据的编辑按钮,打开编辑界面
2)在编辑界面录入正常数据,单击编辑按钮,系统提示“保存成功”,单击确定按钮,关闭编辑界面,返回列表
3)在编辑界面录入异常数据,单击编辑按钮,系统提示保存不成功的原因,单击确定按钮,返回编辑界面
脚本如下:
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","http://10.20.56.32:8023/Login.aspx","C:\Documents and Settings\Administrator","open"
Browser("登录").Page("登录").WebEdit("txtPassword").SetSecure "4c1ed3ffc6b1a204778774826f92e90b9d5480011529e220ef32"
Browser("登录").Page("登录").WebEdit("txtName").Set "zhangwei"
Browser("登录").Page("登录").WebButton("登录").Click
‘-------------------------------------------’
Browser("登录").Page("家庭信息化管理系统 工作台").Link("信息管理").Click
Browser("登录").Page("汕头移动家庭信息化管理系统").Link("业务类型").Click
Browser("登录").Page("业务类型").Image("ctl00$ctl00$idAll$idList$Smart").Click 2,7
Browser("登录").Page("业务类型").Sync
Browser("业务类型编辑").Page("业务类型编辑").WebEdit("ctl00$idFormMain$SmartFormView").Set DataTable("业务名称", dtLocalSheet)
Browser("业务类型编辑").Page("业务类型编辑").WebButton("保存").Click
Browser("业务类型编辑").Dialog("Microsoft Internet Explorer").Static("保存成功!").Check CheckPoint("保存成功!")
Browser("业务类型编辑").Dialog("Microsoft Internet Explorer").WinButton("OK").Click
'如果不是正常保存,有提示消息框
If (Browser("业务类型编辑").Page("业务类型编辑").WebButton("保存").Exist) Then
Browser("业务类型编辑").Page("业务类型编辑").WebButton("name:=关闭").Click
End If
‘-------------------------------------------’
Browser("登录").Page("业务类型").Sync
Browser("登录").Close
以上是没有进行分割的脚本,当录入正常数据,编辑界面自动关闭,此时QTP运行到红色字体部分,会等待很久,但基本上可以顺利执行
分割后,分割成登录、修改、退出三个部分后,虚线表示分割
设置修改的ACTION循环次数
分割后执行,第一次循环是正常数据,QTP执行到红色字体部分后,等待很久后,再做下一个循环(异常数据),就报其他对象找不到了
页:
[1]