成长是一个过程,在这里留下我走过的每一个足迹。

[qtp]实现Web的链接参数化

上一篇 / 下一篇  2007-08-03 17:29:00 / 个人分类:qtp 学习笔记

贴子的原形是在51论坛上搜的,然后自己进行了修改。脚本可以运行成功。

'***************************************************************************
'脚本编写时间:2007-08-03
'脚本描述:打开一个网页,按条件搜索该页面中的link,
                        '然后把符合条件的link存储在变量中,从而实现
      '链接的参数化。
'***************************************************************************      

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   'Ucase()表示把字母转为大写
                    
      ReDim Preserve arr(i)  '定义动态数组
      arr(i)=element.InnerText
      'msgbox(arr(i))   
    i=i+1
        end if
Next

For j=0 to i-1
              msgbox(arr(j))
              Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link("[软件测试就业培训]").SetTOProperty "Text",arr(j)   '修改对象的"Text"属性 ,也就是link的参数化
              Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Link(arr(j)).Click
              wait(4)
              Browser("51Testing软件测试网").Back
              wait(4)      
Next


TAG: qtp 学习笔记

 

评分:0

我来说两句

日历

« 2024-03-21  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 11776
  • 日志数: 16
  • 建立时间: 2006-12-06
  • 更新时间: 2007-09-12

RSS订阅

Open Toolbar