测试论坛的超连接情况

cgy81223

我要测的网站有上千个链接的，其中有的链接是系统自动生成的，有的是手动添加．
我要测试看看有没有死联结情况.不用每一个都点击一遍吧.
请教高手最简单有效的方法．谢谢！最好有一些注释,本人是测试新人

cgy81223

Browser("5173.com|装备交易游戏币交易帐号交易|寄售担保交易|").Page("5173网游社区").Frame("leftmenu").Link("梦幻西游").Click
Browser("5173.com|装备交易游戏币交易帐号交易|寄售担保交易|").Page("5173网游社区").Frame("main").Link("『梦幻西游』总版规").Click

jinsen

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

感谢楼上这位兄弟,写的真详细,高手真多

shiyi1022

原帖由 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

xenu