成长是一个过程,在这里留下我走过的每一个足迹。
[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 学习笔记