51Testing软件测试论坛

标题: 有两个问题请大家帮忙解决一下:)。 [打印本页]
作者: user603    时间: 2013-3-22 09:33
标题: 有两个问题请大家帮忙解决一下:)。
1、如何检查一个page中的所有链接都是有效的？
2、FSO对象可否一次创建多层目录？
作者: user603    时间: 2013-3-22 10:28
自己顶一下，静待高手的到来。。
作者: 黑羽祭    时间: 2013-3-22 12:21
回复 1# user603


    问题一：以前收集了一个这样的函数
  1. '=========================================================
  2. ' Name: CheckAllLinkReachable
  3. ' Summary: CheckAllLinkReachable
  4. ' Parameters:
  5. ' strBrowser: browser name
  6. ' strPage: page name
  7. ' strURLPattern: URL pattern you wan't to check. such as: ^http.*
  8. ' Return: None
  9. '==========================================================
  10. Function CheckAllLinkReachable(strBrowser, strPage, strURLPattern)
  11.     Dim blnReachable
  12.     blnReachable = True
  13.     Set objXML = CreateObject("Msxml2.XMLHTTP")
  14.    
  15.     ' Get all link on the page
  16.     Set objDes = Description.Create
  17.     objDes("micclass").Value = "Link"
  18.     Set objLinkList = Browser(strBrowser).Page(strPage).ChildObjects(objDes)
  19.     For i = 0 To objLinkList.Count() - 1
  20.         ' Create XML HTTP Object
  21.         strURL = objLinkList(i).GetROProperty("href")
  22.         If RegExpTest(strURLPattern, strURL) Then
  23.             objXML.Open "POST", strURL, false
  24.             objXML.Send
  25.             ' msgbox objXML.responseText
  26.             print (objLinkList(i).GetROProperty("href") & " Ready State:" & objXML.readyState & " Status: " & objXML.status)
  27.             If objXML.status <> "200" Then
  28.                 blnReachable = False
  29.             End If
  30.             
  31.             objXML.abort()
  32.         End If
  33.     Next
  34.    
  35.     Set objXML = Nothing
  36.     CheckAllLinkReachable = blnReachable
  37. End Function
复制代码



问题二：我觉得应该是可以的，但我vbs玩的没那么深
我的做法是写成个Function，在Function里将地址拆解一下，然后逐个调用个判断是否存在这样目录的Function，如果没有就调用个创建目录的Function。
作者: user603    时间: 2013-3-22 13:08
回复 3# 黑羽祭


    多谢大师指点，
作者: user603    时间: 2013-3-27 09:38
回复 3# 黑羽祭


   " If RegExpTest(strURLPattern, strURL) Then"
这句里面的正则表达式对象没有创建？
作者: 黑羽祭    时间: 2013-3-27 10:31
回复 5# user603


    有什么问题么？不能用？我记得我用过一次，应该没有什么问题。
作者: user603    时间: 2013-3-27 13:18
回复 6# 黑羽祭


    报错的。应该没有这个函数吧。RegExpTest
只能正则表达式对象调用Test方法。
作者: user603    时间: 2013-3-27 13:21
回复 3# 黑羽祭


    知道了，RegExpTest(strURLPattern, strURL)应该是个自定义函数。
作者: 黑羽祭    时间: 2013-3-28 08:49
回复 8# user603


    哦~想起来了，貌似还有个函数的，这个函数那时候我百度了一下就有了。



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2