|
以下代码是我录制的一个登录事件,把登录后页面上显示的当前用户名称zj设为检查点,再把这个检查点赋于变量a,如果检查点错误则提示,如果检查点正确则执行退出操作。但是在回放的过程中,输入编码、用户名、密码为空,并直接到
set a = Browser("登录").Page("突发公共卫生综合管理信息系统_2").Frame("mainFrame").Check CheckPoint("zj")这条语句,并提示run error“the test run cannot continue due to a syntax error 语句未结束”details中指的就是set这条语句
------------------------------------------------------------------------------------------------------------
'login
Browser("登录").Page("登录").WebEdit("txtOrganCode").Set "33000000"
Browser("登录").Page("登录").WebEdit("txtUserName").Set "zj"
Browser("登录").Page("登录").WebEdit("txtPassword").SetSecure "4374125a5745a21a6d101d554476148e1e4b"
Browser("登录").Page("登录").WebButton("登录").Click
Browser("登录").Page("突发公共卫生综合管理信息系统").Image("MBaseInfo").Click
Browser("登录").Page("突发公共卫生综合管理信息系统_2").Frame("leftFrame").Link("职业").Click
Browser("登录").Page("突发公共卫生综合管理信息系统_2").Frame("topFrame").Image("btExit").FireEvent "onmouseover"
Browser("登录").Page("突发公共卫生综合管理信息系统_2").Frame("mainFrame").Check CheckPoint("zj")
'checkpoint
set a = Browser("登录").Page("突发公共卫生综合管理信息系统_2").Frame("mainFrame").Check CheckPoint("zj")
If (a = false) Then
Reporter.ReportEvent micFail "zj check point" "check point error"
else
Browser("登录").Page("突发公共卫生综合管理信息系统_2").Frame("topFrame").Image("btExit").Click
Browser("登录").Page("突发公共卫生综合管理信息系统").Image("ExitSystem").Click
End If
Browser("登录").Page("登录_2").Sync
[ 本帖最后由 shengyan 于 2005-11-11 12:41 编辑 ] |
|