On Error Resume Next
strURL = "http://www.microsoft.com/technet/scriptcenter/default.mspx"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
Wscript.Echo(objHTTP.statusText)
我们首先将“脚本中心”的 URL 赋给名为 strURL 的变量。接着我们创建了一个实例 MSXML2.XMLHTTP,该实例是一个 COM 对象,它为客户机与 HTTP 服务器的交互提供了一种方法。然后我们调用 Open 方法,向其传递三个参数:GET(指从服务器检索信息)、strURL(保存“脚本中心”主页 URL 的变量)和 FALSE(使调用同步)。之后,我们使用 Send 方法将我们的请求发送到 HTTP 服务器。
那么我们如何知道 http://www.microsoft.com/technet/scriptcenter/default.mspx 是否可访问呢?只需检查 statusText 属性的值即可。如果 statusText 是 OK,则页面可访问;如果不是 OK,则说明某些地方出错了,我们无法访问指定的 URL。
顺便提一句,网页的内容是作为 MSXML2.XMLHTTP 对象的 ResponseText 属性返回的。这意味着您可以使用 FileSystem 对象将页面的内容保存到文件中。例如:
On Error Resume Next
Const ForWriting = 2
strURL="http://www.microsoft.com/technet/scriptcenter/default.mspx"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("script_center.htm", ForWriting)
objFile.Write objHTTP.ResponseText
objFile.Close
请记住,保存后的文档的格式可能与网页的格式不同,这取决于以下情况:网页使用的是什么样式表,页面使用的是图形的相对链接还是绝对链接等。不过大多数情况下,即使格式有点缺漏,页面也可读。
繁星守侯月不能睡 只因为爱上了夜的黑 这是出动的好时节