为啥第一次循环成功，第二循环不成功？？

shiwomyw

目前在学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


报错如下图


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

jackymail

还是改成路过好了

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

flyskypei

可能是页面还没来得及刷新造成的

settoproperty

后加个  wait(2)

lianglina_2003

加exitrun在循环结束,试试

shiwomyw

问题解决了，脚本执行成功。把脚本中红色部分改成蓝色部就可以啦。
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

能否讲解一下links属性。

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

shiwomyw

强制属性也就“html tag” 和　"text"

junlingliu

.....
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

是不可见,不是找不到,spy一下当前对象的属性

junlingliu

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

还是不明白....