大家帮忙看一下子吧，还差一点了(几位大哥进来看呀，有图)

423799223

各位老大帮忙看下，我现在就差一点问题
我想实现参数化用户名和密码登录一个网站，没验证码的
为什么在输入正确的用户名和密码登录成功后，没有点击退出登录的按钮呢？
我的思路：这个IF就是判断点击登录按钮时看是否存在错误窗口页面，如果存在就点击错误窗口中的确定按钮，
如果不存在就是登录成功，就点击退出系统，以实现再次登录，求各位大哥帮忙看下子
********************
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebEdit("admin").Set DataTable("name", dtGlobalSheet)
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebEdit("password").SetSecure DataTable("paw", dtGlobalSheet)
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebButton("管理登陆").Click
If Browser("尘封办公OA系统").Dialog("Microsoft Internet Explorer").Exist Then
        Browser("尘封办公OA系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Else
        Browser("尘封办公OA系统").Page("尘封办公OA系统_2").Frame("top").Link("退出系统").Click
End If
Browser("尘封办公OA系统").Close
********************

[ 本帖最后由 423799223 于 2007-2-6 11:50 编辑 ]

intothehit

用场景恢复，自定义异常

zhaoaihua305

运行成功，但是等待时间太长
代码：
Browser("国库集中支付管理系统").Page("国库集中支付管理系统").WebEdit("userId").Set DataTable("username", dtGlobalSheet)
Browser("国库集中支付管理系统").Page("国库集中支付管理系统_2").WebEdit("pwd").SetSecure DataTable("password", dtGlobalSheet)
Browser("国库集中支付管理系统").Page("国库集中支付管理系统_2").WebButton("登 录").Click
If Browser("国库集中支付管理系统").Dialog("Microsoft Internet Explorer").Exist Then
    Browser("国库集中支付管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
        else
                 Browser("国库集中支付管理系统").Page("国库集中支付管理系统 1.3.06").Frame("mainFrame").Link("退出系统").Click
                 Browser("国库集中支付管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
End If

suifengpiao

不一定哦，如果比对的组件不在当前页面中用Exist(1)也不快

Coffey111111

可以在If Browser("尘封办公OA系统").Dialog("Microsoft Internet Explorer").Exist中的Exist函数改写成Exist（1），可以快一点~~  试试sdlkfj5     不过还是要等一会的，Exist函数以及If判断QTP是需要时间的了sdlkfj2

423799223

那版主有没有别的方法可以解决
现在是QTP这样的执行速度连手工都比不上
如果5000个帐号 那不是要N天

kevin_swpi

原帖由 xiaonan 于 2007-2-6 15:37 发表
恩,可能QTP在执行判断页面是否Exist 的时候,需要一定的时间.

赞成xiaonan的说法
我也运行到这一步的时候等了很久
但最后都执行通过了

你如果要用５０００个用户名来获取那些有效的话．．．．我想这个方法在时效上不好
呵呵
不过可以在夜间执行　

423799223

我加了一个Wait(10)就可以了，如果这样的话，那验证一个用户名就得浪费几十秒
我有5000个用户名，不是比手工还慢，请问楼上的大哥们有没有别的方法解决此事
现在这个被测试的页面在我本机上的，应该没有速度问题
****************
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebEdit("admin").Set DataTable("name", dtGlobalSheet)
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebEdit("password").SetSecure DataTable("paw", dtGlobalSheet)
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebButton("管理登陆").Click
        If Browser("尘封办公OA系统").Dialog("Microsoft Internet Explorer").Exist Then
        Wait(10)
        Browser("尘封办公OA系统").Dialog("Microsoft Internet Explorer").Activate
        Browser("尘封办公OA系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

Else
        Browser("尘封办公OA系统").Page("尘封办公OA系统_2").Frame("top").Link("退出系统").Click
End If
Browser("尘封办公OA系统").Close
****************

wssgily

多加上几个wait 和 msgbox 试试

423799223

我本来是考虑到可以验证存在的页面的其它控件属性
但是我不知道怎么弄
就这一个重复登录页面的功能我弄了两天没弄出来
唉
班主大哥教下吧

xiaonan

除了验证页面是否存在外?还能有什么信息可以抓来判断的吗?

423799223

那怎么解决这个问题呢

xiaonan

恩,可能QTP在执行判断页面是否Exist 的时候,需要一定的时间.

423799223

就是程序在IF判断那里不动了

19thangel

QTP不动是什么意思？多等会儿也没报错？

建议lz先在if 和else 后面加个msgbox看看程序是不是按照你要求的执行的，然后再具体找下原因sdlkfj2

423799223

我是按照你说的试了下把图也贴上来了
我想让你们帮我分析下是哪段代码有问题
现在是都不是运行完所有的用户名

wssgily

我按我们说的逻辑在flight上试了一下,没有问题的.

423799223

这是我参数的用户名和密码：
Name:
1
admin1
admin2

Paw:
45c7df41dfde45e7
admin
admin3

用户名为Admin1到admin9之间都可以，密码都是admin
我的第一个和第三个都是错误的，只有第二个是正确的

423799223

一运行QTP，第一次密码是错误的就不动了
********
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebEdit("admin").Set DataTable("name", dtGlobalSheet)
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebEdit("password").SetSecure DataTable("paw", dtGlobalSheet)
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebButton("管理登陆").Click
'If Browser("尘封办公OA系统").Dialog("Microsoft Internet Explorer").Exist Then
'       Browser("尘封办公OA系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
'Else
        Browser("尘封办公OA系统").Page("尘封办公OA系统_2").Frame("top").Link("退出系统").Click
'End If
Browser("尘封办公OA系统").Close
********

[ 本帖最后由 423799223 于 2007-2-6 11:37 编辑 ]

wssgily

原帖由 423799223 于 2007-2-6 11:27 发表
3楼的大哥，我照你说的去做
结果一运行时，第一次密码是错误的，QTP就不动了，以下是我的代码
*********
Browser("尘封办公OA系统").Page("尘封办公OA系统").WebEdit("admin" ...

按4楼的版主说的方法试试.然后把错误提示发上来看看

[ 本帖最后由 wssgily 于 2007-2-6 11:31 编辑 ]