|
各位大大:
我在一个网页对话框下录入信息后保存,弹出一个JS提示框,但QTP录制不下这个动作,我添加对象的时候能找到这个dialog,但qtp识别是在页面下,而不是这个网页对话框下,自己手动加脚本也不行。不太好描述,我直接重复我的动作吧。
1.录入页面录入基本信息后-保存,弹出js提示框,保存成功。(这时候是可以录制到dialog的)
2.录入后需要审核,弹出一个网页对话框,输入审核意见,保存,同样弹出一个JS提示框(这时候就捕获不了这个dialog了)。下面是我的脚本,请高手指点下,困惑我几天了。
Function MakeString(inputlength)
Dim I,x,B,A
If IsNumeric(inputlength) Then
For I = 1 To inputlength
A = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
Randomize
x=RandomNumber(0,25)
B = A(x)
makestring =makestring +B
Next
MakeString = makestring
else
msgbox ("Only Numeric string is allowed")
End If
End Function
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统").WebEdit("username").Set "888888"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统").WebEdit("password").SetSecure "4fd00e32470f3993efbb7bbaaad1c67995df"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统").WebButton("登录").Click
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Link("资金交存数据录入").Click
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content").WebButton("单笔信息录入").Click
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$txt_d").Set MakeString(9)
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$txt_a").Set "201206071013"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$txt_d_2").Set "1"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$txt_d_3").Set "1"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$txt_f").Set "1"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$txt_f_2").Set "1"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$txt_a_2").Set "111"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$txtHo").Set "99"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebButton("计算").Click
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$GERZW").Set "11"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$ZHJHA").Set "11"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebEdit("ctl00$contentPlaceHolder$LXSJ").Set "11"
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_2").WebButton("保存").Click
Browser("中国光大银行物业专项维修资金业务系统").Dialog("来自网页的消息").WinButton("确定").Click
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_3").Link("通过申请").Click
Browser("中国光大银行物业专项维修资金业务系统").Dialog("来自网页的消息").WinButton("确定").Click
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Link("资金交存数据初审").Click
Browser("中国光大银行物业专项维修资金业务系统").Page("中国光大银行物业专项维修资金业务系统_2").Frame("content_4").Link("初审").Click
Browser("中国光大银行物业专项维修资金业务系统").Window("物业管理专项维修资金交存申请表 -- 网页对话框").Page("物业管理专项维修资金交存申请表").WebEdit("repExamination$ctl00$txtRemark").Set "111"
Browser("中国光大银行物业专项维修资金业务系统").Window("物业管理专项维修资金交存申请表 -- 网页对话框").Page("物业管理专项维修资金交存申请表").WebButton("点击这里签名").Click
Browser("中国光大银行物业专项维修资金业务系统").Window("物业管理专项维修资金交存申请表 -- 网页对话框").Page("物业管理专项维修资金交存申请表").WebEdit("txtPwd").SetSecure "4fd00e882d30b444383f6f4370b4a9e5472f"
Browser("中国光大银行物业专项维修资金业务系统").Window("物业管理专项维修资金交存申请表 -- 网页对话框").Page("物业管理专项维修资金交存申请表").WebButton("确定").Click
Browser("中国光大银行物业专项维修资金业务系统").Window("物业管理专项维修资金交存申请表 -- 网页对话框").Page("物业管理专项维修资金交存申请表").WebButton("保存").Click
(这后面有一个弹出js的提示框,但录制不了) |
|