51Testing软件测试论坛

标题: 测试论坛的超连接情况 [打印本页]

作者: cgy81223 时间: 2007-12-29 16:56
标题: 测试论坛的超连接情况
我要测的网站有上千个链接的，其中有的链接是系统自动生成的，有的是手动添加．
我要测试看看有没有死联结情况.不用每一个都点击一遍吧.
请教高手最简单有效的方法．谢谢！最好有一些注释,本人是测试新人

作者: jinsen 时间: 2007-12-29 18:03
Dim oDesc,tempObj,pageObj
Set pageObj = Browser("5173.com|装备交易游戏币交易帐号交易|寄售担保交易|").Page("5173网游社区").Frame("leftmenu")
Set oDesc = Description.Create()
oDesc("micclass").Value = "Link"
Set tempObj = pageObj.ChildObjects(oDesc)
objCount = tempObj.Count
'print(objCount)
If objCount > 0 Then
Dim tempUrl
For i = 0 to objCount -1
tempUrl = ""
tempObj(i).click
If Browser("CreationTime:=3").Page("index:=").Exist Then
Reporter.ReportEvent micPass, "LinkCheckPoint", "Link can be used."
Browser("CreationTime:=3").close
Else
tempUrl = "URL = " & tempObj(i).GetROProperty("url")
Reporter.ReportEvent micFail, "LinkCheckPoint", "Link can not be used." & tempUrl
End If
Next
End If

Browser("CreationTime:=3")
这句是描述性语言，［CreationTime］代表第几个打开的IE，Index从"0"，"3"表示是第4个打开的IE。

作者: cgy81223 时间: 2008-1-2 10:14
感谢楼上这位兄弟,写的真详细,高手真多

作者: shiyi1022 时间: 2008-1-2 16:39

原帖由 jinsen 于 2007-12-29 18:03 发表
Dim oDesc,tempObj,pageObj
Set pageObj = Browser("5173.com|装备交易游戏币交易帐号交易|寄售担保交易|").Page("5173网游社区").Frame("leftmenu")
Set oDesc = Description.Create()
oDesc("micclass").Value ...

请问在执行代码时，第一次for循环可以正确执行，但第二次运行到“tempObj(i).click”提示“General run error.
Line (14): "tempObj(i).click". ”这个错误？

俺知道了，在报告完成后会关闭浏览器，这时肯定找不到那个链接了，所以出错了。

[ 本帖最后由 shiyi1022 于 2008-1-2 16:55 编辑 ]

作者: jackymail 时间: 2008-1-2 17:57
xenu

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