VBS中怎么獲取重定向的URL

今天就跟大家聊聊有關(guān)VBS中怎么獲取重定向的URL，可能很多人都不太了解，為了讓大家更加了解，小編給大家總結(jié)了以下內(nèi)容，希望大家根據(jù)這篇文章可以有所收獲。

訪問(wèn)了一下他所謂的aaa.com，發(fā)現(xiàn)是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/

為了測(cè)試方便，我寫了一個(gè)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消息時(shí)太智能，直接給跳轉(zhuǎn)到Location指定的頁(yè)面了。
XMLHTTP不行，我們還有WinHttp.WinHttpRequest.5.1，該組件的Option屬性的第六個(gè)索引EnableRedirects就是指示是否自動(dòng)跳轉(zhuǎn)：

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")

看完上述內(nèi)容，你們對(duì)VBS中怎么獲取重定向的URL有進(jìn)一步的了解嗎？如果還想了解更多知識(shí)或者相關(guān)內(nèi)容，請(qǐng)關(guān)注億速云行業(yè)資訊頻道，感謝大家的支持。