|
1、Action1
Browser("Browser").Page("Page").Frame("frame_top").Link("系统管理").Click
Browser("Browser").Page("Page").Frame("frame_menu").Link("部门").Click
RunAction "Action2", oneIteration
2、Action2
Dim StrTxt
Browser("Browser").Page("Page").Frame("frame_main").WebButton("添加").Click
Browser("Browser").Page("Page").Frame("name:=window_.*").WebEdit("name:=txt_name").Set DataTable("Department", "Action2")'由于name是随机值,因此采用正则表达式
Browser("Browser").Page("Page").Frame("name:=window_.*").WebEdit("name:=txt_comment").Set DataTable("Department", "Action2")
Browser("Browser").Page("Page").Frame("name:=window_.*").WebButton("name:=确认").Click
StrTxt = Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").GetROProperty("attached text")
Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
If StrComp(StrTxt, "重复条目") = 0 OR StrComp(StrTxt, "名称: 1-50字符。包含0-9 a-z A-Z 或 文字。") = 0Then
Browser("Browser").Page("Page").Frame("name:=window_.*").WebButton("name:=取消").Click
End If
其中DataTable中Department为5行字符,运行上述脚本发现脚本已经进入action2了但实际上action1中的点击都还没执行,然后要等一会才能执行Action2中的添加,添加也非常缓慢,而且DataTable只能执行一次(已经设置run all rows |
|