51Testing软件测试论坛

标题: 为啥第一次循环成功，第二循环不成功？？ [打印本页]

作者: shiwomyw 时间: 2007-8-1 17:52
标题: 为啥第一次循环成功，第二循环不成功？？
目前在学QTP，想实现功能：把页面中的链接参数化，每次执行时红色部在循环到j=1时就报错，请大家帮我看看是哪里出错啦！
Browser("51Testing软件测试网").Page("51Testing软件测试网").Sync
Browser("51Testing软件测试网").Navigate "http://www.51testing.net/"
Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Sync

Set tags=Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Object.links
Dim i,j, arr()
i=0
For Each element in tags
If Ucase(element.tagname)="A" and left(element.InnerText,1)="[" Then
                     ReDim Preserve arr(i)
                  arr(i)=element.InnerText
i=i+1
      end if
Next

For j=0 to i-1
　　　　　　　　msgbox(arr(j))
                     Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link("[软件测试就业培训]").SetTOProperty "Text",arr(j)
　　 Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link("[软件测试就业培训]").Click
　　 wait(20)
                     Browser("51Testing软件测试网").Back
　　 wait(20)

Next

报错如下图
[attach]30287[/attach]

[ 本帖最后由 shiwomyw 于 2007-8-2 15:54 编辑 ]

作者: jackymail 时间: 2007-8-1 18:07
标题: 还是改成路过好了
还是改成路过好了

[ 本帖最后由 jackymail 于 2007-8-2 00:07 编辑 ]

作者: flyskypei 时间: 2007-8-1 18:38
标题: 加个延迟试试
可能是页面还没来得及刷新造成的

settoproperty

后加个 wait(2)

作者: lianglina_2003 时间: 2007-8-1 20:19
加exitrun在循环结束,试试

作者: shiwomyw 时间: 2007-8-2 11:34
问题解决了，脚本执行成功。把脚本中红色部分改成蓝色部就可以啦。
For j=0 to i
　　　　　　　　msgbox(arr(j))
                     Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link("[软件测试就业培训]").SetTOProperty "Text",arr(j)
      　　 Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link("[软件测试就业培训]").Click
　　　　　　　Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link(arr(j)).Click       　　
　　　　　wait(4)
                     Browser("51Testing软件测试网").Back
      　　 wait(4)

Next

[ 本帖最后由 shiwomyw 于 2007-8-2 11:36 编辑 ]

作者: jackymail 时间: 2007-8-2 11:54
标题: 能否讲解一下links属性。
能否讲解一下links属性。

[ 本帖最后由 jackymail 于 2007-8-2 11:59 编辑 ]

作者: shiwomyw 时间: 2007-8-2 12:14
强制属性也就“html tag” 和　"text"

作者: junlingliu 时间: 2007-11-19 17:15
标题: 运行读次后也出错了!!请帮忙吧!
.....
for i=0 to 8
Dialog("iP-FunTV Player").Restore
Dialog("iP-FunTV Player").WinButton("Button").Click
Dialog("iP-FunTV Player").WinMenu("ContextMenu").Select "Properties"
......
i=i+1
next

循环6次后,在上面第二语句处提示:Object not visible

作者: danmy 时间: 2007-11-19 17:20
是不可见,不是找不到,spy一下当前对象的属性

作者: junlingliu 时间: 2007-11-27 12:21

原帖由 danmy 于 2007-11-19 17:20 发表
是不可见,不是找不到,spy一下当前对象的属性

还是不明白....

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)