VBS獲取重定向的URL的代碼
某個(gè)人問(wèn)的問(wèn)題：
我本來(lái)想獲取aaa.com頁(yè)面的內(nèi)容，可是aaa.com跳轉(zhuǎn)到bbb.com了。我想獲取bbb.com 這個(gè)網(wǎng)址。
訪問(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è)試方便，我寫(xiě)了一個(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")
問(wèn)題就這樣完美的解決了，但是那個(gè)人連聲謝謝都沒(méi)有，真是世風(fēng)日下。
原文：http://demon.tw/programming/vbs-http-302-redirect.html
相關(guān)文章
下載文件到本地運(yùn)行的vbs...2006-10-10
VBS教程：運(yùn)算符-冪運(yùn)算符 (^)...2006-11-11
正則表達(dá)式在VBScript中的應(yīng)用VBScript使用RegExp對(duì)象、Matches集合以及Match對(duì)象提供正則表達(dá)式支持功能。我們還是先看一個(gè)例子。2008-06-06
VBS基礎(chǔ)篇 vbscript Sendkeys模擬鍵盤(pán)操作
在vbscript中我們可以object.SendKeys模擬鍵盤(pán)操作，將一個(gè)或多個(gè)按鍵指令發(fā)送到指定Windows窗口來(lái)控制應(yīng)用程序運(yùn)行，,需要的朋友可以參考下2018-06-06
使用VBS實(shí)現(xiàn)Hosts文件一鍵配置實(shí)現(xiàn)代碼
hosts文件存儲(chǔ)了IP地址與域名的映射。因?yàn)橛械臅r(shí)候需要經(jīng)常性地配置hosts文件，因此這段時(shí)間我琢磨了一套傻瓜化的hosts文件配置方案，記錄如下2019-09-09
VBS腳本實(shí)現(xiàn)遍歷批量替換多目錄多文件內(nèi)容的代碼
這篇文章主要介紹了VBS腳本實(shí)現(xiàn)遍歷批量替換多目錄多文件內(nèi)容的代碼，主要是結(jié)合了bat，實(shí)現(xiàn)這種效果，需要的朋友可以參考一下2018-12-12
用vbs實(shí)現(xiàn)按創(chuàng)建日期的順序列出一個(gè)文件夾中的所有文件
用vbs實(shí)現(xiàn)按創(chuàng)建日期的順序列出一個(gè)文件夾中的所有文件...2007-03-03
VBS教程：方法-GetParentFolderName 方法
vbs GetParentFolderName用來(lái)獲取指定的路徑中最后一個(gè)文件或文件夾的父文件夾2006-11-11
用vbs實(shí)現(xiàn)的強(qiáng)制殺進(jìn)程的腳本
用vbscript實(shí)現(xiàn)的強(qiáng)制殺系統(tǒng)進(jìn)程的腳本代碼，主要用于一些殺毒軟件，占系統(tǒng)內(nèi)存或cpu，我們可以用下面的方法殺掉，黑人也必須殺掉殺毒軟件，才能進(jìn)行下一步操作，不建議搞破壞。2008-05-05
最近一項(xiàng)目中，vbs腳本需要讀取配置文件，本來(lái)考慮用ini來(lái)做配置文件，但是vbs里沒(méi)有現(xiàn)成讀寫(xiě)ini文件的支持，于是考慮用xml來(lái)做配置文件，使用xmldom來(lái)讀取。寫(xiě)成個(gè)class使用起來(lái)應(yīng)該方便一些。貼來(lái)備忘一下。2009-02-02