简要咨询咨询QQ网站导航网站搜索手机站点联系我们设为首页加入收藏 

VBS获取重定向的URL的代码

来源:易贤网   阅读:1655 次  日期:2016-07-07 14:23:29

温馨提示:易贤网小编为您整理了“VBS获取重定向的URL的代码”,方便广大网友查阅!

我本来想获取aaa.com页面的内容,可是aaa.com跳转到bbb.com了。我想获取bbb.com 这个网址。

某个人问的问题:

我本来想获取aaa.com页面的内容,可是aaa.com跳转到bbb.com了。我想获取bbb.com 这个网址。

访问了一下他所谓的aaa.com,发现是HTTP 302重定向

代码如下:

HTTP/1.1 302 Moved Temporarily

Server: nginx/0.8.53

Date: Fri, 08 Apr 2011 15:49:25 GMT

Content-Type: text/html;charset=utf-8

Transfer-Encoding: chunked

Connection: keep-alive

X-Powered-By: PHP/5.2.15

Location: http://tuan.sohu.com/beijing/life/

为了测试方便,我写了一个302.php,重定向到小顾de杂记:

代码如下:

<?php

header('Location: http://ihipop.info/');

?>

先用XMLHTTP试试:

代码如下:

Dim http

Set http = CreateObject("Msxml2.ServerXMLHTTP")

http.open "GET", "http://demon.tw/test/302.php", False

http.send

WScript.Echo http.responseText

XMLHTTP组件在处理包含Location头的302消息时太智能,直接给跳转到Location指定的页面了。

XMLHTTP不行,我们还有WinHttp.WinHttpRequest.5.1,该组件的Option属性的第六个索引EnableRedirects就是指示是否自动跳转:

代码如下:

Dim WinHttp

Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

WinHttp.Open "GET", "http://demon.tw/test/302.php", False

WinHttp.Option(6) = False

WinHttp.Send

WScript.Echo WinHttp.GetResponseHeader("Location")

问题就这样完美的解决了

更多信息请查看脚本栏目
点此处就本文及相关问题在本站进行非正式的简要咨询(便捷快速)】     【点此处查询各地各类考试咨询QQ号码及交流群
上一篇:VBS中InputBox函数的返回值使用技巧
下一篇:VBS 两数相加取值问题分析
易贤网手机网站地址:VBS获取重定向的URL的代码
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!