user603 发表于 2013-3-22 09:33:10

有两个问题请大家帮忙解决一下:)。

1、如何检查一个page中的所有链接都是有效的？
2、FSO对象可否一次创建多层目录？

user603 发表于 2013-3-22 10:28:59

:)自己顶一下，静待高手的到来。。

黑羽祭 发表于 2013-3-22 12:21:32

回复 1# user603


    问题一：以前收集了一个这样的函数'=========================================================
' Name: CheckAllLinkReachable
' Summary: CheckAllLinkReachable
' Parameters:
' strBrowser: browser name
' strPage: page name
' strURLPattern: URL pattern you wan't to check. such as: ^http.*
' Return: None
'==========================================================
Function CheckAllLinkReachable(strBrowser, strPage, strURLPattern)
    Dim blnReachable
    blnReachable = True
    Set objXML = CreateObject("Msxml2.XMLHTTP")
   
    ' Get all link on the page
    Set objDes = Description.Create
    objDes("micclass").Value = "Link"
    Set objLinkList = Browser(strBrowser).Page(strPage).ChildObjects(objDes)
    For i = 0 To objLinkList.Count() - 1
      ' Create XML HTTP Object
      strURL = objLinkList(i).GetROProperty("href")
      If RegExpTest(strURLPattern, strURL) Then
            objXML.Open "POST", strURL, false
            objXML.Send
            ' msgbox objXML.responseText
            print (objLinkList(i).GetROProperty("href") & " Ready State:" & objXML.readyState & " Status: " & objXML.status)
            If objXML.status <> "200" Then
                blnReachable = False
            End If
            
            objXML.abort()
      End If
    Next
   
    Set objXML = Nothing
    CheckAllLinkReachable = blnReachable
End Function


问题二：我觉得应该是可以的，但我vbs玩的没那么深
我的做法是写成个Function，在Function里将地址拆解一下，然后逐个调用个判断是否存在这样目录的Function，如果没有就调用个创建目录的Function。

user603 发表于 2013-3-22 13:08:05

回复 3# 黑羽祭


    多谢大师指点，:D

user603 发表于 2013-3-27 09:38:41

回复 3# 黑羽祭


   " If RegExpTest(strURLPattern, strURL) Then"
这句里面的正则表达式对象没有创建？

黑羽祭 发表于 2013-3-27 10:31:04

回复 5# user603


    有什么问题么？不能用？我记得我用过一次，应该没有什么问题。

user603 发表于 2013-3-27 13:18:06

回复 6# 黑羽祭


    报错的。应该没有这个函数吧。RegExpTest
只能正则表达式对象调用Test方法。

user603 发表于 2013-3-27 13:21:06

回复 3# 黑羽祭


    知道了，RegExpTest(strURLPattern, strURL)应该是个自定义函数。

黑羽祭 发表于 2013-3-28 08:49:49

回复 8# user603


    哦~想起来了，貌似还有个函数的，这个函数那时候我百度了一下就有了。
页: [1]
查看完整版本: 有两个问题请大家帮忙解决一下:)。