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

shiwomyw · 发表于 2007-8-1 17:52:46

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

junlingliu · 发表于 2007-11-27 12:21:44

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

还是不明白....

danmy · 发表于 2007-11-19 17:20:04

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

junlingliu · 发表于 2007-11-19 17:15:29

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

shiwomyw · 发表于 2007-8-2 12:14:45

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

jackymail · 发表于 2007-8-2 11:54:07

能否讲解一下links属性。

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

shiwomyw · 发表于 2007-8-2 11:34:01

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