如何测试网一个网站各页面title的正确性

test7 · 发表于 2007-7-20 14:38:28

一个一个的点击太慢了还可能有漏掉的

gzj_06 · 发表于 2007-7-28 13:06:28

Dim objectCount, tags, element, innerText()
Set tags=Browser("Browser").Page("Page").Object.links
objectCount=0
For Each element in tags
If trim(element.innertext)<>"" Then
ReDim Preserve innerText(objectCount)
innerText(objectCount)=element.InnerText
objectCount=objectCount+1
end if
Next
For i = 0 to objectCount
Browser("####").Page("####").Link("innerText:=" & innerText(i)).Click
newTitle = Browser("CreationTime:=1").Page("micClass:=Page").GetROProperty("title")
..........................
Browser(("CreationTime:=1").Page("micClass:=Page").Sync
Browser(("CreationTime:=1").Close
Next

复制代码

wangyong3552128 · 发表于 2007-7-24 15:01:19

函数、检查点、参数化我想能办到

test7 · 发表于 2007-7-23 15:51:17

没人知道吗

meijiao · 发表于 2007-7-23 12:13:48

知道的人解答一下啊

test7 · 发表于 2007-7-23 11:11:31

就是测试每个网页标题栏中的文字是否正确,想问一下用什么方法测能够方便点儿

mans · 发表于 2007-7-21 21:19:34

我也不明白..

walker1020 · 发表于 2007-7-20 23:36:28

不明白楼主的意思！

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 如何测试网一个网站各页面title的正确性