VBS获取重定向的URL的代码

某个人问的问题：
我本来想获取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")

问题就这样完美的解决了，但是那个人连声谢谢都没有，真是世风日下。
原文：http://demon.tw/programming/vbs-http-302-redirect.html

赞 (0)

相关推荐

  • VBS获取重定向的URL的代码

    某个人问的问题: 我本来想获取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-Encod

  • C#获取当前页面的URL示例代码

    本实例的测试URL:http://www.mystudy.cn/web/index.aspx 1.通过C#获取当前页面的URL 复制代码 代码如下: string url = Request.Url.AbsoluteUri; //结果: http://www.mystudy.cn/web/index.aspx string host = Request.Url.Host; //结果:www.mystudy.cn string rawUrl = Request.RawUrl; //结果:/web/

  • vbs获取当前时间日期的代码

    获取当前日期方法一: 复制代码 代码如下: Currentdate1=date()msgbox Currentdate1 获取当前日期方法二: 复制代码 代码如下: Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgbox Currentdate2 获取当前时间: 复制代码 代码如下: CurrentTime=Hour(Now)&":"&Min

  • 用VBS获取Unix时间戳的函数代码

    VBS中没有类似C标准库中的time函数,怎么获取Unix时间戳呢?乍一看很简单: 复制代码 代码如下: Function UnixTime() UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now()) End Function 一个很想当然的方法,仅仅注意到了"1970年1月1日0时0分0秒",而忽略了"协调世界时". 协调世界时,又称世界标准时间或世界协调时间,简称UTC

  • 解析php 版获取重定向后的地址(代码)

    复制代码 代码如下: //取重定向的地址  class RedirectUrl{      //地址      var $url;      //初始化地址      function RedirectUrl($url){          $this->url = $url;      }      /**       * get_redirect_url()       * 取重定向的地址       *       * @param string $url       * @return

  • vbs 获取当前目录文件数量的代码(不包括子文件夹中的)

    复制代码 代码如下: i=0set fso=CreateObject("Scripting.FileSystemObject")set fs=fso.getfolder(".").filesfor each f in fsi=i+1nextmsgbox "文件总数:"&i

  • VBS获取当前目录下所有文件夹名字的代码

    VBS获取当前目录下所有文件夹名字的代码

    VBS获取当前目录下所有文件夹名字,不包括子文件夹.我要给每个文件夹进行操作,所以最好用循环输出. 测试的时候要保证当前目录下有文件夹才可以,否则输出为空. 复制代码 代码如下: Set ws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectorySet fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w

  • python3获取文件中url内容并下载代码实例

    这篇文章主要介绍了python3获取文件中url内容并下载代码实例,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下 #!/usr/bin/env python # -*- coding: utf-8 -*- # @Time : 2019-12-25 11:33 # @Author : Anthony # @Email : ianghont7@163.com # @File : get_video_audio_file.py import xlrd

  • Python爬虫后获取重定向url的两种方法

    下面给大家分享Python爬虫后获取重定向url的两种方法,具体内容如下所示: 方法(一) # 获得重定向url from urllib import request # https://zhidao.baidu.com/question/681501874175782812.html url = "https://www.baidu.com/link?url=IscBx0u8h9q4Uq3ihTs_PqnoNWe7slVWAd2dowQKrnqJedvthb3zrh9JqcMJu3ZqFrbW

  • Vue获取微博授权URL代码实例

    1.在Vue页面加载时动态发送请求获取微博授 权url 1.1 在 components\common\lab_header.vue 中写oauth动态获取微 博授权URL // 获取微博登录地址 oauth() { // 从后端获取 微博登录地址 oauth_post().then((resp) => { console.log(resp) //{'code': '0', 'msg': '成功', 'data': {'url': url}} let url = resp.data.url; t

随机推荐