VBS获取重定向的URL的代码

<"htmlcode">

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