VBS獲取GZIP壓縮的HTTP內(nèi)容的實現(xiàn)代碼
更新時間：2016年01月14日 23:04:22 投稿：mdxy-dxy
這篇文章主要介紹了VBS獲取GZIP壓縮的HTTP內(nèi)容的實現(xiàn)代碼,需要的朋友可以參考下
不少網(wǎng)站為了提高加載速度，啟用HTTP服務器的GZIP壓縮功能，當客戶端發(fā)送的HTTP請求中聲明可以接受GZIP編碼時，服務器自動對HTTP響應內(nèi)容進行GZIP壓縮。但是，在VBS中想自動對GZIP編碼進行解壓就沒有那么容易了。
不同組件對GZIP壓縮的處理不盡相同，首先看Msxml2.XMLHTTP：
'By Demon
'http://demon.tw
Dim http
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET", "https://www.baidu.com", False
http.setRequestHeader "Accept-Encoding", "gzip"
http.send
WScript.Echo http.responseText
從測試的結果看，Msxml2.XMLHTTP會自動進行GZIP解壓，GOOD！
其次是Msxml2.ServerXMLHTTP：
'By Demon
Dim http
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.open "GET", "https://www.baidu.com", False
http.setRequestHeader "Accept-Encoding", "gzip"
http.send
WScript.Echo http.responseText
很可惜，返回的是亂碼。再看看WinHttp.WinHttpRequest.5.1：
'By Demon
Dim http
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
http.open "GET", "https://www.baidu.com", False
http.setRequestHeader "Accept-Encoding", "gzip"
http.send
WScript.Echo http.responseText
依然是亂碼。雖然說一般情況下用Msxml2.XMLHTTP組件已經(jīng)綽綽有余了，但是有些時候還是不行的，比如不能發(fā)送Cookie，不能偽造Referer等等。所以還是得想辦法對GZIP進行解碼，辦法無外乎兩種，自己用VBS寫算法或者調(diào)用第三方組件。
算法我就偷懶不寫了，感覺效率不會太高，哪位朋友感興趣可以寫來玩玩。找了個不錯的第三方組件（居然用第三方，我果然老了）Chilkat.Gzip：
Dim Gzip
Set Gzip = CreateObject("Chilkat.Gzip")
Gzip.UnlockComponent ""
'By Demon
Dim http
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
http.open "GET", "https://www.baidu.com", False
http.setRequestHeader "Accept-Encoding", "gzip"
http.send
WScript.Echo Gzip.UncompressString(http.responseBody, "utf-8")
順便說一下這個組件是收費的，可以免費試用30天，所以還是應該用VBS來實現(xiàn)？
原文：http://demon.tw/programming/vbs-http-gzip.html
相關文章
VBS教程：方法-GetFile 方法...2006-11-11
getSQLinfo.vbs 獲得SQL數(shù)據(jù)/日志空間使用情況的腳本
這個腳本可以獲取SQL數(shù)據(jù)/日志的空間使用情況方便及時了解sql使用空間情況2008-07-07
用vbs實現(xiàn)的可以搜索文件名和得到指定目錄列表下的文件2008-04-04
VBS教程：方法-DeleteFolder 方法...2006-11-11
下面的代碼比較經(jīng)典，瞬間關閉所有的ie的腳本2008-06-06
生成ACCESS數(shù)據(jù)庫里所有表及所有字段并生成一定格式的字符組合2008-06-06
天天坐在電腦前的朋友要每隔一段時間活動一下，不然身體會變得越來越差。下成的vbs腳本可以每隔一段時間來提醒你。2008-06-06
自動以管理員身份運行批處理bat文件(vbs與bat兩種方法)
在日常運維工作中，為方便對windows用戶進行系統(tǒng)安裝或配置等，使用Windows自帶的批處理(bat文件)是一種最為簡單快速的方法2020-08-08
這篇文章主要介紹了vbs 定時刪除功能實現(xiàn)代碼,需要的朋友可以參考下2014-05-05
vbscript和javascript版的15位, 18位的身份證號碼的驗證函數(shù).以及根據(jù)身份證取省份,生日,
vbscript和javascript版的15位, 18位的身份證號碼的驗證函數(shù).以及根據(jù)身份證取省份,生日,性別2007-04-04