QTP的登陆脚本设计

kevin_swpi

楼主的这个想法不错
通过自己实践来同大家分享

这里就你这个case说说一些自己的看法
xiaonan上面的这个问题我们就不讨论了  是一个缺陷

另外你在设计上我提点个人看法
你这个思路是通过是否有弹出对话框来进行判断登陆是否成功
按照你的代码
如果出现其他错误信息提示,比如网络链接中断,或者服务器登陆不上等?
你怎么办?

所以
你可以判断是否有弹出框架弹出
修改你的代码为
Dim iStatus
Browser(智能变电巡检仪系统 4.0).Page(智能变电巡检仪系统 4.0).WebEdit(txtLoginName).Set DataTable(username, dtLocalSheet)
Browser(智能变电巡检仪系统 4.0).Page(智能变电巡检仪系统 4.0).WebButton(登 录).set DataTable(password, dtLocalSheet)
iStatus = Browser(智能变电巡检仪系统 4.0).Page(智能变电巡检仪系统 4.0).dialog().exit
if iStatus = false then
   Reporter.ReportEvent micFail, 登陆, 登陆成功.
   Browser(智能变电巡检仪系统 4.0).Close
else
   if Browser(智能变电巡检仪系统 4.0).Page(智能变电巡检仪系统 4.0).dialog().getRoProperty() = “该用户不存在” then
         Reporter.ReportEvent micFail,"登陆", "登陆失败,密码错误".
   else
         Reporter.ReportEvent micFail, "登陆", "登陆出现异常." (当然你也可以把这个异常弹出框中内容写出来)
   end if
end if

===
这里我就没有用到你数据中的第三项
如果你要用 也可以
在判断的地方修改下程序即可