|
Dim a as boolean
Browser("汇信通会员通行证系统用户管理中心").Page("汇信通会员通行证系统用户管理中心").Sync
Browser("汇信通会员通行证系统用户管理中心").Page("汇信通会员通行证系统用户管理中心").Frame("main").WebButton("name:=新增部门").Click
Browser("汇信通会员通行证系统用户管理中心").Page("汇信通会员通行证系统用户管理中心").Frame("main").WebEdit("name:=Name").Set "UI测试部"
Browser("汇信通会员通行证系统用户管理中心").Page("汇信通会员通行证系统用户管理中心").Frame("main").WebButton("name:=保存").Click
Browser("汇信通会员通行证系统用户管理中心").Dialog("Microsoft Internet Explorer").WinButton("text:=确定").Click
Browser("汇信通会员通行证系统用户管理中心").Page("汇信通会员通行证系统用户管理中心").Frame("main").Link("text:=UI测试部").Click
a=Browser("汇信通会员通行证系统用户管理中心").Page("汇信通会员通行证系统用户管理中心").Frame("main").Link("text:=UI测试部").Check CheckPoint("UI测试部")
wait(5)
If a Then
Msgbox "成功!!"
End if
上面代码为什么运行到赋值语句就报错!!求高手了 |
|