今天就跟大家聊聊有关VBS中怎么获取重定向的URL,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。访问了一下他所谓的aaa.com,发现是Http 302重定向HTTP/1.1 302
今天就跟大家聊聊有关VBS中怎么获取重定向的URL,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。
访问了一下他所谓的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")
看完上述内容,你们对VBS中怎么获取重定向的URL有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注编程网精选频道,感谢大家的支持。
--结束END--
本文标题: VBS中怎么获取重定向的URL
本文链接: https://www.lsjlt.com/news/253439.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-05-14
2024-05-14
2024-05-14
2024-05-14
2024-05-14
2024-05-14
2024-05-14
2024-05-14
2024-05-14
2024-05-14
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0