4种参数化LINK的方法

flyfly310 · 发表于 2008-1-18 12:52:01

看了maguschen的两种参数化LINK方法http://bbs.51testing.com/viewthread.php?tid=48945&highlight=2%D6%D6%B2%CE%CA%FD%BB%AFLINK%B5%C4%B7%BD%B7%A8，非常受益，另外想出了两种参数化LINK的方法，供大家参考，举一反三同样可以对webedit，webelement等对象进行参数化

第一种：利用 Description 对象For intLoop = 1 to N
strText=DataTable.Value(...)
Set LinkDesc = Description.Create()
LinkDesc ("Text").Value = strText
Browser("").Page("").Link(LinkDesc).Click
DataTable.GetSheet("").SetNextRow
Next
第二种：描述性编程For intLoop = 1 to N
strText=DataTable.Value(...)
Browser("").Page("").Link("text:=" & strText).Click
DataTable.GetSheet("").SetNextRow
Next
第三种：利用SetToproperty方法（以sina为例）
Step1:录制
Browser("新浪首页").Page("新浪首页").Link("墨尔本北航热招营销硕士").click
此时对象库如图1

Step2：欲点击其他新闻
Browser("新浪首页").Page("新浪首页").Link("北大私募基金/企业上市").Click
'点击北大...新闻
Browser("新浪首页").Page("新浪首页").Link("北大私募基金/企业上市").SetTOProperty"text","清华深圳创业板/私募班"
Browser("新浪首页").Page("新浪首页").Link("北大私募基金/企业上市").Click
'点击清华...新闻
Setp3：写循环语句
For intLoop = 1 to N
strText=DataTable.Value(...)
Browser("新浪首页").Page("新浪首页").Link("北大私募基金/企业上市").SetTOProperty"text","strText"
DataTable.GetSheet("").SetNextRow
Next
第四种：利用参数化对象的Text属性实现
Step1:录制
Browser("新浪首页").Page("新浪首页").Link("墨尔本北航热招营销硕士").click
此时对象库如图1

Step2：参数化Text属性，见下图2，步骤省略

Step3：写循环或者设置Action run call properties为run on all rows即可

[ 本帖最后由 flyfly310 于 2008-3-26 09:36 编辑 ]

andrewli · 发表于 2012-2-22 17:51:47

挺有用的，谢谢分享

lizkli · 发表于 2011-3-15 11:26:34

非常好的东西啊
谢谢共享啊

lizkli · 发表于 2011-3-15 11:01:19

很好，谢谢

sophiashan07 · 发表于 2010-12-17 11:35:52

我公司2010年6月份刚在纳斯达克上市，现在要找一名自动化测试组长,薪资福利良好：

我们项目组需要招聘自动化测试组组长，职位信息如下：
1.计算机相关专业本科以上学历，熟悉软件工程师学原理；
2.软件测试相关经验3年以上，其中至少包括2年功能自动化测试经验；
3.熟悉QTP工具的使用，了解QTP原理和对象识别机制；
4.熟悉VBScript脚本语言，能进行相关自动化脚本函数的编写；
5.较强的语言表达和文档编写能力及良好的沟通技巧；
6.有金融银行基础业务知识经验、有网银业务经验为佳；
7.有自动化框架编写、设计经验和软件开发经验有团队管理经验为佳；
8.熟悉Java、J2EE 、WebSphere 、Application Serve、DB2、Oracle等为佳
9.有Unix平台的使用经验（AIX/Solaris/HPUX/Linux）为佳；
欢迎各专业人士来信探讨，谢谢：
shanjing1983@163.com
sophiashan07@hotmail.com

Gasgoo · 发表于 2010-11-10 16:06:01

还没实践过。。

iamfeiyu1009 · 发表于 2010-9-18 14:50:23

楼主总结得很好，我一般用第二种，比较方便，可以在重用的action里写，把链接的文字当参数传进来

y_hannah · 发表于 2010-8-30 13:36:59

请问一下，在某网页中判断某个link是否存在，用VBS语言怎样描述？
If Browser("MSN.com").Page("Page").Link("HP Smart Deal").Exist Then
Call oReporterManager.Report ("Pass", "HP Smart Deal" ,"HP Smart Deal Exist" ,"HP Smart Deal    Exist", "No details")
else

Call oReporterManager.Report ("Fail", "HP Smart Deal " ,"HP Smart Deal does not Exist" ,"HP Smart Deal does not  Exist", "No details")
End if
这样写对不？

cebio · 发表于 2010-8-27 19:16:58

总结的不错

luxiuxiu1987 · 发表于 2010-8-25 17:08:32

总结不错，支持

mogaochao · 发表于 2010-5-19 14:16:18

感谢

jane3 · 发表于 2010-4-22 18:05:13

学习了，谢谢分享哈！

achang21 · 发表于 2009-4-5 22:46:38

真不知道，为什么你们一个简单的问题，搞得那么复杂，两句话就实现的东西，何必那么麻烦！

Linkvar=DataTable("linktext",dtGlobalSheet)
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").LinK("text:="&Linkvar).click

在 DataTable 中数据如下：
linktext
126免费邮
Yeah.net
VIP
188
贺卡
帮助
我承认lz解决问题的思路广度，值得大家学习，呵呵！