• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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

    上一篇:VBS 两数相加取值问题分析
    下一篇:VBS中InputBox函数的返回值使用技巧
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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