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

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

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

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

回复 8# user603

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

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

回复 3# 黑羽祭

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

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

回复 6# 黑羽祭

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

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

回复 5# user603

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

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

回复 3# 黑羽祭

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

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

回复 3# 黑羽祭

多谢大师指点，

黑羽祭 · 发表于 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 10:28:59

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

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

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