51Testing软件测试论坛

标题: 如何测试网一个网站各页面title的正确性 [打印本页]

---

作者: test7    时间: 2007-7-20 14:38
标题: 如何测试网一个网站各页面title的正确性
一个一个的点击太慢了还可能有漏掉的

---

作者: walker1020    时间: 2007-7-20 23:36
不明白楼主的意思！

---

作者: mans    时间: 2007-7-21 21:19
我也不明白..

---

作者: test7    时间: 2007-7-23 11:11
就是测试每个网页标题栏中的文字是否正确,想问一下用什么方法测能够方便点儿

---

作者: meijiao    时间: 2007-7-23 12:13
知道的人解答一下 啊

---

作者: test7    时间: 2007-7-23 15:51
没人知道吗

---

作者: wangyong3552128    时间: 2007-7-24 15:01
函数、检查点、参数化我想能办到

---

作者: gzj_06    时间: 2007-7-28 13:06
标题: 楼主试试

1. Dim objectCount, tags, element, innerText()
   
2. Set tags=Browser("Browser").Page("Page").Object.links
   
3. 
   
4. objectCount=0
   
5. For Each element in tags
   
6.     If trim(element.innertext)<>"" Then
   
7.     ReDim Preserve innerText(objectCount)
   
8.     innerText(objectCount)=element.InnerText
   
9.     objectCount=objectCount+1
   
10.     end if
    
11. Next
    
12. 
    
13. For i = 0 to objectCount
    
14.   Browser("####").Page("####").Link("innerText:=" & innerText(i)).Click
    
15.   newTitle = Browser("CreationTime:=1").Page("micClass:=Page").GetROProperty("title")
    
16.   ..........................
    
17.   Browser(("CreationTime:=1").Page("micClass:=Page").Sync
    
18.   Browser(("CreationTime:=1").Close
    
19. Next

复制代码

---

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

Powered by Discuz! X3.2