登陆的自动化代码出现错误

fangyiye

出现错误信息提示。
Line (14): "Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)".

Dim  i '定义行号
Dim outputvalue '读取系统实际的提示信息
Dim istatus '定义读取系统预期提示信息的变量


For i=1to datatable.GetSheet("Action1").getrowcount




       
Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebButton("submit").Click



utputvalue=datatable("outmsg",dtlocalsheet)   '将实际输出值赋予变量 outputvalue
istatus=datatable("statue",dtlocalsheet) '将与其输出值赋予变量istatus





If  outputvalue<>istatus Then
         reporter.ReportEvent 1,"登陆功能测试","预期值为："+status+",实际值为：“+outputvalue"
End If

datatable.GetSheet("Action1").setnextrow '获取action1中的下一行 数据


Next



Browser("亿芯工程样片零售网").Page("会员中心首页 - 亿芯工程样片零售网").Link("退出").Click

tiger_86

俺不知道你这个 点击推出以后 到达的是那个页面了
第一感觉就是:这个脚本可以运行一遍!

david208

utputvalue=datatable("outmsg",dtlocalsheet)   '将实际输出值赋予变量 outputvalue

happychap

写脚本，最好在脚本的最开始写上Option Explicit，避免因变量笔误而造成的错误结果。

fangyiye

附图

david208

Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebButton("submit").Click
你的图怎么又变“登录”了？

fangyiye

这个错误是因为没有输入密码找不到对象，这个提示是个弹出式的窗口。弹出窗口没有建对象化，有没有人做过相关的自动化测试呢

[ 本帖最后由 fangyiye 于 2009-1-6 10:14 编辑 ]

fangyiye

我录制的是能够成功登陆的。那个是输入不正确的弹出的提示框

zhangxinnow

建议好好看看出错信息，发出的资料不完全，无法分析。找不到对象是没有加入对象库，在对象库添加一下对象。

fangyiye

是的。都晕了