51Testing软件测试论坛

标题: 怎样得到一个网页上的链接 [打印本页]

作者: zhyb_2008 时间: 2006-11-17 10:15
标题: 怎样得到一个网页上的链接
比如：网页上有“登录”两个字。我怎样能直接得到：右键点击一个歌曲，选择属性，在属性中显示的登录的所到的链接。
如怎样得到“http://www.colorme.com.cn/player/play.jsp?musicId=6951400”这行文字。

作者: yangkinki 时间: 2006-11-17 12:33
取得这个对象的属性值就可以了用 getroproperty()

作者: walker1020 时间: 2006-11-17 12:43
先在对象库里面找到表示这个地址（URL）的属性，然后用 yangkinki (kinki) 说的
getroproperty 函数就可以了。getroproperty 的用法在帮助里面有说明。

作者: zhyb_2008 时间: 2006-11-17 17:31
这个我知道。但不能每个URL都GetROProperty一遍，比如，有一个动态的列表，
aaa
bbb
ccc
我可以取了这一次的URL
再打开该页面时，列表变成了
ddd
eee
fff
那原来取的链接就用不上了。怎样，把这个动态的列表中的链接，动态的取出来。

作者: zhyb_2008 时间: 2006-11-24 09:22
期待高手的回复

作者: yangkinki 时间: 2006-11-24 10:57
y =datatable.Value("A",Globalsheet)
x=browser("怎样得到一个网页上的链接 - [QuickTest").Page("怎样得到一个网页上的链接 - [QuickTest").Link(y).GetROProperty ("url")
msgbox x
其中y是楼主所说的歌曲名称，而x是这首歌曲的url；当然这个x，y可以用其他方式取

作者: zhyb_2008 时间: 2006-11-28 10:27
感谢+感动sdlkfj9 ，我再试试。

作者: zhyb_2008 时间: 2006-11-28 11:06
我是这么处理的：

text = Browser("作品").Page("更多作品").WebTable("排序").GetCellData(3, 2)
msgbox "text is: " &cstr(text)
x =Browser("wwww").Page("wwww").Link(cstr(text)).GetROProperty("url")
msgbox "x is " &x
从网页的动态表格中取到歌曲名，然后再找链接，提示出错：
“link object was not found in the object Repository”,对象在对象管理库中不存在
我估计用版主的方式，也应该是同种出错提示吧。这个动态的LINK对象难道非要存入对象库？这也不可能呀。我每次打开网页，页面的列表都不一样呀。

[ 本帖最后由 zhyb_2008 于 2006-11-28 11:10 编辑 ]

作者: denisye 时间: 2006-11-28 11:12
Browser("快乐米音乐网_翻唱_伴奏_MV_博客_录歌_相册").Page("音乐频道_更多作品").Link(cstr(text))

要用描述性编程

改为Browser("快乐米音乐网_翻唱_伴奏_MV_博客_录歌_相册").Page("音乐频道_更多作品").Link("innerhtml:=" & cstr(text))

作者: zhyb_2008 时间: 2006-11-28 11:16
好的，我再试试。

作者: zhyb_2008 时间: 2006-11-28 11:30
还是不行。提示出错。

作者: zhyb_2008 时间: 2006-11-28 11:46
终于取出来了。Link("innerhtml:=" &text)
多这个Cstr怎么就是不行呢。

作者: zhyb_2008 时间: 2006-11-28 16:20
不是Cstr的问题。现在加上也没事，没北了。
另一个问题，希望版主和其它同行继续关注。
我想把我取出来的这些链接存入EXCEL文件中。
写了如下：
Dim Excelsheet
Set Excelsheet =CreateObject("Excel.Application")
Excelsheet.workbooks.Add(1)
Excelsheet.ActiveSheet.cell(1,1).value =x --x是我得到的一个“链接”的字符串
Excelsheet.saveas "c:\docs\test.xls"
Excelsheet.quit
这时，为什么不能保存到我想保存到的地方呢？怎么修改才能保存到：c:\docs\test.xls
sdlkfj7

作者: zpf 时间: 2006-11-29 09:18
不错的问题啊

关注ing

作者: zhyb_2008 时间: 2006-11-29 09:20
怎么还没人回俺呀？sdlkfj9

作者: hxf 时间: 2006-11-29 14:24
通过GetROProperty("url")方法能取得值呀！我做了一个试验。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Browser("广州市公共交通智能监控调度系统 - 计划排班").Page("广州市公共交通智能监控调度系统 - 计划排班").WebButton("基本信息").Click
Browser("广州市公共交通智能监控调度系统 - 计划排班").Page("广州市公共交通智能监控调度系统 - 计划排班").WebButton("车辆信息").Click
Browser("车辆信息").Page("车辆信息").Sync
Dim a
a=browser("车辆信息").Page("车辆信息").GetROProperty("url")
msgbox a

－－－－－－－－－－－－－－－－－－－－－－－－－－－－
能得到url的地址呀

作者: hxf 时间: 2006-11-29 15:46
Browser("广州市公共交通智能监控调度系统 - 计划排班").Page("广州市公共交通智能监控调度系统 - 计划排班").WebButton("基本信息").Click
Browser("广州市公共交通智能监控调度系统 - 计划排班").Page("广州市公共交通智能监控调度系统 - 计划排班").WebButton("车辆信息").Click
Browser("车辆信息").Page("车辆信息").Sync
Dim a
a=browser("车辆信息").Page("车辆信息").GetROProperty("url")
Dim excelsheet
Set Excelsheet=CreateObject("Excel.Application")
ExcelSheet.Application.Visible = True
Excelsheet.workbooks.Add(1)
Excelsheet.Activesheet.cells(1,1).value=a
Excelsheet.Save "d:\test.xls"
Browser("广州市公共交通智能监控调度系统 - 计划排班").Page("广州市公共交通智能监控调度系统 - 计划排班").Sync
Browser("广州市公共交通智能监控调度系统 - 计划排班").Close
excelsheet.Application.Quit
Set excelsheet=Nothing
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
可以用上边的方法来实现。

作者: zhyb_2008 时间: 2006-12-5 10:16
你的方法也不能把导出的东东保存到""d:\test.xls""下，也是保存到一个新的sheet1下呀。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)